10.Алгоритм итерационного цикла(пример)
Особое место занимают итерационные циклы-это циклы в к-рых заранее нельзя сказать сколько будет вычислений и в к-рых результат достигается по средствам задания грубого результата и в посл. циклах его уточнение(приближ. к реальному результату ).Такие уточняющие циклы повторяются до тех пор пока не будет достигнута требуемая точность вычислений.
Рассм.
итерац. цикл на примере вычисления
о
итер. Ф-ле Ньютана
y=
,y=
=y1/2(x/y+)
y1=x=9;
y2=1/2(9/9+9)=4;
y3=1/2(9/5+5)=3,4
y4=1/2(9/3/4+3/4)=3/028
y5=1/2(9/3.028+3.028)=3,0017
program iter;
var
x,E,y1,y2:real;
begin
write(‘введи x,E');
readln(x,E);
y1:=x;
y2:=(x/y1+y1)/2;
while abs(y2-y1)>E do
begin
y1:=y2;
y2:=(x/y1+y1)/2;
end;
writeln(‘y2=’, y2:1:2);
end.
11.Сложные(вложенный )циклы (пример)
y=sin(x)+a
3<a
3.3
da=0.1; 0.1
x
0.9
dx=0.2
n1=ak-an/da+1=3.3-3/0,1+1=4
n2=xk-xn/dx+1=0.9-0.1/0,2+1=5
n=n1*n2=4*5=20
a=3
y=……………………..x=0,1
y=……………………..x=0,3
y=…………………..x=0,5
y=………………………x=0,7
y
=………………………….x=0,9
a=3,1
y=……………............x=0,1
y=…………………….x=0,3
…………………………
y=…………………….x=0,9
-это алгоритмы содержащие внутри себя другие алгоритмы.
При составлении сложных циклов есть ряд ограничений: 1)эти циклы не должны пересекать друг друга; 2)встречаются ограничения при передаче из одного цикла в другой.
При составлении данного цикла необходимо определить: 1)какая переменная будет изменяться во внешнем цикле, а какая во внутреннем; 2)какова форма выдачи результатов(т.е. определить макет выводов результатов).Все циклы могут заканчиваться одним и тем же оператором.
12.Алгоритм ввода и вывода одномерного массива чисел(пример)
Ввод одномерного массива
Program mas1;
var А : array [1 .. 10] of Integer;
i : integer;
begin
for i := 1 to 10 do
begin
writeln(‘введите элемент А[’, i, ‘]’);
readln (А[i]);
end;
……
End.
Вывод одномерного массива
Program mas1;
var А : array [1 .. 10] of Integer;
i : integer;
begin
……
for i := 1 to 10 do
begin
writeln(‘Элемент А[’, i, ‘] = ’ );
write (А[i]:6:2);
end;
end.
13.Алгоритм нахождения суммы и произведения чисел одномерного массива
program Sum_1mas; { Cуммирование элементов }
{ одномерного массива }
var { Обьявление }
a: array [1..10] of integer; { массива a из 10 элементов }
i,s : integer; { переменных i,s }
begin { }
writeln('Вводите 10 чисел'); { Ввод одн-го мас.)
for i:=1 to 10 do readln(a[i]);
s:=0; { Сум-е одном-го масс }
for i:=1 to 10 do s:=s+a[i];
writeln('исходный массив'); {Вывод мас.}
for i:=1 to 10 do write(a[i], ' ');
writeln; { }
writeln('ответ'); { Вывод }
writeln(s); { результата }
readln; { }
end.
program massiv_v4;
var
a:array[1..7] of integer;
i,n,k,P:integer;
X:integer;
begin
P:=1;
writeln('Введите постоянную Х');
readln(X);
writeln('Введите элементы массива');
for i:=1 to 7 do
begin
write('a[',i,']='); readln(a[i]);
end;
if i mod 2 <>0 then P:=P*a[i];
end;
end;
writeln('Произведение всех отрицательных чисел, стоящих на нечётных местах равно ', P);
end.