Анимация в Crt - Форум «Всё о Паскале»

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

Анимация в Crt

Опции

kojan	6.02.2005 12:02 Сообщение #1
Гость	Мне надо сделать из исходной программы чтобы честицы отталкивались от краёв экрана и мезду собой! Исходная задача: Код Uses Crt; var x,y:array[1..100] of integer; N,i:integer; begin ClrScr; n:=4; randomize; For i:=1 to N do begin x[i]:=random(79); y[i]:=random(50); end; Repeat For i:=1 to N do begin x[i]:=x[i]+random(3)-1; y[i]:=y[i]+random(3)-1; If x[i]>79 Then x[i]:=79; If y[i]>50 Then x[i]:=50; If x[i]<1 Then x[i]:=1; If y[i]<1 Then y[i]:=1; end; For i:=1 to N do begin TextColor(random(3)); GoToXY(x[i],y[i]); Write('^'); Delay(2500); ClrScr; end; Until KeyPressed; Readln; end. буду очень благодарен за помощь. Код в теги! Сообщение отредактировано: Oleg_Z - 6.02.2005 12:07

Ответов

kojan	7.02.2005 12:21 Сообщение #2
Группа: Пользователи Сообщений: 5 Пол: Мужской Репутация: 0	Код var x,y:array[1..100] of integer; N,i,s:integer; begin ClrScr; n:=4; randomize; For i:=1 to N do begin x[i]:=random(79); y[i]:=random(50); end; Repeat For i:=1 to N do begin Repeat s:=x[i]; x[i]:=x[i]+random(3)-1; Until x[i]<>s; repeat s:=y[i]; y[i]:=y[i]+random(3)-1; until y[i]<>s; If x[i]>79 Then x[i]:=79; If y[i]>50 Then x[i]:=50; If x[i]<1 Then x[i]:=1; If y[i]<1 Then y[i]:=1; end; For i:=1 to N do begin TextColor(3); GoToXY(x[i],y[i]); Write('^'); Delay(200); end; Clrscr; Until KeyPressed; Readln; end. Вот это исправленная версия! Мне надо чтобы частицы оталкивались друг от друга!