Помощь - Поиск - Пользователи - Календарь
Полная версия: уравнение методом Эйлера
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Лида
У меня есть программа которая вычисляет уравнение методом Эйлера.
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;

А всё остальное - вводится в ходе выполнения программы.
Лида
Большое спасибо!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.