Построить совокупность n отрезков, окрашенных в случайные цвета и расположенных параллельно оси Y - QBasic

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

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

Построить совокупность n отрезков, окрашенных в случайные цвета и расположенных параллельно оси Y Помогите плиз!

Решение задачи: «Построить совокупность n отрезков, окрашенных в случайные цвета и расположенных параллельно оси Y»

textual
Листинг программы
DEFINT C, I, N
DEFSNG X-Y
CLS
INPUT "Vvedite N"; n
x0 = 640 / (n + 1)
SCREEN 12
 
FOR i = 1 TO n
   c = 15 * RND + 1
   LINE (x0 * i, 80)-(x0 * i, 400), c
NEXT i
END

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

  1. DEFINT C, I, N - Определяет три переменные типа integer (целые числа) с именами C, I и N.
  2. DEFSNG X-Y - Задает начало координат для графического режима (режим рисования) с помощью команды X-Y.
  3. CLS - Очищает экран перед выводом.
  4. INPUT Vvedite N; n - Запрашивает у пользователя ввод числа N (количество отрезков), присваивает значение переменной n.
  5. x0 = 640 / (n + 1) - Вычисляет значение переменной x0 (начальная координата X для каждого отрезка).
  6. SCREEN 12 - Устанавливает графический режим с разрешением 12.
  7. FOR i = 1 TO n - Запускает цикл, который будет выполняться n раз (от 1 до n).
  8. *c = 15 RND + 1** - Вычисляет значение переменной c (цвет отрезка). RND генерирует случайное число от 0 до 1, умноженное на 15 для получения значения в диапазоне от 15 до 30 (для представления в BASIC).
  9. LINE (x0 i, 80)-(x0 i, 400), c - Рисует отрезок с координатами (x0i, 80)-(x0i, 400) и цветом c.
  10. NEXT i - Переходит к следующей итерации цикла.
  11. END - Конец программы.

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

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