|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.10.2016, 19:52 | #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. В данной программе символы падают, оставляя за собой след. Что сделать, чтобы они появлялись без следа? |
05.10.2016, 20:19 | #2 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
05.10.2016, 20:30 | #3 |
Пользователь
Регистрация: 05.10.2016
Сообщений: 12
|
|
05.10.2016, 20:38 | #4 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Ну чё, тоже красиво. А так?
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
05.10.2016, 20:42 | #5 |
Пользователь
Регистрация: 05.10.2016
Сообщений: 12
|
|
05.10.2016, 20:49 | #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 |