Программа, рисующая капли в дожде

Категория: Delphi/Pascal
2011-08-22 23:16:45
code: #pascal
  1. uses graphABC,crt;
  2. var t:array[1..2,1..50]of integer;
  3.     i:integer;
  4. begin
  5. randomize;
  6. hidecursor;
  7. for i:=1 to 50 do
  8.  begin
  9.   t[1,i]:=random(windowwidth-40)+20;
  10.   t[2,i]:=random(windowheight-40)+20;
  11.  end;
  12. repeat
  13. lockdrawing;
  14. clearwindow;
  15. setpencolor(clAqua);
  16. for i:=1 to 50 do
  17.  begin
  18.   circle(t[1,i]+Random(5),t[2,i],2);
  19.   floodfill(t[1,i],t[2,i],clBlue);
  20.  end;
  21. redraw;
  22. sleep(5);
  23. for i:=1 to 50 do
  24.  begin
  25.   t[2,i]:=t[2,i]+5;
  26.   if t[2,i]>windowheight then t[2,i]:=1;
  27.  end;
  28. until keypressed;
  29. end.
Поделиться:

Похожие статьи:

теги: консольное приложение, студенты, графика