Решаем задачи Абрамян на Паскале. Proc 33

Proc33. Описать функцию RadToDeg($$R$$) вещественного типа, находящую величину угла в градусах, если дана его величина $$R$$ в радианах ($$R$$ — вещественное число, $$0 < R < 2*\pi$$). Воспользоваться следующим соотношением: $$180^o = \pi$$ радианов. В качестве значения ? использовать 3.14. С помощью функции RadToDeg перевести из радианов в градусы пять данных углов.

Решение:

program Proc33;

Function  RadToDeg(R:Real):Real;
begin
  RadToDeg:=180*R/3.14;
end;

var
  i:Integer;
  R:Real;

begin
 for i:=1 to 5 do
  begin
   Write('R :');
   Readln(R);

   Writeln(RadToDeg(R));
  end;
end.

program Proc33;

Function RadToDeg(R:Real):Real;

begin

RadToDeg:=180*R/3.14;

end;

var

i:Integer;

R:Real;

begin

for i:=1 to 5 do

begin

Write('R :');

Readln(R);

Writeln(RadToDeg(R));

end;

end.

Другие задачи из раздела Proc можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Proc 33

Комментарии:

Добавить комментарий Отменить ответ