Вывести на экран изображение лодки с парусами - Turbo Pascal
Формулировка задачи:
Вывести на экран изображение лодки с парусами .
Решение задачи: «Вывести на экран изображение лодки с парусами»
textual
Листинг программы
uses graph; var x,y:integer; p:array[1..5] of pointtype; begin initgraph(x,y,''); p[1].x:=100;p[1].y:=310; p[2].x:=540;p[2].y:=280; p[3].x:=500;p[3].y:=380; p[4].x:=140;p[4].y:=380; p[5]:=p[1]; setbkcolor(9); setcolor(6); setfillstyle(1,6); fillpoly(5,p); bar(285,20,295,300); p[1].x:=100;p[1].y:=290; p[2].x:=285;p[2].y:=20; p[3].x:=285;p[3].y:=270; p[4]:=p[1]; setcolor(15); setfillstyle(1,15); fillpoly(4,p); p[1].x:=295;p[1].y:=20; p[2].x:=600;p[2].y:=240; p[3].x:=400;p[3].y:=260; p[4]:=p[1]; fillpoly(4,p); setcolor(6); setlinestyle(0,0,3); line(540,280,540,250); line(600,240,400,260); readln end.
Объяснение кода листинга программы
- Объявлены переменные
x
,y
типаinteger
и массивp
типаarray[1..5] of pointtype
. - Вызвана функция
initgraph(x,y,'');
, которая инициализирует графический контекст с заданными параметрамиx
иy
. - Задаются координаты вершин многоугольника для переменных
p[1]
,p[2]
,p[3]
,p[4]
иp[5]
. - Многоугольник заполняется с помощью функции
fillpoly(5,p);
с использованием заданных ранее координат вершин. - С помощью функции
bar(285,20,295,300);
рисуется горизонтальная полоса. - Координаты вершин многоугольника изменяются для создания формы паруса.
- Многоугольник снова заполняется с помощью функции
fillpoly(4,p);
с использованием обновленных координат вершин. - С помощью функции
line(540,280,540,250);
иline(600,240,400,260);
рисуются две линии, образующие форму паруса. - Программа ожидает ввода данных с помощью
readln
.