Pascal - Graficzne

Koła olimpijskie

Koła olimpijskie
Pascal - Graficzne

Program: rysujący 5 kół olimpijskich.

Wszystkie elementy domu pochodzą z kodu. Program dodatkowo sprawdza czy wykonanie grafiki jest możliwe.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program kola;
uses crt,graph;
const
     sciezka='c:\progra~1\tp\bgi';
     promien=60;
     var
     d,m:integer;
     i,xs,ys,x1,x2,yk:integer;
procedure wymazkola(poz:integer);
begin
     setcolor(white);
     circle(i+x1,i,promien);
     circle(xs,i,promien);
     circle(getmaxx-i-x1,i,promien);
     circle(i+x2,getmaxy-i,promien);
     circle(getmaxx-i-x2,getmaxy-i,promien);
     end;
procedure rysujkola(poz:integer);
begin
for i:=1 to 200 do
begin
     clearviewport;
     setcolor(blue);
     circle(i+x1,i,promien);
     setcolor(brown);
     circle(xs,i,promien);
     setcolor(red);
     circle(getmaxx-i-x1,i,promien);
     setcolor(yellow);
     circle(i+60,getmaxy-i,promien);
     setcolor(green);
     circle(getmaxx-i-60,getmaxy-i,promien);
     delay(3);
     end;
     end;
begin
     d:=detect;
     initgraph(d,m,sciezka);
     if graphresult<>grOK then
     halt(1);
     setbkcolor(white);
     CLEARVIEWPORT;
     xs:=getmaxx div 2;
     ys:=getmaxy div 2;
rysujkola(150);
readkey;
closegraph;
end.