проверьте программу

[натка:)]

Program Gear ( Rezult:Str50;Ntpr:Word;x0,xmax,h,y0:Real;F:func);
Type
      func=function(x,y:Real):Real;
      Str50=StringProgram Gear         ( Rezult:Str50;Ntpr:Word;x0,xmax,h,y0:Real;F:func);
Type
      func=function(x,y:Real):Real;
      Str50=String[50];
Var
    yd,k1,k2,k3,k4,x,y:Real;
    i:word;
    out:text;
Begin
       x:=0;y:=0;
       Assign(out,Rezult);
       Rewrite(out);
       Writeln(out,'[интервал интегрирования,x:5:4,',',xmax:5:4,']');
       Writeln(out,'начальное условие y0=',y:5:4);
       Writeln(out,'погноз yd=');
       Writln(out,'шаг печати=',Nprn:5);
       Writln(out);
If i:=1 to 3 do
       k1:=h*f(x,y);
       k2:= h*f(x+h/2,y+k1/2);
       k3:=h*f(x+h/2,y+k2/2);
       k4:=h*f(x+h,y+k3);
       x:=x+h:
       y:=y+(k1+2*k2+2*k3+k4)/4;

i:=3
Repeat
       yd:=4*h*f(xk,yk)+(y(k-3)-10*yk)/3-2*y(k-2)+6*y(k-1)
       y:=[3*(4*h*f(xk,yd)-y(k-3))+16*y(k-2)-36*y(k-1)+48*yk]/25
i:=i+1
until x>=xmax;
Writeln(out);
Close(out);
End.

[Stilet]

Запусти ее - она работает?
Если да то че ее проверять?

[натка:)]

если б были у меня кодеки, я б проверила:-) а так увы(

[raxp]

...скажите, а до чого тут кодеки? кстати, не очень похоже

есть такая профессия - тестировщик, так вот он занимается тем, что тесты "выдумывает" для программы, алгоритма...вот и вы задайте чего-нить на вход и проверьте то-ли он выдает

[натка:)]

блин, ну не кодеки, вообщем у меня нет Turbo Paskalya на компютере

[profi]

Но это компилятором называется.

[Serebro]

Repeat
       yd:=4*h*f(xk,yk)+(y(k-3)-10*yk)/3-2*y(k-2)+6*y(k-1)
       y:=[3*(4*h*f(xk,yd)-y(k-3))+16*y(k-2)-36*y(k-1)+48*yk]/25

Не понятно что такое y: скаляр или вектор?

[натка:)]

Сообщение от Serebro

Repeat
       yd:=4*h*f(xk,yk)+(y(k-3)-10*yk)/3-2*y(k-2)+6*y(k-1)
       y:=[3*(4*h*f(xk,yd)-y(k-3))+16*y(k-2)-36*y(k-1)+48*yk]/25

Не понятно что такое y: скаляр или вектор?

скаляр!!!!!!

Сообщение от profi

Но это компилятором называется.

мне до фени как это называется мне главное чтоб программа была верная

[Namolem]

паскаль весит 3 Мб. Трудно скачать?

[CodeExpert]

pascalabcnet.rar
3,77 МБ (3*962*385 байт)