Решение задачи Коши

@missololosha · Регистрация: 02.12.2013

Author24 — интернет-сервис помощи студентам

Решить задачу Коши для ОДУ 1-го порядка методом Рунге-Кутта 4-го порядка. Сама задача на фото, именно ее и надо составить для Turbo Pascal. На фото справа примерная работа, что в ней стоит отредактировать , что бы получить нужное мне решение.

@missololosha · 03.12.2013, 19:57 **[ТС]**

Pascal

const
  n=10;
var
  k1,k2,k3,k4,x,y: array [0..n] of real;
  h: real;
  i: integer;
 
function f(x,y: real): real;
begin
  f:=((x*x)+(y*y))/ exp((1/3) * ln(1+x*x+y*y));
end;
 
begin
  h:=50;
  y[0]:=1;
  for i:=0 to n do
    x[i] :=i*h;
 
  for i:=0 to n-1 do
  begin
    k1[i]:=f(x[i],y[i]);
    k2[i]:=f(x[i]+h/2,y[i]+h*k1[i]/2);
    k3[i]:=f(x[i]+h/2,y[i]+h*k2[i]/2);
    k4[i]:=f(x[i]+h,y[i]+h*k3[i]);
 
    y[i+1]:=y[i]+h/6*(k1[i]+2*k2[i]+2*k3[i]+k4[i]);
  end;
 
  for i := 0 to n do
    writeln('x[',i:2,'] = ',x[i]:0:1,'   y[',i,'] = ',y[i]:0:4);
  readln;
end.

@missololosha 0 / 0 / 2 Регистрация: 02.12.2013 Сообщений: 13
		1
	Решение задачи Коши 02.12.2013, 19:00. Показов 1287. Ответов 1 Метки нет (Все метки) Решить задачу Коши для ОДУ 1-го порядка методом Рунге-Кутта 4-го порядка. Сама задача на фото, именно ее и надо составить для Turbo Pascal. На фото справа примерная работа, что в ней стоит отредактировать , что бы получить нужное мне решение. Миниатюры 0

	03.12.2013, 19:57