Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.10.2012, 19:27   #1
kalosha-stepa
Пользователь
 
Регистрация: 13.09.2012
Сообщений: 25
По умолчанию СНЕГ

В Pascal ABC.net написать программу кот делает снег который складывается в сугробы(можно сделать и 2 вида снежинок, одни складываются а другие исчезают). У меня получилось только выскакивание кружочков

program pr4;
uses GraphABC;

var x,y,r,i,a,b,x2,y2,j:integer;
begin

Randomize;
for i:=1 to 1000 do begin
x:=Random(1000)+100;
y:=Random(1000)+100;
r:=Random(5);
Circle(x,y,r);

Sleep(20)

end;end.
kalosha-stepa вне форума Ответить с цитированием
Старый 11.10.2012, 22:24   #2
rubius2008
Форумчанин
 
Регистрация: 19.03.2010
Сообщений: 409
По умолчанию

1. Наверно, надо поместить рисование снежинок в цикл, который бы прекращался по нажатию какой-либо клавиши

2. Координаты центра снежинок надо чтоб были в области видимого окна

3. Сугроб тоже можно формировать из кругов, только закрашенных
Есть вопросы, пишите в ЛС.
rubius2008 вне форума Ответить с цитированием
Старый 12.10.2012, 09:30   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

готовая программа есть тут на форуме.
Только она под TurboPascal, под PascalABC её, скорее всего, прийдётся чуть подправить!
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Зима 2011. Снег ds.Dante Свободное общение 19 18.11.2011 13:41
Падающий снег flame33 JavaScript, Ajax 1 29.05.2011 23:30
Графика - идет снег Caterina2211 Паскаль, Turbo Pascal, PascalABC.NET 1 07.01.2011 13:28
Снег на сайте с сугробами mutabor JavaScript, Ajax 5 28.12.2010 22:11