pro27

program pro27;
uses crt,graph;
var sc,tp:integer;
    drive:string;
    k,x,y,veloce,spazio,tempo:integer;

begin
clrscr;
sc:=0;
tp:=0;
(* indica ove trovare GRAPH *)
drive:='c:\tp\bgi';
initgraph(sc,tp,drive);
setbkcolor(0);
setcolor(7);
setlinestyle(2,0,4);
x:=1;
y:=1;
line(100,50,100,400);
line(100,400,300,400);
for k:=1 to 20 do
 begin
 tempo:=k;
 veloce:=10;
 spazio:=veloce*tempo;
 putpixel(100+x,400-spazio,07);
 putpixel(100+y,400-spazio,05);
 x:=x+5;
 y:=y+10;
 end;

readln;
end.

inizio