Как в паскале записать программу , решающее выражение 7х²-2(х-3)/х-3?
Проводится работа с операторами (если, то, иначе) и при написании вылезает ошибка 1001 "переменной не присвоено значение". Что делать, спасите?
Проводится работа с операторами (если, то, иначе) и при написании вылезает ошибка 1001 "переменной не присвоено значение". Что делать, спасите?
Answers & Comments
var x:integer;
y:real;
Begin;
Writeln ('Введите значение х:');
Readln(x);
If x=3 then writeln ('Знаменатель равен 0!')
else
y:=(7*sqr(x)-(x-3)*2)/(x-3);
Writeln('у=',y);
End.
x,a,b: Integer;
y: Real;
Begin
WriteLn('Введите x');ReadLn(x);
if x = 3 then begin
WriteLn('Знаменатель равен 0!');
end else begin
a:= x - 3;
b:= 7 * x * x - a * 2;
y:=b / a;
WriteLn(y);
end;
end.