Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл: Источник:
Скачиваний:
284
Добавлен:
04.03.2014
Размер:
318 б
Скачать
program lab;
uses graph,crt;
var
xa,ya:word;
gd,gm:integer;
x,y,y1,x1,x2,y2,x3,y3,x4,y4,t:integer;
begin
gd:=detect;
initgraph (gd,gm,' ');

x:=100;
y:=100;
while not keypressed do
begin
t:=t+1;
x1:=trunc(x+30*sin(t));
y1:=trunc(y+30*cos(t));
line(x,y,x1,y1);
delay(2000);
end;
closegraph;
end.