Меню сайта

Задача №8

Построение квадрата.

uses graph,crt-

vargd,gm,x,y,side:integer-

begin

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

outtextxy(30,0,’Введите сторону квадрата.’)-

readln(side)-

clearviewport-

outtextxy(30,0,’Введите координаты центра квадрата(X иY через ENTER)’)-

readln(x)-

readln(y)-

clearviewport-

rectangle(x-side,y- side ,x + side , y + side )-

repeat-

until keypressed-

closegraph-

end.

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

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