|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.11.2010, 02:34 | #1 |
Регистрация: 26.11.2010
Сообщений: 2
|
численное интегрирование методом Симпсона: трудности с блок-схемой
Здравствуйте, доброй ночи, мне к 08.00 утра очень бы пригодилась блок-схема к такой вот программе:
program Simpson; {интегрируемая функция} function F(x:Real):Real; begin F:=2*x; end; var a,b,h,x :real; n,i :integer; integ :real; begin write('Введите начало интегрирования a='); readln(a); write('Введите конец интегрирования b='); readln(b); write('Введите количество разбиений интервала (четное число) n='); readln(n); if (n mod 2)>0 then begin n:=n+1; writeln('Число n было введено нечетное, оно было заменено на n=',n); end; h:=(b-a)/n; integ:=F(a)+F(b)+4*F(a+h); for i:=1 to (n div 2)-1 do begin x:=a+2*h*i; integ:=integ+2*F(x)+4*F(x+h); end; integ:=h*integ/3; writeln('Интеграл = ',integ); end. буду признателен тому, кто мне поможет, я в них ничего не смыслю, а голова в такое время долго соображает. спасибо за внимание! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
численное решение дифуров методом Эйлера | xbymzymx | Помощь студентам | 1 | 06.11.2010 18:14 |
Численное интегрирование в делфи | Ира91 | Помощь студентам | 0 | 18.10.2010 21:45 |
Решение в С++ методом трапеции и Симпсона | chapello | Помощь студентам | 0 | 15.09.2010 17:14 |
Разработка алгоритма вычисления параметрического интеграла методом Симпсона | killbore | Помощь студентам | 3 | 09.04.2010 01:37 |