Цитата:
Сообщение от Long Cat
И да, смените Real на Double.
|
Это я как-то не очень понимаю - зачем бы? Вроде нигде там особо больших чисел не образуется. У меня, например, проходит без проблем так:
Код:
program funckcija;
uses crt;
var x:real;
function func(xs:real):real;
begin
func:=xs*sqr(xs)-sqr(xs)+16*xs-43;
end;
begin
clrscr;
x:=-4;
repeat
x:=x+0.5;
writeln(x:4:1,func(x):10:2);
until x=4;
readln
end.
А вообще я бы, на свой вкус, решал эту задачку так:
Код:
var
i:integer;
begin
For i:=-8 to 8 do
WriteLn(0.5*i:4:1, (0.125*i*i*i-0.25*i+8*i-43):10:2);
readln;
end.