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

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

Помогите решить задачку: В файле данных записаны значения двух сторон треугольника и угла между ними для пятикратного вычисления третьей стороны. Вывести на экран результаты вычислений. Заранее спасибо)))

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

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

CONST Pi = 3.14159265358, Rad = 180 / Pi
 
  OPEN "Triangle.txt" FOR INPUT AS #1
    FOR i = 1 TO 5
       INPUT #1, a, b, ug
       ' По теореме косинусов
       c = SQR(b * b + a * a - 2 * a * b * COS(ug / Rad))
       PRINT "Treugolnik №"; i
       PRINT "Ugol ="; ug
       PRINT "a ="; a
       PRINT "b ="; b
       COLOR 15: PRINT "c ="; c: COLOR 7
    NEXT
  CLOSE #1

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

В этом коде речь идёт о вычислении стороны треугольника по формуле, которая основана на теореме косинусов. Список действий, которые происходят в коде:

Открывается файл «Triangle.txt» для чтения.
Происходит цикл, в котором пять раз считываются значения сторон треугольника a, b, и угол ug.
Вычисляется значение стороны c по формуле, которая использует три стороны треугольника (значения a, b) и угол ug.
Выводится сообщение, которое содержит номер треугольника (от 1 до 5), значение угла ug, значения сторон a и b, а также вычисленное значение стороны c.
Закрывается файл.