ЦИКЛЫ

Жиляева Ирина Петровна

,
В - ; A≤B.

Обратный цикл
For :=

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

zadacha1;
Var I, k: Integer;
Begin
Cls;
For I:=20 To 100 Do If I

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

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

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

спортом.

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

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

');
readln(n);
k := 0;
while n 0 do
begin
n :=

Начало

Ввод n

k:=0

n<>0

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

Вывод k

Конец

нет

да

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

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

');
readln(n);
k := 0;
repeat
n:=n div 10;
k:=k+1;
until n = 0;
writeln ('В

Начало

Ввод n

k:=0

n=0

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

Вывод k

Конец

нет

да

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

раз при входе в цикл.
Цикл работает, пока условие ложно (пока

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

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

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

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

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

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

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

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

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

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

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

:= 7;
while a < b do

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

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

бесконечно

бесконечно

3;
while a < b do b

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

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

0

1

2

бесконечно

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

0

1

2

бесконечно

7;
repeat a := a + 1;

б)  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

бесконечно

бесконечно

бесконечно

3;
repeat b := a - b;

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

бесконечно

бесконечно

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

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

1

2

3

1

2

3

больше 10.

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

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

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


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


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

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

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

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

цифра a.
Задача 2. Составить программу планирования закупки товара в магазине

Домашнее задание