Вывести на экран изображение лодки с парусами - 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.

Объяснение кода листинга программы

  1. Объявлены переменные x, y типа integer и массив p типа array[1..5] of pointtype.
  2. Вызвана функция initgraph(x,y,'');, которая инициализирует графический контекст с заданными параметрами x и y.
  3. Задаются координаты вершин многоугольника для переменных p[1], p[2], p[3], p[4] и p[5].
  4. Многоугольник заполняется с помощью функции fillpoly(5,p); с использованием заданных ранее координат вершин.
  5. С помощью функции bar(285,20,295,300); рисуется горизонтальная полоса.
  6. Координаты вершин многоугольника изменяются для создания формы паруса.
  7. Многоугольник снова заполняется с помощью функции fillpoly(4,p); с использованием обновленных координат вершин.
  8. С помощью функции line(540,280,540,250); и line(600,240,400,260); рисуются две линии, образующие форму паруса.
  9. Программа ожидает ввода данных с помощью readln.

Оцени полезность:

11   голосов , оценка 4 из 5
Похожие ответы