KY3bMA228

04.08.2022 14:47

Информатика

Есть ответ 👍

Нужен какойнибудь рисунок на языке турбо-паскаль,)произвольный рисунок,) ,желательно с обьяснением)заранее )ну только рисунок чтобы был не какой нибудь сложный,а простой типо обезьяны))

232

397

Посмотреть ответы 2

Ответы на вопрос:

Lovedashuta

Информатика

4,8(41 оценок)

program picture; uses graph; const pathtodriver = 'd: \bp\bgi'; {подставьте свой путь к каталогу с файлами *.bgi}var gd,gm : integer; begin detectgraph(gd, gm); {определим драйвер и режим} initgraph(gd, gm, pathtodriver); {проинициализируем графику} if graphresult < > grok then halt(1); {если ошибка, завершим работу} setviewport(0,0,639,349,clipon); {установим область рисования} clearviewport; {очистим область рисования} {для рисования используем следующие процедуры} {circle(x,y,r) - рисует окружность} {moveto(x,y) - перемещает указатель в заданную точку} {lineto(x,y) - проводит линию от указателя до заданной точки,} { указатель перемещает в конец линии} {rectangle(x1,y1,x2,y2) - рисует прямоугольник} {putpixel(x,y,color) - ставит точку в позиции с заданным цветом} {человечек} circle(170, 225, 5); moveto(170, 230); lineto(170, 260); moveto(160, 240); lineto(170, 250); lineto(180, 240); moveto(160, 270); lineto(170, 260); lineto(180, 270); {домик} moveto(230, 270); lineto(230, 320); lineto(290, 320); lineto(290, 270); lineto(260, 220); lineto(230, 270); lineto(290, 270); moveto(250, 320); lineto(250, 290); lineto(270, 290); lineto(270, 320); putpixel(265, 305, white); {дерево} circle(345, 175, 45); rectangle(340, 220, 350, 320); readln; {задердка для просмотра} closegraph; {выход из графического режима}end.

NastyaKoryak

Информатика

4,4(65 оценок)

Program Task1;

var e, x, y, z, exp: real;

function enterNums(): real;

begin

writeln();

write (' Enter e: '); readln (e);

write (' Enter x: '); readln (x);

write (' Enter y: '); readln (y);

writeln();

end;

begin

enterNums();

exp := ((3 * y) ** 0.5) + x;

if exp > 14 then

z := e ** (3 * x * y);

if exp < 14 then

z := x + (3 * y)

else

z := x * 0.5;

writeln(' Z = : ', z);

writeln();

end.

Program Task2;

var jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov, dec, month: string;

var long, short, veryShort: byte;

begin

jan := 'Январь' ;

feb := 'Февраль' ;

mar := 'Март' ;

apr := 'Апрель' ;

may := 'Май' ;

jun := 'Июнь' ;

jul := 'Июль' ;

aug := 'Август' ;

sep := 'Сентябрь';

oct := 'Октябрь' ;

nov := 'Ноябрь' ;

dec := 'Декабрь' ;

long := 31;

short := 30;

veryShort := 28;

write(' Введите Название мецяца с большой буквы: '); readln(month);

writeln();

if month = jan then write(' В месяце ', month, ' ', long, ' дней!' );

if month = feb then write(' В месяце ', month, ' ', veryShort, ' дней! (бывает и 29)' );

if month = mar then write(' В месяце ', month, ' ', long, ' дней!' );

if month = apr then write(' В месяце ', month, ' ', short, ' дней!' );

if month = may then write(' В месяце ', month, ' ', long, ' дней!' );

if month = jun then write(' В месяце ', month, ' ', short, ' дней!' );

if month = jul then write(' В месяце ', month, ' ', long, ' дней!' );

if month = aug then write(' В месяце ', month, ' ', long, ' дней!' );

if month = sep then write(' В месяце ', month, ' ', short, ' дней!' );

if month = oct then write(' В месяце ', month, ' ', long, ' дней!' );

if month = nov then write(' В месяце ', month, ' ', short, ' дней!' );

if month = dec then write(' В месяце ', month, ' ', long, ' дней!' );

writeln();

end.

Удачи))

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.