Program teleshop; var x: real; begin writeln ( ); write ( ); write ( ); readln (x); if x =1 then begin - id548852720200828 от 8639 28.08.2020 20:23

Question

Информатика: Program teleshop; var x: real; begin writeln ( ); write ( ); write ( ); readln (x); if x =1 then begin if x=1 then begin writeln ( ); writeln ( ); end else begin writeln ( ); end; *else begin writeln ( ); end end. * - место ошибки. встречено else , а ожидалось оператор вопрос: в чем ошибка?

8639 · Accepted Answer

В операторе y:=x*x+4/x+3 используется операция деления, которая всегда возвращает вещественный тип. Следовательно, и всё выражение в правой части всегда будет иметь вещественный тип. А в левой части стоит переменная целого типа. Присваивание вещественного значения целочисленной переменной запрещено правилами языка Паскаль.
Чтобы избавиться от ошибки, нужно знать алгоритм, который реализует программа. В зависимости от алгоритма может быть использована операция целочисленного деления, может быть использована функция Trunc(), возвращающая целочисленное значение аргумента, либо переменная y должна объявляться вещественной.

MOGZ ответил