Меню сайта

Задача №4

Построитьмногоугольник со сторонами 60 и 20 точек.

uses graph,crt-

vargd,gm,x,x1,y,y1:integer-

begin

initgraph(gd,gm,’c:&#92-bp&#92-bgi’)-

outtextxy(20,0,’Введите координаты левого верхнегоугла прямоугольника (x,y)’)-

readln(x)-

readln(y)-

outtextxy(20,10,’Введите координаты правого нижнегоугла прямоугольника (x1,y1)’)-

readln(x1)-

readln(y1)-

rectangle(x,y,x1,y1)-

repeat-

until keypressed-

closegraph-

end.

Категория: Графика в Паскале | Дата: 23.11.12

Меню раздела
Блок