Презентация на тему Циклы

А - ,
В - ; A≤B.

Обратный

цикл
For <параметр>:= А downto В do <тело цикла>; A≥B.

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

до 100?
Program zadacha1;
Var I, k: Integer;
Begin
Cls;
For I:=20 To 100

Do If I mod 2=0 then k:=k+1;
Writeln(‘Количество четных чисел в диапазоне от 20 до 100 = ‘,k);
End.

Пусть дано семизначное число:
5
4
8
9
6
1
7
1
1
1
1
1
1
1
Счетчик
Счетчик = 7
Отсекаем последовательно последнюю цифру

числа.

Увеличиваем при этом каждый раз счетчик на 1.

Идея решения:

Проблема?





Когда нужно остановиться?
Если число n-значное, то неизвестно: сколько

шагов нужно сделать.

Когда число (после очередного отсекания цифры) станет равным нулю.

посещай занятия спортом.

Спортсмен добегает до финиша, тренер у него спрашивает: «Устал?».

Если спортсмен говорит: «Нет», то снова бежит от старта к финишу, а иначе бег заканчивается.

– схема:
Цикл с предусловием

число - ');
readln(n);
k := 0;
while n 0

do
begin
n := n div 10;
k := k + 1;
end;
writeln ('В числе ', n, ' количество цифр равно ', k);
end.

Начало

Ввод n

k:=0

n<>0

n:=n div 10
k:=k+1

Вывод k

Конец

нет

да

Найти количество цифр в веденном n-значном натуральном числе.

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

число - ');
readln(n);
k := 0;
repeat
n:=n div 10;
k:=k+1;
until n

= 0;
writeln ('В числе ', n, ' количество цифр равно ', k);
end.

Начало

Ввод n

k:=0

n=0

n:=n div 10
k:=k+1

Вывод k

Конец

нет

да

Найти количество цифр в веденном n-значном натуральном числе.

пересчитывается каждый раз при входе в цикл.
Цикл работает, пока

условие ложно (пока False). Условие пересчитывается каждый раз при выходе из цикла.

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

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

Тело цикла может не выполниться ни разу, если исходное значение условия при входе в цикл False.

Если в теле цикла требуется выполнить более одного оператора, то необходимо использовать составной оператор begin…end.

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

Использование составного оператора не требуется, так как их роль играют служебные слова repeat…until.

До начала цикла должны быть сделаны начальные установки переменных, управляющих условием цикла, для корректного входа в цикл.

В теле цикла должны присутствовать операторы, изменяющие переменные условия так, чтобы цикл через некоторое число повторений завершился.

Можно использовать сложные условия.

Цикл с предусловием While (пока условие истинно)

Цикл с постусловием Repeat (до истинности условия)

5; b := 7;
while a

< b do a := a + 1;

1

б)  a := 5; b := 7;
while a < b do a := a + b;

бесконечно

в)  a := 5; b := 7;
while a > b do a := a + 1;

Варианты ответов:

0

2

0

1

2

Варианты ответов:

0

1

2

Варианты ответов:

бесконечно

бесконечно

b := 3;
while a

b do b := a - b;

д)  a := 1; b := 3;
while a < b do a := a - 1;

Варианты ответов:

0

1

2

бесконечно

Варианты ответов:

0

1

2

бесконечно

b := 7;
repeat a :=

a + 1; until a > b;

б)  a := 5; b := 7;
repeat a := a + b; until a > b;

в)  a := 5; b := 7;
repeat a := a + b; until a < b;

Варианты ответов:

Варианты ответов:

Варианты ответов:

1

2

3

1

2

3

1

2

3

бесконечно

бесконечно

бесконечно

b := 3;
repeat b :=

a - b; until a < b;

д)  a := 1; b := 3;
repeat a := a + 2; until a < b;

бесконечно

бесконечно

Варианты ответов:

Варианты ответов:

1

2

3

1

2

3

его цифр больше 10.

Задача 2. Дано натуральное n-значное число.

Определить, сколько раз в нем встречается цифра, равная последней.

Задача 3. Составить программу нахождения количества делителей числа n (значение n вводится с клавиатуры).

Задача 4. Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти сумму всех чисел последовательности.

Задача 1. Дано натуральное число. Верно ли, что это число четырехзначное?

Задача 2. Известны оценки по информатике 15 учеников класса. Выяснить, есть ли среди них двойки.


Задача 3. Даны вещественные числа b1, b2, b3,,…,b9. Определить среднее арифметическое тех из них, которые больше 10.


Задача 4. Известна масса каждого из 15 учеников класса. Верно ли, что масса самого тяжёлого из них превышает массу самого лёгкого более, чем в два раза?

Индивидуальные задания для компьютерного практикума

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

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