Работа с параметрами

Night_Rain · 10.12.2012, 02:25

Составить программу, которая содержит две функции: для вычисления гиперболического тангенса th(x) и обратной к ней функции гиперболического арктангенса arth(x). Составить процедуру, которая получает в качестве параметра значение аргумента x и возвращает значения x1=arth(th(x)) и x2=th(arth(x)), вычисленные с использованием двух введенных функций. Вызвать данную процедуру из тела основной программы для нескольких значений аргумента x. Для каждого такого вызова программа должна определять, какое из вычисленных значений (x1 или x2) ближе к исходному значению x.

Pascal.

Vladimir_S · 10.12.2012, 10:38

Цитата:

Сообщение от Night_Rain

Составить программу, которая содержит две функции...

Решительно не вижу проблем. Пожалуйста:

Код:

Var
 x,x1,x2:Extended;
 i:Integer;

function Th(z:extended):extended;
begin
 Th:=(Exp(z)-Exp(-z))/(Exp(z)+Exp(-z));
end;

function ArTh(z:extended):extended;
begin
 ArTh:=(1/2)*Ln((z+1)/(1-z));
end;

Procedure Var_s(y:extended; var y1:extended; var y2:extended);
begin
 y1:=ArTh(Th(y));
 y2:=Th(ArTh(y));
end;

Begin
 For i:=-9 to 9 do
  begin
   x:=i/10;
   Var_s(x,x1,x2);
   Write('x=',x:4:1,'   x1=',x1,'   x2=',x2);
   If Abs(x-x1)<Abs(x-x2) then
    Writeln('   x1')
   else
    Writeln('   x2');
  end;
 Readln;
End.

10.12.2012, 02:25	#1 (permalink)
Night_Rain Новичок Регистрация: 25.11.2012 Сообщений: 9 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Работа с параметрами Составить программу, которая содержит две функции: для вычисления гиперболического тангенса th(x) и обратной к ней функции гиперболического арктангенса arth(x). Составить процедуру, которая получает в качестве параметра значение аргумента x и возвращает значения x1=arth(th(x)) и x2=th(arth(x)), вычисленные с использованием двух введенных функций. Вызвать данную процедуру из тела основной программы для нескольких значений аргумента x. Для каждого такого вызова программа должна определять, какое из вычисленных значений (x1 или x2) ближе к исходному значению x. Pascal.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070