Решить систему обыкновенных дифференциальных уравнений с начальными условиями:

Решаем систему методом Рунге-Кутта.

Составляем программу.

program rechenie_SODU_metodom_Runge_Kutta;

uses crt,printer; const n=2;{Количество дифференциальных уравнений}

type dim=array[1..n]of real; var y:dim; x,za,ya:real;

procedure sodu(var x:real; var y:dim);

var w,k1,k2,k3,k4:dim; h:real; j:integer;

function fun(j:integer;x:real;y:dim):real;

begin if j=1 then fun:=y[2]; ...