Знай и люби операторы цикла

цикла
Зpp
PA
S
C
A
L

объект для организации работы цикла; настройка начального и конечного значения

счётчика задаёт количество раз работы цикла;
ТЕЛО ЦИКЛА – оператор(может быть составной) для многократного исполнения;
ПРОХОД ПО ЦИКЛУ – однократное исполнение тела цикла;
ЗАЦИКЛИВАНИЕ – бесконечное исполнение цикла (это очень плохо!);

Зpp
PA
S
C
A
L

 ;
СИНТАКСИС ОПЕРАТОРА ЦИКЛА СО СЧЁТЧИКОМ



ПРИСВОИТЬ СЧЁТЧИКУ НАЧАЛЬНОЕ

ЗНАЧЕНИЕ

ВСТАВИТЬ ОПЕРАТОР

УКАЗАТЬ КОНЕЧНОЕ ЗНАЧЕНИЕ СЧЁТЧИКА

ПРИМЕРЫ:
FOR J:=1 TO 20 DO X:=X-1;
FOR K:=-5 TO 0 DO BEGIN S:=S*P; WRITE(S) END;
FOR AVATAR:=A+B TO C-D DO IF (AVATAR MOD 2)=0 THEN WRITE(AVATAR:6);

Зpp
PA
S
C
A
L

счётчика задается атоматически +1(с to) или -1(с downto)!
Пусть А-нач.

Знач. Счётчика, В-кон. Знач. Счётчика; тогда количество проходов по телу цикла с to с downto А=В 0 0 А<В В-А+1 0 А>В 0 А-В+1
В теле цикла изменять значение счётчика нельзя!
Работает правило begin……….end для тела цикла

Зpp
PA
S
C
A
L

1 do writeln(2*j);
A:=2;b:=102; For k:=a to b do if (k

mod 3)=0 then p:=p+1;
For l:=‘a’ to ‘я’ do write(ord(l):5);
For m:=1 to length(str) do writeln(copy(str),m,1);
For n:=‘z’ to ‘a’ do str:=str+n;
SUM:=0; For p:=10 to 101 do begin read(S);SUM:=SUM+S end; write(SUM);
For r=32 to 255 do writeln(chr(r),’-’,r:4);
Progress:=1; Q:=1.21; For t:=33 downto 1 do write(progress*Q);
For s:=1 to 128 do If (s mod 10)=0 then write(‘*’) else write(‘ ‘);

Зpp
PA
S
C
A
L

Mm;
Begin write(‘введи фразу’); readln(fr);
write(‘введи букву’);readln(buk);
L:=length(fr); j:=0;
Mm:

i:=pos(buk,fr);
If i<>o then begin j:=j+i; write(j:4);
fr:=copy(fr,i+1,L-i); goto Mm end;
Write(‘end’);
End.

Зpp
PA
S
C
A
L

ЦИКЛА


Условие ИСТИННО?
да
Выход из цикла
да

Логика работы

цикла:
- пока условие ИСТИННО ттттвыполняется тело цикла;

- ЛОЖНОСТЬ условия ьььь завершает цикл;

любого достоинства
и выдает сдачу. Надо прекратить прием монет, как

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

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

Задача 3
Для уравнения с двумя неизвестными подобрать корень с заданной точностью( например , 0.001).

УСЛОВИЕ ИСПОЛНЕНИЯ ЦИКЛА

ТЕЛО ЦИКЛА (РАБОТАЕТ ПРАВИЛО ОПЕРАТОРНЫХ СКОБОК)

Например:

While x

>= y do begin x:=x-1;y:=y+1; end;

X :=X-1;Y :=Y+1 end;
9
Тело цикла исполнится 5 раз !

Выход из цикла

Запуск цикла

истина

3

истина

8

4

истина

7

5

истина

6

6

истина

5

7

ложь

:=X-1;Y :=Y+1 end;
Запуск цикла
2

2

истина

1

3

ложь

Выход из цикла

Тело цикла исполнится 1 раз !

2

2

Запуск цикла

истина

3

3

истина

4

4

истина

5

5

истина

6

6

истина

7

7

Произошло зацикливание !

Цикл не завершается

X :=X+1;Y :=Y+1 end;
Запуск цикла
2

3

ложь

Выход из цикла

Тело цикла не исполнится ни разу !

хотя бы один раз, если при запуске цикла условие ИСТИННО!

Необходимо

обеспечить завершение цикла: в ходе работы цикла условие должно изменить свое значение на ЛОЖЬ!

3. Количество проходов по телу цикла задается : -начальной установкой переменных, участвующих vvв цикле; -изменением значений переменных в теле цикла;

begin read(money);

S : = S + money; END;
score := 0; While score < 33 do begin read(in); if in > 0 then score := score + 1; end;
x := 0; eps :=0.01; While F1-F2 >eps do begin F2:=F1; F1:=x*x*x +x*x +5*x -12; x := x+eps; end;
i := 1; a := a0; While i<>50 do begin a:=a+1; if a mod 2= 0 then i := i+1; write( a:5);

монет достоинством k1, k2 и k3, причем k1>k2>k3,

k3= 1 рубль.
Предложить вариант размена заданной денежной суммы, которая поступает от клиента в виде набора купюр,с минимальным количеством выдаваемых монет.
Признак окончания ввода купюр – введена сумма в 0 рублей.

WHILE условие ПРОДОЛЖАЕТ цикл.

2- Количество проходов по телу цикла

bbbзаранее ттнеизвестно.

3- Логика работы цикла:
-- пока условие ИСТИННО ттттbbbbbbbbbbbbbbbbвыполняется тело цикла;
-- ЛОЖНОСТЬ условия ьььь ииииbbbbbbbbbbbbbbbbзавершает цикл;

4 - Для тела цикла работает правило операторных скобок