Язык программирования Паскаль 8 часть

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

Условие проверяется после очередного выполнения цикла. В цикле Repeat – Until гарантируется хотя бы однократное выполнение цикла. Критерием прекращения цикла будет истинность условия (равенство выражения константе true). Тело цикла Repeat – Until может содержать несколько операторов.

a := 4; b := 6; repeat a := a + 1; until a > b; a := 4; b := 6; repeat a := a + 1; until a > b; a := 4; b := 6; repeat a := a + b; until a > b; a := 4; b := 6; repeat a := a + b; until a > b; a := 4; b := 6; repeat a := a + b; until a < b; a := 4; b := 6; repeat a := a + b; until a < b; a := 4; b := 6; repeat b := a - b; until a < b; a := 4; b := 6; repeat b := a - b; until a < b; a := 4; b := 6; repeat a := a + 2; until a < b; a := 4; b := 6; repeat a := a + 2; until a < b; 3 раза a = 7 3 раза a = 7 1 раз a = 10 1 раз a = 10 зацикливание 2 раза b = 6 2 раза b = 6 зацикливание

Составить программу суммирования произвольного количества целых чисел. Суммирование прекратить при вводе числа 0. Математическая модель: а – числа, которые будем складывать; s – сумма этих чисел; обязательные условия решения задачи: s=s+a (сумма увеличивается на а); проверяем равно ли а 0;

Программа Program summa1; Var a,s: integer; Begin s:=0; Repeat write (Значение a=); readln (a); s:=s+a; Until a=0; writeln (сумма введённых чисел равна, s); End.

Домашнее задание: Составить программу для последовательного произведения вводимых с клавиатуры целых чисел. Предусмотреть выход из произведения при вводе нуля.