Реферат: Вычисление интеграла фукции f (x) (методом Симпсона WinWord)

else begin

{ Если число меньше единицы }

if (a<1) then begin

n:=1;

repeat

a:=a*10;

n:=n/10;

until (trunc(a)<>0);

end else begin

{ Если число больше единицы }

n:=1;

repeat

a:=a/10;

n:=n*10;

until (trunc(a)=0);

end;

end;

a:=n;

end;

{ Построение графика функции }

procedure out_grp(xmin,xmax,ymin,ymax:real);

var

drv,mode:integer;

mx,my:real; { Масштабы по осям }

xx,yy:real; { Текущие координаты }

sx:real; { Шаг по оси X }

dltx,dlty:integer;{ Приращение на графике при смещении графика }

s:string; { Строка }

begin