1. Разработать подпрограмму для вычисления значения функции (функция определена в таблице 1). Значение функции вычислять с точностью до тысячных долей.
Рассмотреть два варианта реализации подпрограммы: подпрограмма-процедура и подпрограмма-функция.
Использовать подпрограмму для построения таблицы значений функции в 10 различных точках.
Приложения:
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад