Формулу надобно перевести на язык паскаль!!Пожалуйста!
Формулу надо перевести на язык паскаль!!Пожалуйста!
Задать свой вопрос
1 ответ
Sanek Sladinov
Учтем, что в "традиционном" Паскале нет многих математических функций и их необходимо моделировать.
![\displaystyle \lg(x)= \frac\ln(x)\ln(10); \quad ctg(x)= \frac1tg(x); \quad \sqrt[4]x= \sqrt\sqrtx; \\ \\ a^b=e^b\ln(a); \quad \sqrt[3]x=x^1/3=e^ln(x)/3](https://tex.z-dn.net/?f=%5Cdisplaystyle+%5Clg%28x%29%3D+%5Cfrac%7B%5Cln%28x%29%7D%7B%5Cln%2810%29%7D%3B+%5Cquad+ctg%28x%29%3D+%5Cfrac%7B1%7D%7Btg%28x%29%7D%3B+%5Cquad+%5Csqrt%5B4%5D%7Bx%7D%3D+%5Csqrt%7B%5Csqrt%7Bx%7D%7D%3B+%5C%5C++%5C%5C+a%5Eb%3De%5E%7Bb%5Cln%28a%29%7D%3B+%5Cquad++%5Csqrt%5B3%5D%7Bx%7D%3Dx%5E%7B1%2F3%7D%3De%5E%7Bln%28x%29%2F3%7D+ "\displaystyle \lg(x)= \frac\ln(x)\ln(10); \quad ctg(x)= \frac1tg(x); \quad \sqrt[4]x= \sqrt\sqrtx; \\ \\ 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+%5Clg%28x%29+%5Cto+Log10%28x%29%3B+%5Cquad+ctg%28x%29%3D1%2FTan%28x%29+%5Cquad+%5Csqrt%5B4%5D%7Bx%7D%3DPower%28x%2C0.25%29%3B+%5C%5C+%5C%5C+a%5Eb%3DPower%28a%2Cb%29%3B+%5Cquad+%5Csqrt%5B3%5D%7Bx%7D%3DSign%28x%29%2APower%28Abs%28x%29%2C1%2F3%29 "\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(Абс(x),1/3)")
А теперь запись самого выражения.
var x,y,z,p,q:real;
begin
...
p:=x-z;
q:=exp(p)+1;
y:=sqr(log10(abs((power(абс(power(sin(p),3)),0.25)+cos(p))/(tan(p)+
1/tan(p)))))-sign(q)*power(абс(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(абс(power(sin(p),3)),0.25)+cos(p))/(tan(p)+
1/tan(p)))))-sign(q)*power(абс(q),1/3);
...
end.
Эвелина
Громадное спасибо!
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов