Войти Регистрация Спроси ai-bota

Нарисовать корабль в паскал через graphabc

Ответ:

MeerDasha487

16.08.2020 11:21

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.

0,0(0 оценок)

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

danilpus2016

15.10.2020 02:05

У исполнителя Альфа две команды, которым присвоены номера: 1. Прибавь 1. 2. Умножь на b. (b — неизвестное натуральное число; b ≥ 2). Выполняя первую из них, Альфа увеличивает...

Aaaaaarrrrr55

21.04.2021 22:19

Установите соответствие между логическим выражением и областью истинности (заштрихованная часть).(x*x+y*y =1) and (y =0))(y =-x) and (y =x) and (x*x+y*y =1)((y =x) or (y =-x))...

Алиса123464

29.12.2020 01:17

Хелп! хелп! 80 б. вопрос по информатике. проходим базу данных,надо заполнить таблицу! что надо писать в последней графе(наименование поля содержащего напишите,!...

Dastannn1

26.08.2022 19:53

Бегун в 1й день пробежал 10 км. в каждый день он пробегал на 10% больше.определить сколько км всего пробежит бегун за 30 дней(используя циклы)...

Артём2006706

14.05.2023 00:16

Определить признаки: весна,река,рука,яблоня...

Lenokguryhr

14.05.2023 00:16

Найти пириметр треугольника заданного координатами своих вершин.определить функции для расчета длины отрезка по координатам ёё вершин....

gambab

06.05.2020 13:58

Выполнить , связанные с turbo pascal: 1) какой оператор позволяет менять значения переменных и вычислять значения выражений? 2) выполнить алгоритм при x=345: начало ввод x a=x...

marina07102

20.11.2022 05:41

Производится двухканальная (стерео) звукозапись с частотой дискретизации 44,1 кгц и глубиной кодирования 24 бит. запись длится 1 минуту, ее результаты записываются в файл, сжатие...

Feirte

05.02.2020 06:40

Какие из этих утверждений справедливы для растрового кодирования рисунков ? 1 при изменении размера рисунок искажается 2 нет потерь информации при кодировании 3 этот пригоден...

anickeeva2013

05.02.2020 06:40

Массив из 12 целых чисел вводят с клавиатуры. найдите сумму элементов массива....

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку