Найти площадь боковой поверхности куба - QBasic

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

1) Дана длина ребра куба. Найти площадь боковой поверхности куба. Длину ребра куба ввести с клавиатуры или задать с помощью генератора случайных чисел. Вывести на экран изображение куба и результаты вычислений.

Решение задачи: «Найти площадь боковой поверхности куба»

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

CLS
RANDOMIZE TIMER
CONST pi = 3.141593
 
A = 20 + 120 * RND
S = 6 * A ^ 2
B = A / 2 * SIN(pi / 4)
 
SCREEN 11
WINDOW (-100, 200)-(300, -100)
 
LINE (0, 0)-(A, A), , B
LINE (0, A)-(B, A + B)
LINE (A, 0)-(A + B, B)
LINE (A, A)-(A + B, A + B)
LINE (B, A + B)-(A + B, A + B)
LINE (A + B, B)-(A + B, A + B)
PRINT "S ="; S
END

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

CLS - очистка экрана
RANDOMIZE TIMER - генерация случайного числа
CONST pi = 3.141593 - определение константы числа Пи
A = 20 + 120 * RND - генерация случайного числа и присваивание его переменной A
S = 6 * A ^ 2 - вычисление площади боковой поверхности куба и присваивание ее переменной S
B = A / 2 * SIN(pi / 4) - вычисление длины ребра куба и присваивание ее переменной B
SCREEN 11 - изменение размера окна вывода информации на экран
WINDOW (-100, 200)-(300, -100) - изменение размеров окна вывода информации на экран
LINE (0, 0)-(A, A), , B - рисование первой грани куба
LINE (0, A)-(B, A + B) - рисование второй грани куба
LINE (A, 0)-(A + B, B) - рисование третьей грани куба
LINE (A, A)-(A + B, A + B) - рисование четвертой грани куба
LINE (B, A + B)-(A + B, A + B) - рисование пятой грани куба
LINE (A + B, B)-(A + B, A + B) - рисование шестой грани куба
PRINT S =; S - вывод значения переменной S на экран
END - завершение работы программы