функция Лапласа Опции

[Yurka]

Помогите исправить ошибку, задание прикрепляю. Текст программы ниже , вообщем работу вернули сказали что функция Лапласа неправильно записана. Да ещё один момент - работа нужна на завтра .

Код

uses Crt;
var  x{аргумент функции },
    y{значение функции},
    n{количество узлов табулирования},
    Ch,P,Cb,
    betta,
    gamma,
    sigma,
    sh{шаг табулирования}:real;
    xmax,xmin:integer;
begin
   ClrScr;
     {ввод начальних данних}
   xmax:=6;
   xmin:=-6;
   write('введите число узлов табулирования  ');read(n);
   write(' введите SIGMA   ');read(SIGMA);
   write(' введите betta');read(betta);
   write(' введите x   ');read(x);
   write(' введите  xmin i xmax  ');read(xmin);read(xmax);
   sigma:=gamma;
   Ch:=(1-exp((-xmax*xmax)/(2*SIGMA*SIGMA)));
   Cb:=1/(2z/sqrt(2*3.14)*sum*(-1)/(2*k+1)*((z*z)/2)*xmax/sigma)- (2z/sqrt(2*3.14)*sum*(-1)/(2*k+1)*((z*z)/2)(min/sigma);

    {вичисление шага табуляции}
   sh:=12/(n);
   {задание начального значения функции}
   x:=1;
   {табулирование функции}
   while(x<xmax) do begin
     {вичисление функции}
     P:=Ch*Cb/2*gamma*exp(2/3*ln(1+(sqr((x-betta)/gamma))));

     {вивод на екран}
     writeln(x:2:2,'  ',P:4:4);
     {приривание аргумента}
     x:=x+sh;
   end;
end.

!

прикрепление файлов *.doc запрещено правилами форума. мисс_граффити

Сообщение отредактировано: мисс_граффити - 9.01.2007 21:12