Главная
Решение задач.
Справочные данные.
Формулы.
Программирование.
Как в Windows?
Разное.
Утилиты Windows.
Несправности принтеров.
BIOS по алфавиту.
Тесты.
Карта сайта.
|
Перевод градусной меры в радианную.
program degrad;
uses crt; //* Подключение модуля работы с экраном */
var deg, min, sec :integer; //* Градусы,минуты,секунды */
rad:real; //* Радианы */
BEGIN
clrscr; //* Очистка экрана */
writeln(' Введите значение в градусной мере deg min"sec"');
write(' deg = ');
readln(deg);
while (deg<0) do begin
write(chr(7),' deg = ');
readln(deg);
end;
write(' min ');
readln(min);
while (min<0) or (min>59) do begin
write(chr(7),' min =');
readln(min);
end;
write(' sec = ');
readln(sec);
while (sec<0) or (sec>59) do begin
write(chr(7),' sec =');
readln(sec);
end;
rad:=3.1415/180*(deg+min/60+sec/3600); //* Переводим в радианы */
write(' Это соответствует ',rad:3:2,' радиан');
readln;
END.
Web программирование Pascal&Delphi Бeйсик
|
|
|