Лабораторные работы / Программы / Код некоторых программ - 2003 / Табулирование
.docТабулирование заданной функции
Program tab;
uses crt;
var
x,y:real;
begin
clrscr;
x:=-5;
while(x<=5) do
begin
y:=-2.505-2.802*x+4.175*x*x+x*x*x;
writeln('x:= ',x:5:3,' ','y:=',y:5:3);
x:=x+0.5;
end;
repeat until keypressed;
end.
Результат:
x:= -5.000 y:=-9.120
x:= -4.500 y:=3.523
x:= -4.000 y:=11.503
x:= -3.500 y:=15.571
x:= -3.000 y:=16.476
x:= -2.500 y:=14.969
x:= -2.000 y:=11.799
x:= -1.500 y:=7.717
x:= -1.000 y:=3.472
x:= -0.500 y:=-0.185
x:= 0.000 y:=-2.505
x:= 0.500 y:=-2.737
x:= 1.000 y:=-0.132
x:= 1.500 y:=6.061
x:= 2.000 y:=16.591
x:= 2.500 y:=32.209
x:= 3.000 y:=53.664
x:= 3.500 y:=81.707
x:= 4.000 y:=117.087
x:= 4.500 y:=160.555
x:= 5.000 y:=212.860