паскаль

[Kira51]

напишите пожалуйста программу в паскале для решения системы y={ 2x-1, если x<0 и -x+1/x^(2), если x>=0

[grom333]

я не понял этого условия.... -x+1/x^(2)

[whatever]

if x<0 then
  y:=2*x-1
else
  y:=-x+1/sqr(x);

[Kira51]

это значит, что -x+один разделить на икс во второй степени

[grom333]

Нет, я имею ввиду, что это выражение должно быть больше Х?

[Kira51]

а не могли бы вы пожалуйста написать целиком программу!!! Заранее спасибо

[grom333]

При всем уважении, воспользуюсь готовым кодом whatever,

var
x,y:real;
begin
writeln('vvedite X');
readln(x);
if x<0 then
y:=2*x-1 else
y:=-x+1/sqr(x);
writeln ('y = ', y:4:2);
readln;
end.

[whatever]

Сообщение от grom333

При всем уважении, воспользуюсь готовым кодом whatever,

var
x,y:real;
begin
writeln('vvedite X');
readln(x);
if x<0 then
y:=2*x-1 else
y:=-x+1/sqr(x);
writeln ('y = ', y:4:2);
readln;
end.

Для друзей кодов не жалко . Но что-то мне подсказывает, что для ТС и этого кода будет мало...

[Kira51]

В смысле..?

[Kira51]

а почему для второго икс нет условия?