Изобразить движение линии - Pascal ABC

Формулировка задачи:

Буду очень благодарен . Нужно что б было Движение линии

Код к задаче: «Изобразить движение линии - Pascal ABC»

textual
uses graphaBC;
procedure linia(x,y:integer);
var u,t:real;
begin
u:=-pi;
setpencolor(clRed);
moveto(x-round(u*10),y-round(sin(u)*10));
while u<=pi do
 begin
  lineto(x-round(u*10),y-round(sin(u)*10));
  u:=u+0.001;
 end;
end;
var x,y:integer;
begin
setwindowsize(535,500);
centerwindow;
setwindowtitle('Движение синусоиды по диагонали');
clearwindow(clBlue);
x:=30;
y:=15;
lockdrawing;
repeat
clearwindow(clBlue);
linia(x,y);
sleep(100);
x:=x+5;
y:=y+5;
redraw;
until x>=windowwidth-35;
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

13   голосов, оценка 3.615 из 5


СОХРАНИТЬ ССЫЛКУ