Найти площадь трегольника - QBasic

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

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

Решение задачи: «Найти площадь трегольника»

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

CLS
RANDOMIZE TIMER
 
A = 180 * RND + 20
H = A * SQR(3) / 2
S = A * H / 2
 
SCREEN 11
WINDOW (-200, 200)-(200, -100)
 
LINE (-A / 2, 0)-(A / 2, 0)
LINE (-A / 2, 0)-(0, H)
LINE (A / 2, 0)-(0, H)
 
PRINT "S ="; S
END

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

Объявлены три переменные: A, H, S.
Переменная A инициализируется значением, которое является случайным числом от 20 до 180.
Переменная H вычисляется как половина от произведения A на корень из трех.
Переменная S вычисляется как половина от произведения A на H.
Открывается окно графического режима с координатами (-200, 200)-(200, -100).
В этом окне рисуются три линии:
- первая линия соединяет точки (-A/2, 0) и (A/2, 0);
- вторая линия соединяет точки (-A/2, 0) и (0, H);
- третья линия соединяет точки (A/2, 0) и (0, H).
Выводится сообщение S = с значением переменной S.
Программа завершается.