Question

[50 баллов]
Pascal

1) Перевести радианную меру угла в градусы, минуты в секунды. Решить обратную задачу.

2) Среди чисел a, b, c хотя бы одна пара взаимно противоположных чисел

Answer 1

Ответ:

program RadToGrad;

var

 Rd, Gr, G, M, S: Real;

begin

 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, ' гр. ', M:3:0, ' мин ', S:3:1,' сек');

 ReadLn;

end.

program GradToRad;

var

 Rd, Gr, G, M, S: Real;

begin

 Write ('Введите грудусы, минуты, секунды: ');

 ReadLn (G, M, S);

 Gr := G + M / 60 + S / 3600;

 Rd := Gr * Pi / 180;

 Write ('Rad = ', Rd :15 :15);

 ReadLn;

end.

program Protiv;

var

 a, b, c: Integer;

begin

 Write ('Введите три числа: ');

 ReadLn (a, b, c);

 if a = - b then

   WriteLn (a, ' и ', b, ' взаимно противоположные.')

 else if a = - c then

   WriteLn (a, ' и ', c, ' взаимно противоположные.')

 else if b = - c then

   WriteLn (b, ' и ', c, ' взаимно противоположные.')

 else

   WriteLn ('Взаимно противоположных чисел нет.');

 ReadLn;

end.