Тема12 Циклы(определенные)

Цикл с параметром
(определенный цикл)
Когда известно число повторений, удобно
использовать цикл с параметром
K= <нач.зн>,
<кон.зн>
Команды тела цикла
– определенный цикл – частный случай
команды повторение с предусловием
(цикл «пока»).
Поскольку определенный цикл – наиболее
часто реализуемая циклическая структура,
во всех языках программирования для его
реализации используется
специальная команда.
For k:=<нач.зн.> to <кон.зн.> do
Команды тела цикла;
K= <нач.зн>
K<= <кон.зн>
K= <нач.зн>,
<кон.зн>
Команды тела цикла
да
Команды тела цикла
K:=K+1
For k:=<нач.зн.> to <кон.зн.> do
Команды тела цикла;
Команды тела цикла выполняются определенное
число раз. За количеством выполнений тела цикла
следит параметр цикла (счетчик).
Вначале при входе в цикл счетчик принимает
начальное
значение,
затем
сравнивается
соответствие счетчика с конечным значением.
В случае если значение счетчика меньше или
равняется конечному значению – выполняются
команды тела цикла,
затем значение счетчика увеличивается на один,
и управление передается в начало цикла
(на блок проверки условия продолжения цикла).
K= <нач.зн>
K<= <кон.зн>
да
Команды тела цикла
K:=K+1
For k:=<нач.зн.> to <кон.зн.> do
Команды тела цикла;
Задача. Получить сумму целых чисел от а до в.
а до в – целые числа, (а < в)
S=0
Ввод A,В
K= А,В
S=S + K
Вывод S
Анализ результатов:
Программа:
Program Symma3;
Var a, b, k, s: integer;
Begin
S:=0;
Write( ‘Введите 2 целых числа: ’);
Readln(a,b);
For k:= a to b do
s:=s+k;
Writeln( ‘Sum = ’ , S:4);
End.
Введите 2 целых числа: 1 10
Предполагаемый результат: Sum = 55
Самостоятельная работа
Написать алгоритм и программу
1.
Написать на экране 20 раз свое имя в виде:
1 Федор
2 Федор
…
20 Федор
2. Таблицу умножения на 7. Результат представить в виде:
7 х 2 = 14
7 х 3 = 21
…
7 х 9 = 63
3.
Получить сумму чисел от 1 до N. (S = 1 + 2 + 3 + …+ N )
4. Получить произведение чисел от 1 до N. (N! = 1*2*3*…*N)
Таблицу умножения на N. Результат представить в виде:
7 х 2 = 14
(Например, N = 7)
7 х 3 = 21
…
7 х 9 = 63
Программа:
Ввод N
k = 2, 9
Вывод N*k
Program Tabl_ymn;
Var N, k: integer;
Begin
Write( ‘Введите целое число ’);
Readln(N);
For k:= 2 to 9 do
Writeln( N, ‘ x ‘ , k, ’ = ‘ , N*k);
Readln;
End.
Самостоятельная работа
Написать алгоритм и программу
1.
Просуммировать N чисел, задаваемых пользователем.
Таблицу умножения на 7. Результат представить в виде:
7 х 2 = 14
7 х 3 = 21
…
7 х 9 = 63
3. Получить произведение чисел от 1 до N. (N! = 1*2*3*…*N)
2.
4. 12 + 22 + 32 + 42 + …+ 202
5. cos(1) + cos(2) + cos(3) + cos(N)
2 + 4 + 6 + 8 + …+ 30
Определим k – переменная цикла, k = 1, 2, 3, … 15
S – переменная ячейка для накопления суммы.
S=0
K= 1, 15
S=S + 2*k
Вывод S
Решение задач
1. 1/12 + 1/32 + 1/52 + … + 1/992
2. √2 + √3 + √4 + … + √10