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 \\на этой строке выда...
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.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы