Информатика: Нарисовать корабль в pascalABC

twv05355

13.10.2021 13:05

Информатика

Есть ответ 👍

Нарисовать корабль в pascalABC

179

372

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

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

Stikki

Информатика

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

uses graphABC;

var xx: integer;

procedure Obl(x,y:integer);

begin

setpenwidth(1);

setpencolor(clwhite);

setbrushcolor(clwhite);

circle(x,y,40);

circle(x+30,y,30);

circle(x-40,y,30);

end;

procedure Kor (x: integer);

begin

setpencolor(clbrown);

setbrushcolor(clbrown);

setpenwidth(3);

rectangle(x+50,250,x+150,270);

line(x+149,268,x+180,250);

line(x+180,250,x+149,250);

floodfill(x+155,255,clbrown);

setpencolor(clwhite);

line(x+100,245,x+180,245);

line(x+180,245,x+100,150);

line(x+100,150,x+100,245);

line(x+90,245,x+50,245);

line(x+50,245,x+90,170);

line(x+90,170,x+90,245);

floodfill(x+105,240,clwhite);

floodfill(x+85,235,clwhite);

end;

begin

setwindowsize(700,500);

lockdrawing;

xx:=-100;

repeat

clearwindow;

setpencolor(clblue);

setbrushcolor(clblue);

rectangle(0,0,700,250);

setpenwidth(5);

setpencolor(clskyblue);

arc(350,-1350,1700,180,0);

floodfill(350,300,clskyblue);

setpencolor(claqua);

arc(350,-1050,1500,180,0);

floodfill(350,400,claqua);

floodfill(350,470,clCream);

Obl(300,90);

Obl(450,150);

Obl(150,110);

setpencolor(clyellow);

setbrushcolor(clyellow);

circle(600,100,50);

Kor (xx);

sleep(1);

xx:=xx+1;

redraw;

until xx>1000;

end.

Объяснение:

получится кораблик:)

avramenko0707

Информатика

4,5(45 оценок)

457 : 2=228, остаток 1 228 : 2=114, остаток 0 114 : 2=57, остаток 0 57: 2=28, остаток 1 28: 2=14, остаток 0 14: 2=7, остаток 0 7: 2=3, остаток 1 3: 2=1, остаток 1 1: 2=1, остаток 0 0 ответ: 4

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

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

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

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

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

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

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

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

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

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