Мавр
5 год назад
Формулу надо перевести на язык паскаль!!Пожалуйста!
ОТВЕТЫ
Лозинский
Aug 9, 2019
Учтем, что в "традиционном" Паскале нет многих математических функций и их нужно моделировать.
![\displaystyle \lg(x)= \frac{\ln(x)}{\ln(10)}; \quad ctg(x)= \frac{1}{tg(x)}; \quad \sqrt[4]{x}= \sqrt{\sqrt{x}}; \\ \\ a^b=e^{b\ln(a)}; \quad \sqrt[3]{x}=x^{1/3}=e^{ln(x)/3}](https://tex.z-dn.net/f=5Cdisplaystyle+5Clg28x293D+5Cfrac7B5Cln28x297D7B5Cln2810297D3B+5Cquad+ctg28x293D+5Cfrac7B17D7Btg28x297D3B+5Cquad+5Csqrt5B45D7Bx7D3D+5Csqrt7B5Csqrt7Bx7D7D3B+5C5C++5C5C+a5Eb3De5E7Bb5Cln28a297D3B+5Cquad++5Csqrt5B35D7Bx7D3Dx5E7B12F37D3De5E7Bln28x292F37D+ "\displaystyle \lg(x)= \frac{\ln(x)}{\ln(10)}; \quad ctg(x)= \frac{1}{tg(x)}; \quad \sqrt[4]{x}= \sqrt{\sqrt{x}}; \\ \\ a^b=e^{b\ln(a)}; \quad \sqrt[3]{x}=x^{1/3}=e^{ln(x)/3}")
В то же время, современная версия PascalABC.Net 3.2 располагает более широким набором функций.
![\displaystyle \lg(x) \to Log10(x); \quad ctg(x)=1/Tan(x) \quad \sqrt[4]{x}=Power(x,0.25); \\ \\ a^b=Power(a,b); \quad \sqrt[3]{x}=Sign(x)*Power(Abs(x),1/3)](https://tex.z-dn.net/f=5Cdisplaystyle+5Clg28x29+5Cto+Log1028x293B+5Cquad+ctg28x293D12FTan28x29+5Cquad+5Csqrt5B45D7Bx7D3DPower28x2C0.25293B+5C5C+5C5C+a5Eb3DPower28a2Cb293B+5Cquad+5Csqrt5B35D7Bx7D3DSign28x292APower28Abs28x292C12F329 "\displaystyle \lg(x) \to Log10(x); \quad ctg(x)=1/Tan(x) \quad \sqrt[4]{x}=Power(x,0.25); \\ \\ a^b=Power(a,b); \quad \sqrt[3]{x}=Sign(x)*Power(Abs(x),1/3)")
А теперь запись самого выражения.
var x,y,z,p,q:real;
begin
...
p:=x-z;
q:=exp(p)+1;
y:=sqr(log10(abs((power(abs(power(sin(p),3)),0.25)+cos(p))/(tan(p)+
1/tan(p)))))-sign(q)*power(abs(q),1/3);
...
end.
В то же время, современная версия PascalABC.Net 3.2 располагает более широким набором функций.
А теперь запись самого выражения.
var x,y,z,p,q:real;
begin
...
p:=x-z;
q:=exp(p)+1;
y:=sqr(log10(abs((power(abs(power(sin(p),3)),0.25)+cos(p))/(tan(p)+
1/tan(p)))))-sign(q)*power(abs(q),1/3);
...
end.
233
Смежные вопросы:
