Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
RandomCircle Screensaver - CERCHISC.PAS

CERCHISC.PAS

 Caricato da: Progman-92
Scarica il programma completo

  1. program CerchiCasuali;
  2. uses Graph,crt;
  3. var
  4.  Gd, Gm, Raggio, Durata: Integer;
  5.   PixelX, PixelY,Numcerchi: word;
  6. begin
  7.  Randomize;
  8.  Gd := Detect;
  9.  InitGraph(Gd, Gm, ' ');
  10.  if GraphResult <> grOk then
  11.    Halt(1);
  12. repeat
  13.  setcolor(random(3+13));
  14.  pixelx:=(random(640));
  15.  pixely:=(random(480));
  16.  numcerchi:=(random(8));
  17.  durata:=(random(750));
  18.  for Raggio:= 1 to 50  do
  19.  Circle(PixelX, PixelY, Raggio *NumCerchi);
  20.  delay(Durata)
  21. until keypressed;
  22.  CloseGraph;
  23. end.