Глава 2 Управляющие конструкции

управления
Кафедра Компьютерные системы и сети
Лектор: д.т.н., проф.
Иванова

Галина Сергеевна

2016

обработке вариантов вычислений и реализует конструкцию ветвления.




Оператор – простой или

составной оператор языка.
Составной оператор – блок операторов в операторных скобках
begin …end.

Пример. Разработать программу, которая вводит число от 0 до 15 и выводит его шестнадцатеричный эквивалент, например:
8  ‘8’
12  ‘С’

(n>=0)and(n

Ch:=chr(ord('0')+n)
else
Ch:=chr(ord('A')+n-10);
Write ('n=',Ch);
end
else WriteLn('Error');
ReadLn;
End.

Начало

n

n>=0 и
n<=15

n<10

Ch:=‘0’+n

Ch:=‘A’+n-10

Error

Ch

Конец

да

нет

нет

да

2>
Ветвь else относится к ближайшему if.
Для реализации варианта б используют

begin …end:
if <Условие1> then
begin if <Условие2> then <Действие1> end
else <Действие 2>

begin

end

z:=sin(x);
-1..1,10: z:=cos(x);
else z:=0;
end;
Пример. Разработать

программу, вычисляющую значения функции. Функция
выбирается пользователем из нескольких заданных.
Enter cod:
1 – y=sin x
2 – y=cos x
3 – y=exp x

y,x:Single;
Key:boolean;
Begin
WriteLn('Enter Kod:');
WriteLn('1 - y=sin x');
WriteLn('2 - y=cos

x');
WriteLn('3 - y=exp x');
ReadLn(Kod);
WriteLn('Enter x:');
ReadLn(x);

1: y:=sin(x);
2: y:=cos(x);
3: y:=exp(x);
else

Key:=false;
end;
if Key then
WriteLn(' x =',x:10:6,' y =',y:10:6)
else WriteLn('Error');
ReadLn;
End.

известно или можно посчитать. Выход из такого цикла программируется по

счетчику.
Итерационный цикл – цикл, количество повторений которого неизвестно или считается неизвестным при построении цикла. Выход из цикла программируется по выполнению или нарушению условия.
Поисковый цикл имеет два выхода – нашли и перебрали все и не нашли.

x:=x+1;

e:=e/10;
end;

e:=e/10;
until abs(e)

через «цикл-пока»
Пример:

for i:=1 to 10 do

begin
x:=x+1;
e:=e/10;
end;

i,N,S:Integer;
Begin
Write('Input N:');
ReadLn(N);
S:=0;
For i:=1 to N do

S:=S+i;
WriteLn('Summa=',S:6);
ReadLn;
End.

2- 1/x3 + … с заданной точностью .







Rn =

-Rn-1/x



S

N

1

2

3

4

S

N

1

2

3

4

x>1

x<1

S

S
Конец


WriteLn('Input x and epsilon:');
ReadLn(X,eps);

S:=1; {S:=0; & S:=S+R;}
R:=1;
while abs(R)>eps do
begin
R:=-R/X;
S:=S+R;
end;
WriteLn('x=', x:6:2,
' S=', S:8:2,' R=', R:8:6);
ReadLn;
End.

Начало

x, Eps

S=0

R=1

S=S+R

|R|>Eps

да

R=-R/x

x, S

Конец

S=S+R

WriteLn('Input x and epsilon:');
ReadLn(X,eps);

S:=0;
R:=1;
repeat
S:=S+R;
R:=-R/X;
until abs(R)<=eps;
WriteLn('x=', x:6:2,
' S=', S:8:2,' R=', R:8:6);
ReadLn;
End.

Начало

x, Eps

S=0

R=1

S=S+R

|R|<=Eps

да

нет

R=-R/x

x, S

Конец

на интервале [a,b] методом прямоугольников с точностью .








Итак

n
S = f(x1)d + f(x2)d + f(x3)d+ …+ f(xn)d = df(xi), где d=(b-a)/n.
i=1
Увеличивая n, получаем приближения площади: S1, S2, S3 ...
Останавливаемся, когда |Sk-Sk+1| < 

число прямоугольников n:=10.
Шаг 3. Определить шаг d:=(b-a)/n.
Шаг 4. Определить площадь

фигуры S1.
Шаг 5. Увеличить число прямоугольников вдвое n:=n*2.
Шаг 6. Уменьшить шаг вдвое d:=d/2.
Шаг 7. Определить площадь фигуры S2.
Шаг 8. Если Разность площадей меньше , то перейти к шагу 11
Шаг 9. Запомнить новое значение площади S1:=S2.
Шаг 10. Перейти к шагу 5.
Шаг 11. Вывести S1.
Конец.

WriteLn('Input a, b and eps:');
ReadLn(a,b,eps);

n:= 5;
d:=(b-a)/n;
S2:=1E+10;

Начало

n:=5

d:=(b-a)/n

S2:=1010

A

Ввод a, b

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) WriteLn('I=', S2:10:6);
ReadLn;
End.

S2:=0

x:=a

i:=1,n

S2:=S2+f(x)

x:=x+d

S2:=S2*d

A

|S1-S2|<

да

нет

S1:=S2

n:=2*n

B

d:=d/2