Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:ОП 2012 Студентам / ОП. Лекции / ОП_2
.pdf
Схема структурированная и сокращенная
Начало
Ввод a, b
n:=5
d:=(b-a)/n
S2:=1010
A
A
S1:=S2 |
|
n:=2*n |
|
d:=d/2 |
|
S2:=0 |
|
x:=a |
B |
|
|
i:=1,n |
Вывод S2 |
|
|
S2:=S2+f(x) |
Конец |
x:=x+d |
|
S2:=S2*d
нет |
да |
|S1-S2|< |
B |
|
21 |
Программа
program Ex2_5; |
Начало |
|
{$APPTYPE CONSOLE} uses SysUtils;
Ввод a, b
n:=5
d:=(b-a)/n
Var a,b,S1,S2,d,eps,x:Single; |
|
|
|
S2:=1010 |
|||
|
|||
n,i:Integer; |
|
|
|
Begin |
A |
|
WriteLn('Input a, b and eps:'); ReadLn(a,b,eps);
n:= 5; d:=(b-a)/n; S2:=1E+10;
22
Программа (2)
repeat
S1:=S2;
n:=n*2;
d:=d/2;
S2:=0;
x:=a;
for i:=1 to n do begin
S2:=S2+x*x-1; x:=x+d;
end;
S2:=S2*d;
until abs(S2-S1)<eps;
WriteLn('I=', S2:10:6); ReadLn;
End.
A
S1:=S2
n:=2*n
d:=d/2
S2:=0
x:=a
i:=1,n
S2:=S2+f(x)
x:=x+d
S2:=S2*d
нет |
да |
|S1-S2|< |
B |
|
23 |