студенческое
смотрел старые семестровки, среди прочего - черт знает за какой курс - по численным методам. вычисление интеграла методом симпсона.
переменные не буду разъяснять, не суть важно.
{Вычисление интеграла методом Симпсона}
for i := 1 to 3 do begin
S[i] := 0;
h := (b-a)/N[i];
for j := 0 to (N[i] div 2)-1 do
S[i] := S[i] + f(a+h*2*j) + 4*f(a+h*(2*j+1)) + f(a+h*2*(j+1));
S[i] := S[i]*h/3;
end;
WriteLn('Вот результаты, полученные методом Симпсона:');
for i := 1 to 3 do
WriteLn(' при N = ',N[i],', S = ',S[i]:1:8);
будь я проклят, если бы сейчас не сдал такое:
{Вычисление интеграла методом Симпсона}
WriteLn('ммм, интеграл...');
wait(5000);
WriteLn('Doh!');
[вспоминая преподавательницу]: и будь я проклят, если бы она это не приняла :)
ps: пересматриваю и ржу. вот же ж я учился...
pps: скандальное тз по сетям, из-за которого меня хотели за антисемитизм исключить, не могу найти. doh!
переменные не буду разъяснять, не суть важно.
{Вычисление интеграла методом Симпсона}
for i := 1 to 3 do begin
S[i] := 0;
h := (b-a)/N[i];
for j := 0 to (N[i] div 2)-1 do
S[i] := S[i] + f(a+h*2*j) + 4*f(a+h*(2*j+1)) + f(a+h*2*(j+1));
S[i] := S[i]*h/3;
end;
WriteLn('Вот результаты, полученные методом Симпсона:');
for i := 1 to 3 do
WriteLn(' при N = ',N[i],', S = ',S[i]:1:8);
будь я проклят, если бы сейчас не сдал такое:
{Вычисление интеграла методом Симпсона}
WriteLn('ммм, интеграл...');
wait(5000);
WriteLn('Doh!');
[вспоминая преподавательницу]: и будь я проклят, если бы она это не приняла :)
ps: пересматриваю и ржу. вот же ж я учился...
pps: скандальное тз по сетям, из-за которого меня хотели за антисемитизм исключить, не могу найти. doh!