|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.11.2013, 13:08 | #1 |
Пользователь
Регистрация: 12.11.2012
Сообщений: 12
|
помогите с задачей, метод Эйлера
помогите с программой пожалуйста
нужно составить в pascal метод эйлера и модифицированный метод эйлера Программа должна позволять пользователю: 1)выбрать функцию f(x,y) (любые три на Ваш выбор); 2)осуществить ввод исходных данных (отрезок, на котором ищем решение, шаг, начальное условие); 3)выбрать метод решения дифференциального уравнения; 4)найти решение и вывести результат |
13.11.2013, 14:31 | #2 |
Lawful Evil
Участник клуба
Регистрация: 13.05.2008
Сообщений: 1,208
|
Наработки где?
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c) |
13.11.2013, 17:42 | #3 |
Пользователь
Регистрация: 12.11.2012
Сообщений: 12
|
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 функции |
13.11.2013, 21:53 | #4 |
Lawful Evil
Участник клуба
Регистрация: 13.05.2008
Сообщений: 1,208
|
Один из методов перенести в функцию Eiler, другую - в EilerMod, например. Для начала сделайте так, чтобы оба метода были реализованы через функции и выполнялись последовательно. Поскольку в Вашем коде есть функции - это не должно стать проблемой.
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c) |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Метод Эйлера | Демик | C# (си шарп) | 2 | 01.12.2011 13:24 |
Метод Эйлера | Anubys | Общие вопросы C/C++ | 2 | 17.05.2011 16:51 |
Метод Эйлера | RoKSport | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 12.02.2011 12:45 |
[Delphi] Помогите справиться с задачей по числякам (метод Рунге-Кутта) | Unlit | Помощь студентам | 0 | 01.10.2009 09:51 |