uses crt;
var Rd,Gr,G,M,S:real;GMS:string;
begin
clrscr;
write('Rd=');readln(Rd);
Gr:=Rd*180/pi;
G:=int(Gr);
M:=int(frac(Gr)*60);
S:=frac(frac(Gr)*60);
Write(Rd:4:2,'rad= ',G:3:0,'gr ',M:3:0,'min ',S:3:1,'sec');
readln
end.
Вариант 2
uses crt;
var Rd,Gr,G,M,S:real;GMS:string;
begin
clrscr;
write('Rd=');readln(Rd);
Gr:=Rd*180/pi;
G:=int(Gr);
M:=int(frac(Gr)*60);
S:=frac(frac(Gr)*60);
Write(Rd:4:2,'rad= ',G:3:0,'gr ',M:3:0,'min ',S:3:1,'sec');
readln
end.
Вариант 3
Program
uses crt;
var Rd,Gr,G,M,S:real;GMS:string;
begin
clrscr;
write('Rd=');readln(Rd);
Gr:=Rd*180/pi;
G:=int(Gr);
M:=int(frac(Gr)*60);
S:=frac(frac(Gr)*60);
Write(Rd:4:2,'rad= ',G:3:0,'gr ',M:3:0,'min ',S:3:1,'sec');
readln
end.
Похожие записи/страницы:
- Написать функцию, которая вычисляет значение ab. Числа a и b могут быть любыми дробными положительными числами -…
- Написать программу,которая по заданным значениям чисел а и b находит а. В запросе укажите допустимые значения…
- Дан массив А обыкновенных дробей, найти сумму всех дробей, результат вывести в виде несократимой дроби. Задачу…
- Даны 4 числа -5.8 ; 5.8 ; -3.2 ; 3.2 Необходимо для каждого выполнить Int,Trunc, Round, Frac. - Pascal(Паскаль)
- В массиве A(n), состоящий из вещественных чисел, возвести в квадрат все нечетные отрицательные числа, а…
- Перевести числа из 10 системы счисления в троичную систему счисления - Pascal(Паскаль)
- Составить программу генерации с помощью датчика случайных чисел и записи в текстовый файл N математических…
- Дано действительное число х, натуральное число n. Вычислить: 1/x+1/x(x+1)+...+1/x(x+1)...(x+n) - Pascal(Паскаль)