{* Перевод градусной меры в радианную. *}

REM basic

' Перевод градусной меры в радианную.


10 deg = 0: min = 0: sec = 0: {Градусы, минуты, секунды
}20 rad = 0: {Радианы
}30 {Начало выполняемой части программы
}40 CLS
50 PRINT { Введите значение в градусной мере deg°min'sec" + CHR$(34)
}60 INPUT " deg = "; deg
70 If deg < 0 GoTo 80
80 INPUT " min = "; min
90 If min < 0 Or min > 59 GoTo 100
100 INPUT " sec = "; sec
110 If sec < 0 Or sec > 59 GoTo 120
120 rad = 3.1415 /180 * (deg + min /60 + sec/ 3600)
130 PRINT "Это соответствует";
140 PRINT Using "###.##"; rad;
150 PRINT "радиан"
160 End