Паскаль

[mistertvister]

Напишите программу "дождь"-на экране появляеться (случайным образом)
появляеться 50 точек и они движуться сверху вниз. В тот момент, когда одна из точек достигает нижней границы экрана, точка появляеться в верхней части.


Покажите алгоритм пожалуйста.

[ОДИНОЧЕСТВО В СЕТИ]

В тот момент, когда одна из точек достигает нижней границы экрана, точка появляеться в верхней части.

вот и алгоритм

[Serge_Bliznykov]

mistertvister, алгоритм, говорите...
я бы завёл массивчик на 50 элементов. в нём хранил координаты капелек (x,y).
при запуске заполняем его случайным образом.
вывел эти капельки на экран
каждый цикл обработки стираем капельку, наращиваем вертикальную координату, проверяем, не достигли ли нижней границы, если достигли - формируем новую координату сверху (x - случайное), если нижней границы не достигли - рисуем капельку по полученным новым координатам. примерно так:

var Arr: array[1..50] of TDrop;
...
  for i:=1 to 50 do begin 
     стереть_каплю_(Arr[i]);
     Arr[i].y := Arr[i].y + 1; {шаг движения капли может быть и больше единицы}
     if  Arr[i].y>= НижняяГраница then GenerateNewDrop(Arr[i]);
     ОтобразитьКаплю(Arr[i])
end;

[ОДИНОЧЕСТВО В СЕТИ]

ну вот вам алгоритм для одной капельки

1. Рисуешь точку: PutPixel(x, y, c); c - это цвет, от 0 до 15.
2. Сохраняешь где-нибудь координаты (x_old := x, y_old := y)
3.1 х= х - step*tan (PI *АЛЬФА / 180)
3.2 y=y+step, если угол АЛЬФА <90 градусов, y=y-step если угол АЛЬФА > 90 градусов
3.3 учтите, что если угол АЛЬФА > 90 градусов, то тангенс будет отрицательным и капли будут падать вверх
4. Рисуешь новую точку с новыми x, y.
5. Предыдущую точку перерисовываешь цветом фона: PutPixel(x_old, y_old, 0);