Привет булка, небыло меня около полутора лет на форуме =D.
Вот зашел к вам за помощью, очень нужно на паскале написать программу.
Сам немогу ибо щас практика, исправление долгов, дискретная математика (ненавижу ее).
Суть проста: снеговик, махает руками, и рандомный снег.
Вот код снега:
procedure DrawSnow;
var x,y,count:integer;
begin
randomize;
for count := 0 to 250 do begin
x := random(0,640);
y := random(0,480);
ellipse(x,y,0,360,1,1);
end;
end;
сам не могу написать, ибо нет времени. Проблемы с девушкой и учебой, ну и работаю.
P.S. модератор меня долго не было, если что просто перенеси топ в другой раздел.