Слайд 1Циклические конструкции
Цикл с предусловием
Цикл с постусловием
Цикл с параметром
Вложенные циклы
Слайд 2Цикл с предусловием
Нет
Да
Условие
выполняется
Тело цикла
Слайд 3Цикл с предусловием
WHILE DO
;
WHILE
DO
BEGIN
;
;
END;
Слайд 4Цикл с предусловием
Операторы цикла выполняются (DO), пока (WHILE) логическое выражение
истинно
Слайд 5Цикл с предусловием
Фрагмент программы вывода на экран квадратов целых чисел
от 5 до 10
x:=5;
WHILE X
);
X:= X+1;
END;
Слайд 6Цикл с постусловием
Тело цикла
Условие
выполняется
Да
Нет
Слайд 7Цикл с постусловием
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 < = n2
i :
= i + 1
Тело цикла
Да
Нет
Слайд 10Цикл с параметром
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
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 (‘Введите натуральное число
N=');
readln (n) ;
s : = 0 ;
for i : =
1 to n do s : = s + i ;
writeln (‘сумма = ‘ , s)
end.
Слайд 16Цикл с параметром
количества
Первоначальное значение k : = 0
Подсчет в
цикле:
k : = K + 1
Слайд 17Цикл с параметром
Подсчитать количество нечетных чисел, введенных с клавиатуры
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
подсчет в цикле:
р:=р * {множитель
}
Слайд 19Цикл с параметром
. Вычислять 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
. . .
Цикл называется сложным (вложенным), если внутри
его
содержится один или
несколько других циклов
Слайд 21Вложенные циклы
Среди чисел 1< N < 100 найти все пары
чисел, для которых их сумма равнялась бы их произведению
Слайд 22Вложенные циклы
var k, a, b: integer;
begin k:=0;
for a:= 1 to
100 do
for b:= 1 to 100 do begin
if a+b=a*b then
begin
k:=k+1; writeln(‘Числа ‘, a , b)
end
end;
if k=0 then writeln(‘Таких чис.нет’)else(‘k=’,k)
end.