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