[pascal] pawie oczko problem

[Eryk.]

witam

mam problem z programem. znalazlem gotowy program ktory rysuje pawie oczko lecz mam problem gdyż nie wiem co DOKLADNIE oznacza ten kod:

 

program pawie_oko;

uses

crt, graph;

var

r:integer;

karta,tryb:integer;

begin

clrscr;

detectgraph(karta,tryb);

initgraph(karta,tryb,'c:\tp\bgi');

 

FloodFill(251,151,green);

setcolor(yellow);

FOR r:=200 To 250 DO

circle(600,250,r);{zolte}

setcolor(red);

FOR r:=150 To 200 DO

circle(600,250,r);{czerwone}

setcolor(blue);

FOR r:=100 To 150 DO

circle(600,250,r);{niebieskie}

setcolor(green);

FOR r:=50 To 100 DO

circle(600,250,r);{zielone}

setcolor(magenta);

FOR r:=0 To 50 DO

circle(600,250,r);{fioletowe}

 

SetTextStyle(1,0,4);

OutTextXY(440,550,'PAWIE OCZKO ');

readkey;

closegraph;

end.

 

prosil bym o wytlumaczenie mi w { }. za pomoc daje like.

[KalneR]

To kod programu ? Nie trudno sie domyslic

FloodFill(251,151,green);

setcolor(yellow);

FOR r:=200 To 250 DO

circle(600,250,r);{zolte}

setcolor(red);

FOR r:=150 To 200 DO

circle(600,250,r);{czerwone}

setcolor(blue);

FOR r:=100 To 150 DO

circle(600,250,r);{niebieskie}

setcolor(green);

FOR r:=50 To 100 DO

circle(600,250,r);{zielone}

setcolor(magenta);

FOR r:=0 To 50 DO

circle(600,250,r);{fioletowe}

 

Że cos rysuje...

[Eryk.]

trzeba mi dokladny opis tego co wykonuje i gdzie

[KalneR]

Zapewne wykonuje w jakimś programie graficznym na 100% jest to "Paint" sprawdz.

[Eryk.]

dostane moze warna ale trudno. jesteś tępym chujem ktory chce tylko nabijać posty choć nic nie umie oraz jara się jakimiś udawanymi bijatykami ....

proszę o zamkniecie tematu