Помогите ** паскале написать формулы, чтобы потом в окне ввода в все и цмфру, а программа...

Question

Помогите на паскале написать формулы, чтобы потом в окне ввода в все и цмфру, а программа потом вычислила

---

Comments

столько писал,писал и забыл добавить сюда(((,не сохранил

---

щас ещё раз попытаюсь

Answer 1

1)
var
x:real;
begin
    Write('x = ');
    Readln(x);Write('y = ');
    Writeln(abs(x*x - x*x*x) - 7*x/(x*x*x - 15*x));
end.

2)
var
x:real;
begin
Write('x = ');
Read(x);Write('y = ');
if (x <= 0) then<br>  Writeln(0)
    else
      if (x <= 1) then<br>        Writeln(x)
          else
            Writeln(x*x*x*x);
end.

Answer 2

Var x,y,n,f:real;beginwriteln('Введите значение x: ');readln(x);y:=abs(sqr(x)*sqr(x)*x)-(7*x)/(sqr(x)*x-15*x);writeln('y= ',y);writeln('Введите значение n: ');readln(n);if n<=0 then writeln('f= ',0)elseif (n>0) and (n<1) then writeln('f= ',n)elseif n>=0 then writeln('f= ',sqr(n)*sqr(n));end.

Comments

var
x,y,n,f:real;
begin
writeln('Введите значение x: ');
readln(x);
y:=abs(sqr(x)*sqr(x)*x)-(7*x)/(sqr(x)*x-15*x);
writeln('y= ',y);
writeln('Введите значение n: ');
readln(n);
if n<=0 then writeln('f= ',0)<br>else
if (n>0) and (n<1) then writeln('f= ',n)<br>else
if n>=0 then writeln('f= ',sqr(n)*sqr(n));
end.

---

Чтобы такой абракадабры не было, используйте Мозиллу

---

мне и так сойдёт)

---

Со второй не выходит(