Объясните, пожалуйста, в чем ошибка program Funk; uses Crt; var x,y: integer; begin for...

Question

Объясните, пожалуйста, в чем ошибка
program Funk;
uses Crt;
var x,y: integer;
begin
for x:=-8 to 8 do
y:=x*x+4/x+3;
writeln (y);
writeln (x);
if x=0 then writeln ('Функция не определена');
readkey
end.
Пишет, что нельзя преобразовать тип real к integer, что то значит?

Comments

integer - числа целые, а у тебя в строке:y:=x*x+4/x+3;4 делится на x, там может получится дробь, вот компилятор и ругается...

---

А что должна делать прога?

---

Вывести значение x и y

---

program Funk;uses Crt;varx: integer;y:real;beginfor x:=-8 to 8 doBeginif x=0 then writeln ('Функция не определена')else Beginy:=x*x+4/x+3;writeln('f(',x,') = ',y);EndEnd;readkeyend.

Answer 1

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