Реферат: Интегрирование линейного дифференциального уравнения с помощью степенных рядов

for i:=7 to 100 do

a[i]:=2*a[i-5]/(i*(i-1))+a[i-1]*(1-i)/(2*i)

end;

begin

assign(rez1,'rez1.txt');

rewrite(rez1);

assign(rez2,'rez2.txt');

rewrite(rez2);

r[1]:=1;r[6]:=1/10;

calculate(r,r2);

r[1]:=0;r[2]:=1;r[3]:=1/4;r[6]:=0;

calculate(r,r1);

for i:=1 to 25 do begin

writeln(rez1,' ',r1[i],' ',r1[i+25],' ',r1[i+50],' ',r1[i+75]);

writeln(rez2,' ',r2[i],' ',r2[i+25],' ',r2[i+50],' ',r2[i+75]);

end;

close(rez1);close(rez2);

end.

0.0000000000E+00 -8.1624958212E-09 2.6771846582E-17 -3.2491066259E-25

1.0000000000E+00 4.0882043248E-09 -1.2724159976E-17 1.5836707627E-25

2.5000000000E-01 -1.9312581703E-09 6.0587809612E-18 -7.7230912899E-26

0.0000000000E+00 8.7931901201E-10 -2.8899594137E-18 3.7682040069E-26

0.0000000000E+00 -3.9113365760E-10 1.3806999533E-18 -1.8394445248E-26

0.0000000000E+00 1.7170446696E-10 -6.6063798253E-19 8.9833955968E-27

4.7619047619E-02 -7.4927003757E-11 3.1655138993E-19 -4.3892344328E-27

-1.1904761905E-02 3.2670558317E-11 -1.5188147944E-19 2.1454810957E-27

5.2910052910E-03 -1.4287416203E-11 7.2964561538E-20 -1.0491602917E-27

-2.3809523810E-03 6.2822346640E-12 -3.5094186285E-20 5.1325610907E-28

1.0822510823E-03 -2.7813172998E-12 1.6898431516E-20 -2.5118617002E-28