Разбросать по экрану 1000 звездочек в случайном месте случайным цветом с небольшой задержкой - Free Pascal
Формулировка задачи:
Задача : "По экрану разбросайте 1000 звездочек в случайном месте случайным цветом с небольшой задержкой."
Мой код :
Почему он рисует всего 1 звездочку по окончанию работы программы?
Program WeLoveStaRS; uses crt; var n,x,y,i : integer; Begin Randomize; n:=Random(16); x:=Random(80); y:=Random(25); For i:=1 to 1000 do Begin Textcolor(n); GoToXy(x,y); Write('*'); delay(100); End; End.
Решение задачи: «Разбросать по экрану 1000 звездочек в случайном месте случайным цветом с небольшой задержкой»
textual
Листинг программы
Program WeLoveStaRS; uses crt; var n,x,y,i : integer; Begin Randomize; For i:=1 to 1000 do Begin n:=Random(16); x:=Random(80); y:=Random(25); Textcolor(n); GoToXy(x,y); Write('*'); delay(100); End; End.
Объяснение кода листинга программы
- Программа называется
WeLoveStaRS
. - Используется модуль
crt
. - Вектор переменных
n, x, y, i
определен как целочисленный. - Функция
Randomize
используется для инициализации генератора случайных чисел. - Используется цикл
For
для выполнения 1000 итераций. - На каждой итерации:
- Переменная
n
получает случайное значение из диапазона [0..15]. - Переменные
x
иy
получают случайные значения из диапазонов [0..79] и [0..24] соответственно. - Функция
Textcolor
используется для установки цвета текста на значение переменнойn
. - Функция
GoToXy
используется для перехода к координатам (x,y) на экране. - Выводится символ '*'.
- Функция
delay
используется для задержки выполнения программы на 100 миллисекунд.
- Переменная
- После завершения цикла программа завершается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д