Пожаловаться
- 09.06.2017 00:06
- Информатика
- remove_red_eye 12968
- thumb_up 18
Ответы и объяснения 1
Var a,b,h,eps,s1,s2,s:real; n,i:integer;
function f(x:real):real;
begin
f:=exp(2*x)-2*x*x;
end;
begin
readln(a,b,eps);
n:=10;
s2:=0;
s:=(f(a)+f(b))/2;
repeat
s1:=s2;
s2:=s;
h:=(b-a)/n;
for i:=1 to n-1 do s2:=s2+f(a+i*h);
s2:=s2*h;
writeln(n,' ',h:6:4,' ',s1:6:3,' ',s2:6:3);
n:=n*2;
until abs(s1-s2)
Пример (для ε=0,01):
1 2 0.01
10 0.1000 0.000 19.013
20 0.0500 19.013 18.957
40 0.0250 18.957 18.943
80 0.0125 18.943 18.939
function f(x:real):real;
begin
f:=exp(2*x)-2*x*x;
end;
begin
readln(a,b,eps);
n:=10;
s2:=0;
s:=(f(a)+f(b))/2;
repeat
s1:=s2;
s2:=s;
h:=(b-a)/n;
for i:=1 to n-1 do s2:=s2+f(a+i*h);
s2:=s2*h;
writeln(n,' ',h:6:4,' ',s1:6:3,' ',s2:6:3);
n:=n*2;
until abs(s1-s2)
Пример (для ε=0,01):
1 2 0.01
10 0.1000 0.000 19.013
20 0.0500 19.013 18.957
40 0.0250 18.957 18.943
80 0.0125 18.943 18.939
Пожаловаться
- 09.06.2017 00:10
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы