Циклические конструкции

Содержание

Слайд 2

Цикл с предусловием Нет Да Условие выполняется Тело цикла

Цикл с предусловием

Нет

Да

Условие
выполняется

Тело цикла

Слайд 3

Цикл с предусловием WHILE DO ; WHILE DO BEGIN ; ; END;

Цикл с предусловием

WHILE <логическое условие> DO
<оператор цикла> ;
WHILE <логическое условие> DO
BEGIN
<оператор

1> ;
<оператор 2> ;
<оператор N>
END;
Слайд 4

Цикл с предусловием Операторы цикла выполняются (DO), пока (WHILE) логическое выражение истинно

Цикл с предусловием

Операторы цикла выполняются (DO), пока (WHILE) логическое выражение истинно

Слайд 5

Цикл с предусловием Фрагмент программы вывода на экран квадратов целых чисел

Цикл с предусловием

Фрагмент программы вывода на экран квадратов целых чисел от

5 до 10
x:=5;
WHILE X<=10 DO
BEGIN
Y:=SQR (X) ;
WRITELN (’квадрат’,X,’=‘ ,Y );
X:= X+1;
END;
Слайд 6

Цикл с постусловием Тело цикла Условие выполняется Да Нет

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

Тело цикла

Условие
выполняется

Да

Нет

Слайд 7

Цикл с постусловием REPEAT оператор 1; оператор 2; оператор n UNTIL

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

REPEAT
оператор 1;
оператор 2;
оператор n
UNTIL <логическое условие> ;
Операторы повторяются (REPEAT)

до тех пор (UNTIL), пока значение логического выражения ложно
Слайд 8

Цикл с постусловием Фрагмент программы вывода на экран квадратов целых чисел

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

Фрагмент программы вывода на экран квадратов целых чисел от

5 до 10
x:=5;
REPEAT
Y:=SQR (X) ;
WRITELN (’квадрат’,X,’=‘ ,Y );
X:= X+1
UNTIL x >= 10 ;
Слайд 9

Цикл с параметром i : = n1 i i : =

Цикл с параметром

i : = n1

i < = n2

i : =

i + 1

Тело цикла

Да

Нет

Слайд 10

Цикл с параметром FOR i : = n1 TO n2 DO

Цикл с параметром

FOR i : = n1 TO n2 DO
i -

параметр цикла
n1 - начальное значение (выражение)
n2 - конечное значение (выражение)
n1 < n2
шаг приращения + 1
количество повторений n2-n1+1
при n1 = n2 - 1 раз
при n1 > n2 цикл не выполняется ни разу
Слайд 11

Цикл с параметром FOR i : = n1 DOWNTO n2 DO

Цикл с параметром

FOR i : = n1 DOWNTO n2 DO
n1 >

n2
шаг приращения – 1
при n1 = n2 - 1 раз
при n1 < n2 цикл не выполняется ни разу
i , n1, n2 – должны быть описаны (порядковый тип)
i - не переопределяется в цикле
Слайд 12

Цикл с параметром Фрагмент программы вывода на экран квадратов целых чисел

Цикл с параметром

Фрагмент программы вывода на экран квадратов целых чисел от

5 до 10
FOR x : = 5 TO 10 DO
BEGIN
Y:=SQR (X) ;
WRITELN (’квадрат’,X,’=‘ ,Y );
END;
Слайд 13

Цикл с параметром Фрагмент программы вывода на экран квадратов целых чисел

Цикл с параметром

Фрагмент программы вывода на экран квадратов целых чисел от

5 до 10
FOR x : = 10 DOWNTO 5 DO
BEGIN
Y:=SQR (X) ;
WRITELN (’квадрат’,X,’=‘ ,Y );
END;
Слайд 14

Цикл с параметром Примеры вычисления сумм, количеств и произведений Алгоритмы подсчета:

Цикл с параметром

Примеры вычисления сумм, количеств и произведений
Алгоритмы подсчета:
сумм
Первоначальное

значение S: =0
Подсчет в цикле:
S:=S+{meкущee значение}
Слайд 15

Цикл с параметром Вычислить: S=l+2+3+...N. var n,s,i : integer; begin writeln

Цикл с параметром

Вычислить: S=l+2+3+...N.
var n,s,i : integer;
begin
writeln (‘Введите натуральное число N=');
readln

(n) ;
s : = 0 ;
for i : = 1 to n do s : = s + i ;
writeln (‘сумма = ‘ , s)
end.
Слайд 16

Цикл с параметром количества Первоначальное значение k : = 0 Подсчет

Цикл с параметром

количества
Первоначальное значение k : = 0
Подсчет в цикле:
k

: = K + 1
Слайд 17

Цикл с параметром Подсчитать количество нечетных чисел, введенных с клавиатуры var

Цикл с параметром

Подсчитать количество нечетных чисел, введенных с клавиатуры
var k,a,i: integer;
begin
k:=0;
for

i:=1 to 5 do
begin
write ( 'Введите целое число ‘ ); readln ( a );
if a mod 2 <> 0 then k := k +1; end;
writeln ( 'Нечетных чисел ', k );
readln
end.
Слайд 18

Цикл с параметром произведений Первоначальное значение р:=1 подсчет в цикле: р:=р * {множитель }

Цикл с параметром

произведений
Первоначальное значение р:=1
подсчет в цикле:
р:=р * {множитель }

Слайд 19

Цикл с параметром . Вычислять N! var n, p, i :

Цикл с параметром

. Вычислять N!
var
n, p, i : integer;
begin
writeln

( ‘введите число n = ‘) ;
readln (n) ;
p:=1;
for i:=1 to n do
p:=p*i; .
writeln ( ‘факториал числа ’, n,’ = ' ,p)
end.
Слайд 20

Вложенные циклы 2 3 1 1 1 2 2 n .

Вложенные циклы


2

3

1

1

1

2

2

n

. . .

Цикл называется сложным (вложенным), если внутри его


содержится один или
несколько других циклов
Слайд 21

Вложенные циклы Среди чисел 1

Вложенные циклы

Среди чисел 1< N < 100 найти все пары чисел,

для которых их сумма равнялась бы их произведению