Разбросать по экрану 1000 звездочек в случайном месте случайным цветом с небольшой задержкой - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Задача : "По экрану разбросайте 1000 звездочек в случайном месте случайным цветом с небольшой задержкой." Мой код :
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.
Почему он рисует всего 1 звездочку по окончанию работы программы?

Решение задачи: «Разбросать по экрану 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.

Объяснение кода листинга программы

  1. Программа называется WeLoveStaRS.
  2. Используется модуль crt.
  3. Вектор переменных n, x, y, i определен как целочисленный.
  4. Функция Randomize используется для инициализации генератора случайных чисел.
  5. Используется цикл For для выполнения 1000 итераций.
  6. На каждой итерации:
    • Переменная n получает случайное значение из диапазона [0..15].
    • Переменные x и y получают случайные значения из диапазонов [0..79] и [0..24] соответственно.
    • Функция Textcolor используется для установки цвета текста на значение переменной n.
    • Функция GoToXy используется для перехода к координатам (x,y) на экране.
    • Выводится символ '*'.
    • Функция delay используется для задержки выполнения программы на 100 миллисекунд.
  7. После завершения цикла программа завершается.

Оцени полезность:

14   голосов , оценка 3.857 из 5
Похожие ответы