лек4_.ppt

решения задачи путем многократного повторения некоторой последовательности действий. Участки, которые

Начало

Начало

Подготовка к
следующему
вып. цикла

Действия
Циклич.части

i≤N

Ввод N

Ввод Х

S=0
I=1

i=i+1

S=S+х

I=K,N,Δi

Тело
цикла

N ввести

S=0

i=1, N

Ввод Х

S=S+х

Подготовка и настройка цикла

Ввод S

Конец

Вывод S

Конец

Проверка
Условия окон.
цикла

Да

последовательность (ввод). Математическая интерпретация задачи:


S=S+x
Счетный оператор цикла
Первая форма позволяет

FOR <параметр цикла>:= TO DO <оператор>;
Для увеличивая к делать
<параметр цикла> - это переменная целого либо любого порядкового типов;
max, min значения- это конечное и начальное значения параметра цикла;

Пример: Вычислить сумму N элементов по закону Y=1+1/2+1/3+...+1/N; Для реализации цикл - Y=Y+1/I;

а) Тогда основной блок BEGIN
Y:=0;
FOR I:=1 TO N DO Y=Y+1/I;
WRITELN('Y=',Y)
END.

с предусловием
с постусловием
Вторая форма позволяет

с постусловием

цикла с постусловием;
3) оператор цикла с предусловием;
Оператор цикла с постусловием

Пример: Y=1+1/2+1/3+...+1/N; Y:=Y+1/I;
Y:=0;
I:=1;
REPEAT
Y:=Y+1/I;
I:=I+1
UNTIL I>N;

не известно и действия, предусмотренные в цикле, могут вообще не

Пример: Y=1+1/2+1/3+...+1/N;
Тело программы Y:=0; I:=1;
WHILE I <= N DO
BEGIN
Y:=Y+1/I;
I:=I+1;
END;

силу приближенного представления вещественных чисел в ПК.

Например: Вычислить y=x2 при

Особенность:

{объявление меток}
Пример:
LABEL m1, loop;

Пример: …
GOTO 10;
...
10: Begin
<опер1>;
<опер2>; …
end;

…GOTO 100 {Не верно}
Begin
<опер1>;
100:<опер2>;
…
end;

Запрещается переход с одной альтернативы сложного оператора на другую (пример условный оператор if then else )

Современная технология программирования основана на принципе программирования без GOTO.

из программного модуля – программы или подпрограммы.

Процедура BREAK; без параметров позволяет досрочно выйти из цикла, не дожидаясь выполнения условия о выходе из цикла.
Процедура CONTINUE; позволяет начать новую итерацию цикла.

Пример: Найти первое отрицательное число во входном потоке из не более 100 чисел.
Var i:Integer;
x:Real;
BEGIN
For i:=1 To 100 do
Begin
READ(x);
If x >= 0 Then CONTINUE; {пpи выполнении условия изменить паpаметp цикла и вновь выполнить цикл}
WriteLn('Первое отрицательное число =', x, ' i=',i);
BREAK {выход из цикла}
end;
END.

связанного с проверкой монотонно изменяющейся величины.
S=

именем.
одномерного массива - вектор В(10)= b1 b2 …b10;
2) двумерный

Для обозначения элемента массива необходимо указать имя и все его индексы B1 Z22 C113 в Паскале B[1] Z[2,2] C[1,1,1]

x1y1 x1y2…x1y10
x2y1 x2y2…x2y10

Z=

Дома:
Разработать алгоритм
И отладить программу
Построения тиблицы
Пифагора