Презентация на тему Знай и люби операторы цикла

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

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

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

Зpp
PA
S
C
A
L

do  ;
СИНТАКСИС ОПЕРАТОРА ЦИКЛА СО

СЧЁТЧИКОМ

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

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

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

ПРИМЕРЫ:
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

j:=50 downto 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

i,j,L:byte;
Label 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;

do begin X :=X-1;Y :=Y+1 end;
9
Тело цикла исполнится

5 раз !

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

Запуск цикла

истина

3

истина

8

4

истина

7

5

истина

6

6

истина

5

7

ложь

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

2 2

истина

1

3

ложь

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

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

X:=X+1;Y:=Y+1 end;
2

2

Запуск цикла

истина

3

3

истина

4

4

истина

5

5

истина

6

6

истина

7

7

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

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

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

2 3

ложь

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

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

цикла исполнится хотя бы один раз, если при запуске

цикла условие ИСТИННО!

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

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

100 do 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 рублей.