Главная
Решение задач.
Справочные данные.
Формулы.
Программирование.
Как в Windows?
Разное.
Утилиты Windows.
Несправности принтеров.
BIOS по алфавиту.
Тесты.
Карта сайта.
|
Перевод радианной меры в градусную.
10 deg = 0: min = 0: sec = 0: REM Градусы, минуты, секунды
20 rad = 0: REM Радианы
30 CLS
40 INPUT" Введите значение в радианной мере "; rad
50 IF rad < 0 GOTO 70: REM не меньше 0
60 rad = 180/3.1415 * rad: REM Переводим в градусы
70 deg = INT(rad): REM Получаем градусы
80 rad = (rad - deg) * 60: REM Переводим в минуты
90 min = INT(rad): REM Получаем минуты
100 rad = (rad - min) * 60: REM Переводим в секунды
110 sec = INT(rad + .5): REM Получаем секунды
120 PRINT " Это соответствует "; deg;"°"; min; ; sec; CHR$(34)
130 END
Web программирование Pascal&Delphi Бeйсик
|
|
|