уравнение методом Эйлера Опции

[Лида]

У меня есть программа которая вычисляет уравнение методом Эйлера.
y'*cosx+y*sinx=1
Начальное условие x0 = 0, y0 = 1, b = 0,5
Точное решение уравнения y=sinx+cosx

Помогите, пожалуйста, изменить эту программу под это условие.
y=y'*(x+1)
начальное условие x0= 1, y0 =2 , b = 4
Точное решение y=x+1

текст программы в архиве

[Федосеев Павел]

Замените

  function P(x: real; y: real): real;
  begin
    P := y / (x + 1);
  end;

  function R(x1: real): real;
  begin
    R := x + 1;
  end;

А всё остальное - вводится в ходе выполнения программы.

[Лида]

Большое спасибо!