linie''.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

program linie;
{sa se miste linia din pozitia initiala in pozitia finala}
uses graph;
const p=36;
      t=15;
var n,i,k:integer;
    gd,gm:integer;
    x,y,l:integer;
procedure desen(l,k:integer);
var a,b,c,d:array[1..p] of real;
begin
for i:=1 to p do
    begin
    a[i]:=round(getmaxx/2)+l*cos(Pi*i/18);
    b[i]:=round(getmaxy/2)+l*sin(Pi*i/18);
    c[i]:=round(getmaxx/2)+t*cos(Pi*i/18);
    d[i]:=round(getmaxy/2)+t*sin(Pi*i/18);
    end;
for i:=2 to p do
    begin
         setcolor(k);
         line(round(c[i]),round(d[i]),round(a[i]),round(b[i]));
         readln;
         setcolor(0);
         line(round(getmaxx/2),round(getmaxy/2),round(a[i-1]),round(b[i-1]));
    end;
end;
begin
     gd:=Vga;
     Gm:=Vgahi;
     InitGraph(gd,gm,'E:\TP\Bgi');
write('lungimea= ');
readln(l);
for k:=1 to 8 do
    begin
    desen(l,k);
    readln;
    end;
CloseGraph;
end.