Программа процедура S2=0, S4=0, X=A+H, Z=X+h s4=S4+fna(X) S2=S2+fna(Z) X=X+2 h z=Z+h i1=(2*S2+4*S4+fna(A)-fna(B))*H/3 icon

Программа процедура S2=0, S4=0, X=A+H, Z=X+h s4=S4+fna(X) S2=S2+fna(Z) X=X+2 h z=Z+h i1=(2*S2+4*S4+fna(A)-fna(B))*H/3



НазваниеПрограмма процедура S2=0, S4=0, X=A+H, Z=X+h s4=S4+fna(X) S2=S2+fna(Z) X=X+2 h z=Z+h i1=(2*S2+4*S4+fna(A)-fna(B))*H/3
Дата конвертации07.12.2012
Размер26.38 Kb.
ТипПрограмма
1. /BASIC_~1/DIFUR.TXT
2. /BASIC_~1/INF-KA~1.DOC
3. /BASIC_~1/INF-KA~2.DOC
4. /BASIC_~1/~$F-KA~1.DOC
5. /BASIC_~1/~$F-KA~2.DOC
Программа процедура S2=0, S4=0, X=A+H, Z=X+h s4=S4+fna(X) S2=S2+fna(Z) X=X+2 h z=Z+h i1=(2*S2+4*S4+fna(A)-fna(B))*H/3
YS=fna(X,Y)=X/2+exp(2)/(X+Y)

Подпрограмма процедура






S2=0, S4=0,

X=A+H, Z=X+H



S4=S4+FNA(X)

S2=S2+FNA(Z)

X=X+2*H

Z=Z+H














I1=(2*S2+4*S4+FNA(A)-FNA(B))*H/3



S2=0, S4=0, H=H/2

X=A+H, Z=X+H



S4=S4+FNA(X)

S2=S2+FNA(Z)

X=X+2*H

Z=Z+H











I2=(2*S2+4*S4+FNA(A)-FNA(B))*H/3







Sub Int(a,b,h,I1,I2)

S4=0

S2=0

X=a+h

z=x+h

Do

S4=S4+Fna(x)

S2=S2+Fna(z)

x=x+2*h

z=x+h

Loop Until x-b>=0

I1=(4*S4+2*S2+Fna(a)-Fna(b))*h/3

h=h/2

x=a+h

z=x+h

S4=0

S2=0

Do

S4=S4+Fna(x)

S2=S2+Fna(z)

x=x+2*h

z=x+h

Loop Until x-b>=0

I2=(4*S4+2*S2+Fna(a)-Fna(b))*h/3

end Sub

Главный модуль













DEF FNA(X)=3^X*EXP(X)

N=(B-A)/H









DI=ABS(I2-I1)/15













$include "integ.bas"

Def fna(x)=3^x*exp(x)

Input "Введите интервал интегрирования a и b "; a, b

Input "Введите точность E:";E

Input "Введите шаг:";h

n=(b-a)/h

Do

Call Int(a,b,h,I1,I2)

DI=Abs(I2-I1)/15

Loop until DI-E<=0

Print "Число разбиений N= ";N

Print "Значение интеграла I2= ";I2

Print "Погрешность вычислений DI= ";DI

Open"Integral.txt" for append As#1

Print #1,"ОТВЕТ: "

Print #1," Число разбиений N= ";N

Print #1," Значение интеграла I2= ";I2

Print #1," Погрешность вычислений DI= ";DI

end


РАСПЕЧАТКА ФАЙЛА Integral.txt

ОТВЕТ:

Число разбиений N= 10

Значение интеграла I2= 3.409324884414673

Погрешность вычислений DI= 2.272923893542611E-006









Рис.1 График функции Y(x)=3^x*exp(x)



Похожие:

Программа процедура S2=0, S4=0, X=A+H, Z=X+h s4=S4+fna(X) S2=S2+fna(Z) X=X+2 h z=Z+h i1=(2*S2+4*S4+fna(A)-fna(B))*H/3 iconПрограмма-процедура Процедура вид подпрограмм, независимая именованная часть программы, которую можно вызывать по имени для выполнения определенных действий
Процедура – вид подпрограмм, независимая именованная часть программы, которую можно вызывать по имени для выполнения определенных...
Программа процедура S2=0, S4=0, X=A+H, Z=X+h s4=S4+fna(X) S2=S2+fna(Z) X=X+2 h z=Z+h i1=(2*S2+4*S4+fna(A)-fna(B))*H/3 iconПрограмма по биохимикофизикофизиологической и психологической коррекции
Интеллект. Комплексы интеллектуальной организации. Внешнее и внутреннее. Множества и коэффициенты. Процедура, операция, баланс. Искусственный...
Программа процедура S2=0, S4=0, X=A+H, Z=X+h s4=S4+fna(X) S2=S2+fna(Z) X=X+2 h z=Z+h i1=(2*S2+4*S4+fna(A)-fna(B))*H/3 iconПодпрограммы. Функции и процедуры
Когда процедура выполнит свою задачу, программа продолжится с оператора, следующего непосредственно за оператором вызова процедуры....
Программа процедура S2=0, S4=0, X=A+H, Z=X+h s4=S4+fna(X) S2=S2+fna(Z) X=X+2 h z=Z+h i1=(2*S2+4*S4+fna(A)-fna(B))*H/3 iconДокументи
1. /Приказ от 26.04.2011 г. ь 1882 Процедуры ГИА-9 2011/Приказ ДОН о процедурах ГИА-9.doc
Программа процедура S2=0, S4=0, X=A+H, Z=X+h s4=S4+fna(X) S2=S2+fna(Z) X=X+2 h z=Z+h i1=(2*S2+4*S4+fna(A)-fna(B))*H/3 iconАзі рекомендовано до друку Науково-програмною радою Центру
Адміністративна процедура та адміністративні послуги. Зарубіжний досвід І пропозиції для України / Автор-упорядник В. П. Тимошук....
Программа процедура S2=0, S4=0, X=A+H, Z=X+h s4=S4+fna(X) S2=S2+fna(Z) X=X+2 h z=Z+h i1=(2*S2+4*S4+fna(A)-fna(B))*H/3 iconПроцедура проведения конкурса на получение денежного поощрения
...
Программа процедура S2=0, S4=0, X=A+H, Z=X+h s4=S4+fna(X) S2=S2+fna(Z) X=X+2 h z=Z+h i1=(2*S2+4*S4+fna(A)-fna(B))*H/3 iconСтатья 13. Процедура утверждения и изменения положения о ревизионной комиссии Настоящее Положение разработано в соответствии с Федеральным законом от 26.
Статья Порядок выдвижения требования о созыве внеочередного общего собрания акционеров
Программа процедура S2=0, S4=0, X=A+H, Z=X+h s4=S4+fna(X) S2=S2+fna(Z) X=X+2 h z=Z+h i1=(2*S2+4*S4+fna(A)-fna(B))*H/3 iconПротокол вскрытия конвертов с заявками на участие в конкурсе на выполнение работ по капитальному ремонту и (или) реконструкции многоквартирных домов
Процедура вскрытия конвертов проведена по адресу
Программа процедура S2=0, S4=0, X=A+H, Z=X+h s4=S4+fna(X) S2=S2+fna(Z) X=X+2 h z=Z+h i1=(2*S2+4*S4+fna(A)-fna(B))*H/3 iconПроцедура защиты прав работника
Для выработки и представления мотивированного мнения (в письменной форме) выборному органу первичной профсоюзной организации дано...
Программа процедура S2=0, S4=0, X=A+H, Z=X+h s4=S4+fna(X) S2=S2+fna(Z) X=X+2 h z=Z+h i1=(2*S2+4*S4+fna(A)-fna(B))*H/3 iconХатха йога. Лагху шанкхапракшалана
На неё уходит несколько минут, однако это короткое время тратится с пользой, поскольку эта процедура поможет вам избавиться от вялости...
Программа процедура S2=0, S4=0, X=A+H, Z=X+h s4=S4+fna(X) S2=S2+fna(Z) X=X+2 h z=Z+h i1=(2*S2+4*S4+fna(A)-fna(B))*H/3 iconПроцедура резервирования и выделения земли
Резервирование земли это обязательство поселения не резервировать и не выделять участок, выбранный семьей, желающей вступить в поселение...
Разместите кнопку на своём сайте:
Документы


База данных защищена авторским правом ©lib.podelise.ru 2000-2014
При копировании материала обязательно указание активной ссылки открытой для индексации.
обратиться к администрации
Документы