Скачиваний:
24
Добавлен:
07.01.2014
Размер:
19.97 Кб
Скачать

Табулирование заданной функции

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