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