задачка в паскальчике

[котопек]

Дано вещественное число z.Вычислить y=sh(z)*tg(z+1)-tg(2+sh(z-1))*tg(2+sh(z-1))
при решении задачи определить и использовать функции тангенса и гиперболического синуса sh(x)=(e^x-e^-x)/2

 

[котопек]

при решении использовать функцию

 

[AlexZir]

sh(x)= (e^x-e^-x)/2

Расшифруйте эту строчку или перепишите в соответствии с синтасисом Pascal.

 

[котопек]

sh(x)=е в степени икс минус е в степени минус икс све это делить на два

 

[bubuka]

В поскале в стнадартных фунциях есть получение экспоненты exp(x:real):real;
Так как в паскале не стнадартной функции полчения тангенса то напишим их сами. Заодно и получение значения sh(X) И так программа

function tang(x:real):real; { находим тангес }
begin
tang:=sin(x)/cos(x);
end;

function sh(x:real):real; { находим значение sh}
begin
sh:=(exp(x)-exp(-x))/2;
end;

var
y,z:real;

begin

readln(z);

y:=sh(z)*tang(z+1)-tang(2+sh(z-1))*tang(2+sh(z-1));

writeln(z);

end.

принмаю благодарности в том числе и на яндекс.деньги 41001234877379

 

[AlexZir]

принмаю благодарности в том числе и на яндекс.деньги 41001234877379

Какой там, скорее спамом завалят, чем отблагодарят Еще и крайним останетесь.