program rechenie_SODU_metodom_Runge_Kutta

[annyoshiko]

Всем привет! Нужна помощь!
Сразу скажу, что я профан в программировании, поэтому извиняйте)

program rechenie_SODU_metodom_Runge_Kutta; 
const n=2;{Количество дифференциальных
уравнений} 
var dim: array[1..n]of real; var y:=dim;  x:real; 
procedure sodu(var x,y:real); 
var w,k1,k2,k3,k4:array[1..n]of real; h:real; j:integer; 
function fun:=(j,x,y): real; 
begin 
if j=1 then fun:=y-7*x; if j=2 then fun:=-2*x-5*y
end; 
begin h:=1/10; 
for j:=1 to n do w[j]:=y; for j:=1 to n do k1[j]:=h*fun(j,x,y); 
for j:=1 to n do y[j]:=w[j]+1/2*k1[j]; for j:=1 to n do 
k2[j]:=h*fun(j,x+1/2*h,y); 
for j:=1 to n do y[j]:=w[j]+1/2*k2[j]; for j:=1 to n do 
k3[j]:=h*fun(j,x+1/2*h,y); 
for j:=1 to n do y[j]:=w[j]+k3[j]; for j:=1 to n do k4[j]:=h*fun(j,x+h,y); 
for j:=1 to n do y[j]:=w[j]+(k1[j]+2*k2[j]+2*k3[j]+k4[j])/6; 
x:=x+h; 
end; 
begin {Основной блок программы} 
clrscr; x:=(A*Cos(t)+B*Sin(t))*Exp(1)^(-6*t); y:=[(A+B)*Cos(t)-(A-B)*Sin(t)]*Exp(1)^(-6*t); A:=1; B:=0; t:=0; 
writeln('t x y'); 
while x<=2.5 do begin writeln(x:15:8,y[1]:15:8,y[2]:15:8); sodu(x,y);end; 
end.

[Alex11223]

И? Помочь-то чем?