Задача: программирование простого рисунка.
Этап 1. Создание рисунка и расчет координат.
Этап 2. Подготовка строк к программированию.
а) взять желтый карандаш
б) нарисовать круг (70,100, 50)
в) залить круг желтым цветом
г) взять голубой карандаш
д) нарисовать овал (150,30,300, 80)
е) залить овал голубым цветом
ж) нарисовать овал (350,130, 590,180)
з) залить овал голубым цветом
и) взять коричневый карандаш
к) нарисовать линию (0,420, 600,420)
л) залить область под линией коричневым цветом
м) взять светло-коричневый карандаш
н) нарисовать прямоугольник (координаты рассчитать самостоятельно)
о) залить прямоугольник светло-коричневым цветом
к) нарисовать 2 линии (координаты рассчитать самостоятельно)
Этап 3. Программирование рисунка.
program domik;
uses crt, graphabc;
begin
setwindowwidth(600);
setwindowheight(440);
setpencolor(clYellow);
circle(70,100, 50);
floodfill(70,100,clYellow);
setpencolor(clSkyBlue);
ellipse (150,30,300, 80);
floodfill(225,55, clSkyBlue);
ellipse (350,130, 590,180);
floodfill(420,155, clSkyBlue);
setpencolor(clBrown);
line(0,420, 600,420);
floodfill(10,430, clBrown);
end.
Домик запрограммируйте самостоятельно и добавьте в программу перед словом end.
