помогите с задачей, метод Эйлера

[Олесенька]

помогите с программой пожалуйста
нужно составить в pascal
метод эйлера и модифицированный метод эйлера
Программа должна позволять пользователю:
1)выбрать функцию f(x,y) (любые три на Ваш выбор);
2)осуществить ввод исходных данных (отрезок, на котором ищем решение, шаг, начальное условие);
3)выбрать метод решения дифференциального уравнения;
4)найти решение и вывести результат

[Vanta11a]

Наработки где?

[Олесенька]

var x,y,a,b,h:real; {Метод Эйлера}
function f(x,y:real):real;
begin f:= cos(y)+3*x; end;
begin
writeln('введите y, a, b, h');
readln(y,a,b,h); x:=a;
repeat
writeln(x:0:3,' ',y:0:3);
y:=y+h*f(x,y);
x:=x+h;
until x>b+0.1;
readln;
end.



var z,x,y,a,b,h:real;{модифицированный метод}
function f(x,y:real):real;
begin f:= cos(y)+3*x; end;
begin
writeln('Введите y, a, b, h');
readln(y,a,b,h); x:=a;
repeat
writeln(x:0:3,' ',y:0:3);
z:=y+h*y*(1-x);
y:=y+h*(f(x,y)+f(x+h,z))/2; x:=x+h;
until x>b+0.1; readln; end.

не знаю как соединить
и меню сделать
а и добавить в выбор еще 2 функции

[Vanta11a]

Один из методов перенести в функцию Eiler, другую - в EilerMod, например. Для начала сделайте так, чтобы оба метода были реализованы через функции и выполнялись последовательно. Поскольку в Вашем коде есть функции - это не должно стать проблемой.