Предмет: Информатика,
автор: tosyaryzhkova
Формулу надо перевести на язык паскаль!!Пожалуйста!
Приложения:

Ответы
Автор ответа:
0
Учтем, что в "традиционном" Паскале нет многих математических функций и их нужно моделировать.
![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^{bln(a)}; quad sqrt[3]{x}=x^{1/3}=e^{ln(x)/3} 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^{bln(a)}; quad sqrt[3]{x}=x^{1/3}=e^{ln(x)/3}](https://tex.z-dn.net/?f=displaystyle+lg%28x%29%3D+frac%7Bln%28x%29%7D%7Bln%2810%29%7D%3B+quad+ctg%28x%29%3D+frac%7B1%7D%7Btg%28x%29%7D%3B+quad+sqrt%5B4%5D%7Bx%7D%3D+sqrt%7Bsqrt%7Bx%7D%7D%3B+%5C++%5C+a%5Eb%3De%5E%7Bbln%28a%29%7D%3B+quad++sqrt%5B3%5D%7Bx%7D%3Dx%5E%7B1%2F3%7D%3De%5E%7Bln%28x%29%2F3%7D+)
В то же время, современная версия 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) 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=displaystyle+lg%28x%29+to+Log10%28x%29%3B+quad+ctg%28x%29%3D1%2FTan%28x%29+quad+sqrt%5B4%5D%7Bx%7D%3DPower%28x%2C0.25%29%3B+%5C+%5C+a%5Eb%3DPower%28a%2Cb%29%3B+quad+sqrt%5B3%5D%7Bx%7D%3DSign%28x%29%2APower%28Abs%28x%29%2C1%2F3%29)
А теперь запись самого выражения.
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.
Автор ответа:
0
Огромное спасибо!
Похожие вопросы
Предмет: Биология,
автор: 22111985sm
Предмет: Физика,
автор: kirausinska632
Предмет: Українська мова,
автор: nikysya5211
Предмет: Алгебра,
автор: Evgenistruts
Предмет: Математика,
автор: andrei197947