Предмет: Информатика,
автор: zombikot99
Помогите на паскале написать формулы, чтобы потом в окне ввода в все и цмфру, а программа потом вычислила
Приложения:
Ответы
Автор ответа:
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
Со второй не выходит(
Похожие вопросы
Предмет: Биология,
автор: ldrach777
Предмет: Математика,
автор: tft78cfszs
Предмет: Математика,
автор: alisakozmina9
Предмет: Математика,
автор: 1Fletcher1
Предмет: Математика,
автор: kokkdjdj