Методом Эйле f(x,y)= dy/dx =xy

[Nilip 777]

Методом Эйлера решить f(x,y)= dy/dx =xy при начальных условиях (0, 1). С шагом h=0.1 вычислить координаты еще 9 точек по формулам:

[Nilip 777]

Язык Pascal

[Vanta11a]

Ну метод Эйлера. Ну паскаль. А вот самого интересного - наработок - нету. Где?

[Nilip 777]

Все есть!
Program Euler;
Uses Crt;
Var
xn,xk,yn,h,x,y:real;
i:integer;
Function f(x,y:real):real;
begin
{Здесь приводим выражение для вычисления функции f(x,y) }
f:=x*y;
end;
Begin
ClrScr;
Writeln(' Решение дифференциального уравнения ');
Writeln(' dy/dx=x*y методом Эйлера ');
{ Ввод исходных данных }
xn:=0; yn:=1; xk:=1; h:=0.1;
{ Выводим шапку таблицы и первую точку }
Writeln('--------------------');
Writeln('| № | x | y |');
Writeln('--------------------');
{ Начинаем расчет }
x:=xn; y:=yn; i:=1;
Writeln('|', i:2, ' |', x:5:2, ' |', y:7:4, ' |');
repeat
y:=y+h*f(x,y);
Writeln('|', i:2, ' |', x:5:2, ' |', y:7:4, ' |');
x:=x+h;
i:=i+1;
until x>xk;
Writeln('--------------------');
Readln;
End. {конец программы}