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

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

Решение:

program Proc32;

Function DegToRad(D:Real):Real;
begin
  DegToRad:=D*3.14/180;
end;

var
  i:Integer;
  D:Real;

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

   Writeln(DegToRad(D));
  end;
end.

program Proc32;

Function DegToRad(D:Real):Real;

begin

DegToRad:=D*3.14/180;

end;

var

i:Integer;

D:Real;

begin

for i:=1 to 5 do

begin

Write('D :');

Readln(D);

Writeln(DegToRad(D));

end;

end.

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

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

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

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