Решаем задачи Абрамян на Паскале. 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

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

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