— Рефераты — Точные науки — Алгебра, высшая математика — Решение систем дифференциальных уравнений методом Рунге-Кутты 4 порядка
Difur;
FOR i:=1 TO n DO r4[i]:=dC[i];
FOR i:=1 TO n DO rSR[i]:=((r1[i]+r2[i])*(r2[i]+r3[i])*(r3[i]+r4[i]))/6;
END;