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

REM basic

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


10 deg = 0: min = 0: sec = 0: {Градусы, минуты, секунды
}20 rad = 0: {Радианы
}30 CLS 40 INPUT" Введите значение в радианной мере "; rad 50 If rad < 0 GoTo 70: {не меньше 0
}60 rad = 180/3.1415 * rad: {Переводим в градусы
}70 deg = INT(rad): {Получаем градусы
}80 rad = (rad - deg) * 60: {Переводим в минуты
}90 min = INT(rad): {Получаем минуты
}100 rad = (rad - min) * 60: {Переводим в секунды
}110 sec = INT(rad + .5): {Получаем секунды
}120 PRINT " Это соответствует "; deg;"°"; min; ; sec; CHR$(34)
130 End