Vernаrd

23.06.2023 01:37

Информатика

Есть ответ 👍

Вывести на экран текст «лесенкой» вася пошел гулять в программе паскаль. прошу

261

353

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

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

shabanovkirillp02mew

Информатика

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

Так ? begin writeln('вася'); writeln('пошел': 9); writeln('гулять': 15); end.

Lera246hh

Информатика

4,6(53 оценок)

Program Geograf1;

Uses crt, GraphABC;

var karta,R,A: ineger;

Begin

SetWindowSize (520,480);

karta:=LoadPicture('belarus.gif');

DrawPicture (karta,10,10);

SetBrushColor (clRed);

A:=1700; R:=round (sgrt (A/pi));

circle (250,225,R);

A:=500; R:=round (sgrt (A/pi));

circle (405,345,R);

A:=330; R:=round (sgrt (A/pi));

circle (375,215,R);

A:=340; R:=round (sgrt (A/pi));

circle (360,105,R);

A:=320; R:=round (sgrt (A/pi));

circle (55,235,R);

A:=300; R:=round (sgrt (A/pi));

circle (40,385,R);

End.

PascalВыделить код

Program Geograf2;

Uses crt, GraphABC;

Const A:= array[1..5] of integer =(690,613,495,493,459);

B:= array[1..5] of string =('Днепр', 'Березина', 'Припять', 'Сож', 'Неман ');

var karta, i : ineger;

begin

SetWindowSize (600,520);

karta:=LoadPicture('belfiz.gif');

DrawPicture (karta,30,120);

SetBrushColor (clBlue);

SetPenWidth(5);

Writeln ('Длина реки на территории Беларуси, тыс.км ');

for i:=1to 5 do begin

Writeln ( B [i], ' ', A[ i ]);

Line(160, 10+20*i, 160+ round(0.5*A[ i ]), 10+20*i);

End;

End.

Задачи:

PascalВыделить код

Program upr_a;

Uses crt, GraphABC;

Const A:= array[1..4] of real =(87.5, 71.5,82.4, 94);

B:= array[1..4] of string =('Беловежская пуща', 'Браславские озера', 'Припятский', 'Нарочанский');

var karta,i,R: integer;

begin

SetWindowSize (520,480);

writeln ('Площадь парков Беларуси:');

karta:=LoadPicture('d:/uprajneniya/karta.gif');

DrawPicture (karta,10,50);

SetBrushColor (clRed);

for i:=1to 4 do

writeln (B[i], ' ' , A[i], 'тыс.га');

R:=round (sgrt (A[1]/pi));

circle (50,400,R);

R:=round (sgrt (A[2]/pi));

circle (250,100,R);

R:=round (sgrt (A[3]/pi));

circle (300,400,R);

R:=round (sgrt (A[4]/pi));

circle (200,200,R);

End.

PascalВыделить код

Program upr_b ;

Uses crt, GraphABC;

Const A:= array[1..8] of real =(79.6, 52.8,40.3,37.7,36.1, 26.0, 24.6,22.3);

B:= array[1..8] of real =(24.8, 7.5, 2.9, 11.5, 12.0, 2.3, 8.1, 8.7);

C:= array[1..8] of string =(' Нарочь', 'Освея', 'Черврное', 'Лукомльское', 'Выгонщанское', 'Нещердо', 'Свирь');

var karta,i,S: integer;

begin

SetWindowSize (640,480);

writeln ('Площадь и глубина озер Беларуси:');

karta:=LoadPicture('d:/uprajneniya/karta.gif');

DrawPicture (karta,340,0,250,200);

Writeln ( 'Озеро' :15, 'Площадь':13, 'Глубина':9);

for i:=1to 8 do

writeln (i , C[i]:15, ' ' , A[i]:7:2, ' км.кв', B [ i ]:7:2, 'м');

writeln; writeln;

Объяснение:

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

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

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

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

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

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

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

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

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

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