Как в паскале записать программу, решающее выражение 7 х²-2 (х-3) / х-3?

Проводится работа с операторами (если, то, иначе) и при написании вылезает ошибка 1001 "переменной не присвоено значение". Что делать, спасите?

Question

Информатика

Африкан

15 ноября, 16:42

Как в паскале записать программу, решающее выражение 7 х²-2 (х-3) / х-3?

Проводится работа с операторами (если, то, иначе) и при написании вылезает ошибка 1001 "переменной не присвоено значение". Что делать, спасите?

+1

Ответы (1)

Знаете ответ на вопрос?

Валентыч · Answer 1

VAR

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.