linie.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 30 行

program linie;
{sa se miste linia din pozitia initiala in pozitia finala}
uses graph;
var n,a,i,k:integer;
    gd,gm:integer;
    x,y,l:integer;
procedure desen(x,y,l:integer);
begin
setcolor(10);
line(x,y,x+l,y);
setcolor(0);
line(x-1,y+1,x+l-1,y+1);
end;
begin
     gd:=Vga;
     Gm:=Vgahi;
     InitGraph(gd,gm,'E:\TP\Bgi');
write('n= ');
readln(n);
write('lungimea= ');
readln(l);
repeat
for i:=1 to n do
desen(i,GetMaxY-i,l);
k:=k+1;
until k=1000;
readln;
CloseGraph;
end.