Условный оператор.Вычислить значение функции

@_SpectR_ · Регистрация: 17.10.2011

Author24 — интернет-сервис помощи студентам

Нужно к завтрашнему дню!
Дано x,y.
Вычислить функцию z= $https://www.cyberforum.ru/cgi-bin/latex.cgi?{y}^{2}$ - $https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{x*\sqrt{{y}^{3}+4x*y}}{sin(x)*cos(y)+4}$

Если z>0, то вычислить функцию w=arcsin(2*x*y)+ $https://www.cyberforum.ru/cgi-bin/latex.cgi?{e}^{2}^{x}^{y}$ . Если z=0, вывести значение x и y, иначе - вычислить p = lg(x*y)+ $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sqrt{{x}^{2}*{y}^{3}}$

@_SpectR_ · 10.11.2011, 17:19 **[ТС]**

помогите, в чем ошибка???

Pascal

program sem1;
uses crt;
var x,y,z,p,w:real;
Begin
Clrscr;
Writeln('Vvedite x,y');
readln(x,y);
function pow(x, n: real):real;
Begin
pow := exp(n*ln(x));
End;
z:=y*y-((x*sqrt(pow(y,3)+4*x*y))/(sin(x)*cos(y)+4));
if (z>0)
then
    w:=asin(2*x*y)+exp(2*x*y);
else
    if (z=0)
    then
    writeln('x,y');
    else
        p = log10(x*y)+sqrt(pow(x,2)+pow(y,3));
Writeln('p');
end.

@_SpectR_ 1 / 1 / 1 Регистрация: 17.10.2011 Сообщений: 57
		1
	Условный оператор.Вычислить значение функции 07.11.2011, 21:11. Показов 3086. Ответов 1 Метки нет (Все метки) Нужно к завтрашнему дню! Дано x,y. Вычислить функцию z= $https://www.cyberforum.ru/cgi-bin/latex.cgi?{y}^{2}$ - $https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{x\sqrt{{y}^{3}+4xy}}{sin(x)cos(y)+4}$ Если z>0, то вычислить функцию w=arcsin(2xy)+ $https://www.cyberforum.ru/cgi-bin/latex.cgi?{e}^{2}^{x}^{y}$ . Если z=0, вывести значение x и y, иначе - вычислить p = lg(xy)+ $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sqrt{{x}^{2}*{y}^{3}}$ 0

	10.11.2011, 17:19

Условный оператор.Вычислить значение функции

Решение