graph.pas

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

program graph1;
uses Graph;
var gd, gm,r,i,n:integer;
begin
     gd:=Vga;
     gm:=vgahi;
     InitGraph( gd, gm, 'D:\pascal\BGI');
write('n= ');
readln(n);
for i:=1 to n do
     begin
     circle(250,250,i*8);
     setcolor(i);
     end;
     readln;
     CloseGraph;
end.