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

Информатика

Манюра

5 апреля, 15:46

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.

+1

Ответы (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.