Капли в дожде

[zzz6]

uses graphABC,crt;
var t:array[1..2,1..50]of integer;
    i:integer;
begin
randomize;
hidecursor;
for i:=1 to 50 do
 begin
  t[1,i]:=random(windowwidth-40)+20;
  t[2,i]:=random(windowheight-40)+20;
 end;
repeat
lockdrawing;
clearwindow;
setpencolor(clAqua);
for i:=1 to 50 do
 begin
  circle(t[1,i],t[2,i],2);
  floodfill(t[1,i],t[2,i],clBlue);
 end;
redraw;
sleep(5);
for i:=1 to 50 do
 begin
  t[2,i]:=t[2,i]+5;
  if t[2,i]>windowheight then t[2,i]:=1;
 end;
until keypressed;
end.

как сделать так чтоб некоторые капли двигались медленнее, другие быстрее????

[Leo08]

Я когда эксперементировал с Вашим кодом случайно добился интересного эффекта, всего лишь добавив +Random(5). Вот, может заинтересует))

uses graphABC,crt;
var t:array[1..2,1..50]of integer;
    i:integer;
begin
randomize;
hidecursor;
for i:=1 to 50 do
 begin
  t[1,i]:=random(windowwidth-40)+20;
  t[2,i]:=random(windowheight-40)+20;
 end;
repeat
lockdrawing;
clearwindow;
setpencolor(clAqua);
for i:=1 to 50 do
 begin
  circle(t[1,i]+Random(5),t[2,i],2);
  floodfill(t[1,i],t[2,i],clBlue);
 end;
redraw;
sleep(5);
for i:=1 to 50 do
 begin
  t[2,i]:=t[2,i]+5;
  if t[2,i]>windowheight then t[2,i]:=1;
 end;
until keypressed;
end.

Ну а вот собственно Ваш исправленный код:

uses graphABC,crt;
var t:array[1..2,1..50]of integer;
    i:integer;
begin
randomize;
hidecursor;
for i:=1 to 50 do
 begin
  t[1,i]:=random(windowwidth-40)+20;
  t[2,i]:=random(windowheight-40)+20;
 end;
repeat
lockdrawing;
clearwindow;
setpencolor(clAqua);
for i:=1 to 50 do
 begin
  circle(t[1,i],t[2,i],2);
  floodfill(t[1,i],t[2,i],clBlue);
 end;
redraw;
sleep(5);
for i:=1 to 50 do
 begin
  t[2,i]:=t[2,i]+Random(5);
  if t[2,i]>windowheight then t[2,i]:=1;
 end;
until keypressed;
end.

[Serge_Bliznykov]

ну можно и такой ещё вариант посмотреть..

uses graphABC,crt;
var t:array[1..3,1..50] of real;
    i:integer;
begin
randomize;
hidecursor;
for i:=1 to 50 do
 begin
  t[1,i]:=random(windowwidth-40)+20;
  t[2,i]:=random(windowheight-40)+20;
  t[3,i]:= random()*2.5+2;
 end;
setpencolor(clBlue);
SetBrushStyle(bsSolid);
repeat
lockdrawing;
clearwindow;
for i:=1 to 50 do
 begin
  circle(round(t[1,i]),round(t[2,i]),2);
  //floodfill(t[1,i],t[2,i],clBlue);
 end;
redraw;
sleep(5);
for i:=1 to 50 do
 begin
  t[2,i]:=t[2,i]+t[3,i]{+Random(5)};
  if t[2,i]>windowheight then begin
     t[1,i]:=random(windowwidth-40)+20;
     t[2,i]:=1;
     t[3,i]:= random()*2.5+2;
  end;
 end;
until keypressed;
end.

[zzz6]

действительно прикольно получилось)

[zzz6]

спасиба)))