Question

1. Разработать подпрограмму для вычисления значения функции (функция определена в таблице 1). Значение функции вычислять с точностью до тысячных долей. Рассмотреть два варианта реализации подпрограммы: подпрограмма-процедура и подпрограмма-функция. Использовать подпрограмму для построения таблицы значений функции в 10 различных точках.

Answer 1

Function Fx(x:real):real;
begin
  if x=1 then Fx:=1e18 { вместо бесконечности }
  else if x<0 then Fx:=exp(-x)
  else if x<=4.5 then Fx:=1-ln(abs(1-x*x))
  else Fx:=2*x
end;

procedure Px(x:real; var y:real);
begin
  if x=1 then y:=1e18 { вместо бесконечности }
  else if x<0 then y:=exp(-x)
  else if x<=4.5 then y:=1-ln(abs(1-x*x))
  else y:=2*x
end;

var
  x,y:real;
  i:integer;
begin
  for i:=-4 to 9 do
  begin
    x:=i;
    Px(x,y);
    Writeln(x:2,Fx(x):25:3,y:25:3)
  end  
end.