Циклы с параметром Pascal
Цикл - это многократное повторение последовательности действий. это многократное повторение последовательности действий. Различают три вида циклов: Цикл с параметром; Цикл с параметром; Цикл с предусловием; Цикл с предусловием; Цикл с постусловием. Цикл с постусловием.
Структура цикла («ДЛЯ») с параметром For i:=1 to n do ; Используется в том случае, если тело цикла содержит только одну команду. i - параметр 1 – начальное значение n – конечное значение Пример: For i:=1 to 10 do s:=s+1;
Если тело цикла содержит несколько команд, то For i:=1 to n do begin ; end; to автоматически увеличивает значение параметра на 1 параметрзначение1 значение2
Если значение1 > значение2, то For i:=n downto 1 do begin ; end; downto автоматически уменьшает значение параметра на 1 параметрзначение1значение2
Изображение в блок-схеме: :=.. Тело цикла
Сколько раз повториться цикл? FOR I:=1 to 5 Do FOR I:=1 to 5 Do FOR I:=10 to 15 Do FOR I:=10 to 15 Do FOR I:=1 to 3 Do FOR I:=1 to 3 Do FOR I:=10 to 5 Do FOR I:=10 to 5 Do
Какое значение примет переменная в конце цикла? a:=0; for i:=1 to 10 do a:=a+2; a:=0; for i:=1 to 10 do a:=a+2; a:=15; for i:=10 downto 3 do a:=a-2; a:=15; for i:=10 downto 3 do a:=a-2; a:=1; for i:=5 to 7 do a:=a*2; a:=1; for i:=5 to 7 do a:=a*2;
Расставьте в правильном порядке: A For i:=1 to 20 do B S:=S * i; Cend; D S:=1; n:=0; En:=n+1; FbeginAbeginB S:=0; n:=0; C For j:=10 to 30 do D S:=S + j; En:=n+1; Fend; Задание: найти произведение чисел 1,2,3,…,20 и посчитать, сколько раз выполнится цикл. Задание: найти сумму чисел и посчитать, сколько раз выполнится цикл.
Задача: Найти сумму 5 произвольных чисел, введенных с клавиатуры. Словесный алгоритм: Обнуляем сумму (иначе может сохраниться предыдущее значение и вычисления будут неверными) Задаем цикл(начальное значение 1; конечное значение 5) Тело цикла: - ввод следующего значения X; - вычисление суммы через предыдущее; Вывод суммы. начало S:=0 i:=1..5 x S:=S+x S конец
Программа: Program summa_5; Var i, x, S: integer; begin S:=0; For i:=1 to 5 do begin writeln(Введите число ); readln(x); S:=S+x; end; writeln(S=,S); readln; end. S xi Проверка условия
Задача для самостоятельного решения 1: Составьте программу, которая находит сумму N чисел, введенных с клавиатуры. Составьте программу, которая находит сумму N чисел, введенных с клавиатуры.
Задача для самостоятельного решения 2: Составьте программу, которая вычисляет сумму чисел от 1 до N. Значение N вводится с клавиатуры. Составьте программу, которая вычисляет сумму чисел от 1 до N. Значение N вводится с клавиатуры.
Задача для самостоятельного решения 3: Составьте программу, которая вычисляет произведение чисел от 1 до N. Значение N вводится с клавиатуры. Составьте программу, которая вычисляет произведение чисел от 1 до N. Значение N вводится с клавиатуры.