![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 05.10.2016
Сообщений: 12
|
![]()
program matrix;
uses crt; var x,y,y1:integer; symvol:integer; BEGIN clrscr; randomize; repeat y:=1; x:=random(80); y1:=random(24); symvol:=integer(random(10)); textcolor(random(16)) ; repeat GoToXY(x,y); write(symvol); delay(100); y:=y+1 until y>=y1; until keypressed; END. В данной программе символы падают, оставляя за собой след. Что сделать, чтобы они появлялись без следа? |
![]() |
![]() |
![]() |
#2 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
![]() Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 05.10.2016
Сообщений: 12
|
![]() |
![]() |
![]() |
![]() |
#4 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
![]()
Ну чё, тоже красиво. А так?
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 05.10.2016
Сообщений: 12
|
![]() |
![]() |
![]() |
![]() |
#6 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
![]()
меняются из-за рандома.
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите доработать программу. | WolfMan96 | Помощь студентам | 0 | 26.02.2015 17:46 |
Анимация. Помогите доработать программу. | pavelre | Помощь студентам | 0 | 15.10.2014 20:53 |
помогите доработать программу | alexlagunov | Visual C++ | 19 | 28.04.2014 12:18 |
Помогите доработать программу. Паскаль | Руслан56 | Помощь студентам | 0 | 11.03.2014 20:00 |