1. Главная
  2. Библиотека
  3. Информатика
  4. Решить систему обыкновенных дифференциальных уравнений с начальными условиями:

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

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

Условие:

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

с начальными условиями:  

Решение:

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

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

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]; ...

Не нашел нужную задачу?

Воспользуйся поиском

Выбери предмет