Помогите на паскале написать формулы, чтобы потом в окне ввода в все и цмфру, а программа потом вычислила
Приложения:
Ответы
Ответ дал:
0
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.
Ответ дал:
0
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)
else
if (n>0) and (n<1) then writeln('f= ',n)
else
if n>=0 then writeln('f= ',sqr(n)*sqr(n));
end.
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)
else
if (n>0) and (n<1) then writeln('f= ',n)
else
if n>=0 then writeln('f= ',sqr(n)*sqr(n));
end.
Ответ дал:
0
Чтобы такой абракадабры не было, используйте Мозиллу
Ответ дал:
0
мне и так сойдёт)
Ответ дал:
0
Со второй не выходит(
Вас заинтересует
2 года назад
2 года назад
3 года назад
3 года назад
9 лет назад
10 лет назад