Вычислить площадь любого четырехугольника - QBasic

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

1. Визитная карточка разработчика 2. Вычисление: Площадь любого четырёхугольника S=1/2*D1*D2*sinA 3. Выполнить чертёж в соответствии с заданием 2 4. Организация выхода

Решение задачи: «Вычислить площадь любого четырехугольника»

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

CLS
INPUT "введите d1";d1
INPUT "введите d2";d2
INPUT "введите a";a
S=0.5*d1*d2*SIN(a)
PRINT "площадь равна";S
PRINT "если вы хотите закончить работу введите 0"
INPUT e
IF e<>0 THEN GOTO 1

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

Запуск программы.
Ввод значения переменной d1.
Ввод значения переменной d2.
Ввод значения переменной a.
Расчет площади четырехугольника по формуле S = 0.5 d1 d2 * SIN(a).
Вывод результата расчета площади на экран.
Ввод значения переменной e.
Если значение переменной e не равно 0, то выполнение программы завершается и возвращается в начало (1).