Построить линейную диаграмму по пяти заданным числам - QBasic

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

Построить линейчатую диаграмму по пяти заданным числам. Закрасить ее части в случайные цвета. Заранее спасибо!

Решение задачи: «Построить линейную диаграмму по пяти заданным числам»

Листинг программы

SCREEN 12
DIM x(1 TO 5)
FOR i=1 TO 5
   INPUT x(i)
   IF x(i)>max OR i=1 THEN max=x(i)
   IF x(i)<max OR i=1 THEN min=x(i)
NEXT i
k=400/max
FOR i=1 TO 5
LINE(i*100,480)-(i*100+50,480-k*x(i)), INT(RND*15)+1, bf
NEXT i

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

SCREEN 12 - Отображение диаграммы на экране 12.
DIM x(1 TO 5) - Создание массива x, который будет содержать пять чисел.
FOR i=1 TO 5 - Начинается цикл, который будет выполняться пять раз, где i - это номер числа в массиве x.
INPUT x(i) - Ввод числа в массив x с помощью функции INPUT.
IF x(i)>max OR i=1 THEN max=x(i) - Находится максимальное число в массиве x. Переменная max инициализируется значением первого введенного числа, если оно больше предыдущего максимального числа или если это первый элемент массива.
IF x(i)<max OR i=1 THEN min=x(i) - Находится минимальное число в массиве x. Переменная min инициализируется значением первого введенного числа, если оно меньше предыдущего минимального числа или если это первый элемент массива.
NEXT i - Переход к следующему элементу массива.
k=400/max - Переменная k инициализируется значением 400, деленным на максимальное число.
FOR i=1 TO 5 - Начинается цикл, который будет выполняться пять раз, где i - это номер числа в массиве x.
LINE(i100,480)-(i100+50,480-kx(i)), INT(RND15)+1, bf - Рисуется линия на диаграмме. Функция LINE используется для рисования линии между двумя точками. Первая точка находится по координатам (i100,480), а вторая точка - по координатам (i100+50,480-k*x(i)). Последний аргумент функции LINE - это номер цвета, который используется для рисования линии.
NEXT i - Переход к следующему элементу массива.
Код завершается.