Главная
Решение задач.
Справочные данные.
Формулы.
Программирование.
Как в Windows?
Разное.
Утилиты Windows.
Несправности принтеров.
BIOS по алфавиту.
Тесты.
Карта сайта.
|
Перевод градусной меры в радианную.
10 deg = 0: min = 0: sec = 0: REM Градусы, минуты, секунды
20 rad = 0: REM Радианы
30 REM Начало выполняемой части программы
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
Web программирование Pascal&Delphi Бeйсик
|
|
|