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.

Question

Информатика

Андрейка

16 июля, 19:30

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.

+4

Ответы (1)

Знаешь ответ?

Никушка · 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.