Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу здесь за 20 тыс руб в месяц! alarforum@yandex.ru


Ответ
 
Опции темы
Старый 10.04.2011, 15:11   #1
Veina
Пользователь
 
Регистрация: 28.10.2009
Сообщений: 34
По умолчанию Численные методы на Паскале

Я написала программу на Паскале для формулы yn+1=yn+h*fn
Вот код:



Код:
program eiler;

var x,y,a,b,h:real;

function f(x,y:real):real;

begin f:= y*y*(8-20*x); end;

begin

writeln('vvedite y, a, b, h');

readln(y,a,b,h); x:=a;

repeat

writeln(x:0:1,' ',y:0:3);

y:=y+h*f(x,y);

x:=x+h;

until not (x<b);

readln;

end.
А как написать переделать для формулы yn+1=yn+h*fn+1
и для формулы yn+1=yn+(h/2)*(3fn-fn-1)
Подскажите, пожалуйста, кто-нибудь. Заранее спасибо
Veina вне форума Ответить с цитированием
Старый 11.04.2011, 09:46   #2
Veina
Пользователь
 
Регистрация: 28.10.2009
Сообщений: 34
По умолчанию

Ну откликнитесь же уже кто-нибудь....пожалуйста.......
Veina вне форума Ответить с цитированием
Старый 11.04.2011, 13:14   #3
phomm
personality
Старожил
 
Аватар для phomm
 
Регистрация: 28.04.2009
Сообщений: 2,855
По умолчанию

если функция та же самая (которая y*y(8-20*x)) там в коде) то по идее
для второго случая :
вместо y:=y+h*f(x,y); писать y:=y+(h/2)*(3*f(x,y)-t); где t - сохраненное в переменною старое значение функции, для чего надо после расчета дописать t := f(x,y); при чем надо ещё рассмотреть условие того, что на первом шаге это значение неизвестно(ну я не знаю что у вас, может там и 0), конечно , это t надо ещё объявить

для первого случая мне влом раскидывать свой мозг, чтобы въехать в то , как это у вас в функции расчета y[n+1] используется функция от y[n+1] , пока первая моя мысль - вы что-то напутали, ну хотя может и я уже всё забыл (((
phomm вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Численные методы. Матрица. KASPEER Паскаль, Turbo Pascal, PascalABC.NET 2 05.03.2011 12:59
Численные методы Adriana Общие вопросы Delphi 2 11.04.2010 17:02
численные методы Desha Помощь студентам 2 24.05.2009 11:46
Численные методы improvement Общие вопросы .NET 4 08.05.2009 00:58
Численные методы в Дельфи UserOK Общие вопросы Delphi 3 26.06.2008 11:05


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840