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

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

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

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

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

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

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

Начало кода
Очистка экрана и установка таймера
Установка размера и положения окна экрана
Вычисление значения переменной A
Вычисление значения переменной H
Вычисление значения переменной S
Рисование линий треугольника на экране
Печать значений переменных A и S на экран
Конец кода