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.

Answer 2

1. Для перевода радианной меры угла в градусы, минуты и секунды используются следующие соотношения:

1 радиан = 180 / π градусов 1 градус = 60 минут 1 минута = 60 секунд

Чтобы перевести радианную меру угла в градусы, нужно умножить значение в радианах на 180 и разделить на π.

Пусть угол в радианах равен x. Тогда его значение в градусах будет равно:

градусы = (x * 180) / π

Чтобы перевести градусы в минуты и секунды, следует умножить десятичную часть градусов на 60, чтобы получить минуты. Затем, десятичную часть минут умножаем на 60, чтобы получить секунды.

Например, пусть угол в радианах равен 1.5. Тогда:

градусы = (1.5 * 180) / π = 85.94 градусов

Десятичная часть равна 0.94. Чтобы перевести ее в минуты, умножаем на 60:

минуты = 0.94 * 60 = 56.4 минут

Десятичная часть минут равна 0.4. Чтобы перевести ее в секунды, умножаем на 60:

секунды = 0.4 * 60 = 24 секунды

Таким образом, угол 1.5 радиана равен 85 градусам, 56 минутам и 24 секундам.

2. Чтобы убедиться, что среди чисел a, b и c есть хотя бы одна пара взаимно противоположных чисел, нужно проверить условие, что произведение двух чисел отрицательно.

То есть, если a * b < 0 или a * c < 0 или b * c < 0, то хотя бы одна пара чисел является взаимно противоположными.

Например, пусть у нас есть числа a = -5, b = 3 и c = 8. Тогда:

a * b = (-5) * 3 = -15 < 0

Поэтому в данном случае пара чисел a и b является взаимно противоположной.