Меню сайта

Задача №10

Построениетреугольника по заданным координатам.

uses crt,graph-

vargd,gm,x,y,a,c:integer-

begin

clrscr-

writeln(‘Введите координаты центра звезды X и Y ‘)-

readln(x)-

readln(y)-

writeln(‘Введите длину луча звезды (не меньше 90)’)-

readln(a)-

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

c:=round(3/4*a)-

line(x,y-a,x+c,y+2*c)-

line(x,y-a,x-c,y+2*c)-

line(x+c,y+2*c,x-a-10,y-25)-

line(x-c,y+2*c,x+a+10,y-25)-

line(x+a+10,y-25,x-a-10,y-25)-

delay(3000)-

closegraph-

end.

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

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