Program v PASCAL-e

ertin · Napísal **ertin**: 15.06.2006 21:40

chcel by som vás veľmi pekne poprosiť, či by si niekto z vás nenašiel 10-15 minút, a nenaprogramoval mi jeden program v pascale.

mal by byť použitý príkaz: randomize, circle, delay

1kružnica by mala ísť z vrchu dole, a druhá vodorovne.
prosím pomôžte. fakt to dosť potrebujem
dakujem za váš čas!

D.I.Y. · Napísal **D.I.Y.**: 16.06.2006 10:34

Dufam, ze takto nejak by to malo vyzerat

Kód:

program grafika;
uses crt,graph;
var gd,gm,i,r1,r2:integer;
begin
     initgraph(gd,gm,'c:\progra~1\TP\bgi');
     cleardevice;
     randomize;
     r1:=random(640); { rozlisenie }
     r2:=random(480); {   640x480  }
     for i:=1 to 250 do
      begin
       cleardevice;
       circle(r1,1,i);
       circle(1,r2,i);
       delay(25);
      end;
     readln;
     closegraph;
end.

ertin · Napísal autor témy **ertin**: 19.06.2006 14:52

dakujem

Program v PASCAL-e

Podobné témy