Program N2; var x,y:real; begin writeln ('Задание: Вычислить значение функции у=1/(х+2)...

Question

Program N2;
var x,y:real;
begin
writeln ('Задание: Вычислить значение функции у=1/(х+2) - 4/(х-2).');
writeln ('Введите значение x');
readln (x);
if (x+2)<>0 and (x-2)<>0 then
\\на этой строке выдаёт "Нельзя преобразовать тип real к integer"
ставя курсор на (x-2)<>0
begin
y:=1/(x+2)-4/(x-2);
writeln('Значение функции равно ',y);
end
else writeln ('Не имеет значений при данном x');
end.

Comments

ф что сделать то надо?

---

а что сделать то надо?

---

Антагонист, writeln ('Задание: Вычислить значение функции у=1/(х+2) - 4/(х-2).');. Я прав, а вы нет. И я уже всё сделал без вашей умной задницы.

Answer 1

Var x,y:real;
begin
writeln ('Задание: Вычислить значение функции у=1/(х+2) - 4/(х-2).');
writeln ('Введите значение x');
readln (x);
if ((x+2)<>0) and ((x-2)<>0) then {в это строке я просто (x+2)<>0  и (x-2)<>0  поставил в скобки}
begin
y:=1/(x+2)-4/(x-2);
writeln('Значение функции равно ',y);
end
else writeln ('Не имеет значений при данном x');
end.

Comments

ТАДАААМ всё работает на ура, если вы конечно в формуле не ошиблись

---

Спасибо.