Оператор цикла с предусловием

Оператор цикла с предусловием используется в тех случаях, когда заранее неизвестно число повторений цикла. Форма записи оператора цикла с предусловием: WHILE логическое выражение DO Begin операторы циклической части программы; End; WHILE - пока DO - выполнить

Оператор выполняется до тех пор пока логическое выражение (условие) имеет значение истина, прекращает выполняться, если логическое выражение принимает значение ложь. Блок - схема да нет

Задача: Известна сумма S1, положенная в банк и годовая процентная ставка P. Через сколько лет накопится сумма S2 ? program bank; var s1,s2,p:real; g:integer; begin write('Введите начальную сумму ); readln(s1); write(Введите конечную сумму ); readln(s2); write(Введите процентную ставку ); readln(p); g:=0; while s1

Задачи 1.Найти все делители натурального числа n. 2.Написать программу ввода чисел с клавиатуры, пока не будет введено число 0. 3.Найти количество цифр в целом числе.

Оператор цикла с постусловием

Сколько раз выполняется цикл? a := 1; for i:=1 to 3 do a := a+1; a := 1; for i:=1 to 3 do a := a+1; a = 4a = 4 a = 4a = 4 a := 1; for i:=3 to 1 do a := a+1; a := 1; for i:=3 to 1 do a := a+1; a = 1a = 1 a = 1a = 1 a := 1; for i:=1 downto 3 do a := a+1; a := 1; for i:=1 downto 3 do a := a+1; a = 1a = 1 a = 1a = 1 a := 1; for i:=3 downto 1 do a := a+1; a := 1; for i:=3 downto 1 do a := a+1; a = 4a = 4 a = 4a = 4

Сколько раз выполняется цикл? a := 4; b := 6; while a < b do a := a + 1; a := 4; b := 6; while a < b do a := a + 1; 2 раза a = 6 2 раза a = 6 a := 4; b := 6; while a < b do a := a + b; a := 4; b := 6; while a < b do a := a + b; 1 раз a = 10 1 раз a = 10 a := 4; b := 6; while a > b do a := a + 1; a := 4; b := 6; while a > b do a := a + 1; 0 раз a = 4 0 раз a = 4 a := 4; b := 6; while a < b do a := a - 1; a := 4; b := 6; while a < b do a := a - 1; зацикливание

Цикл с последующим условием используется также в тех случаях, когда заранее неизвестно число повторений цикла. Оператор цикла с постусловием имеет вид: REPEAT Операторы циклической части программы UNTIL логическое выражение; REPEAT – повторить UNTIL – до тех пор

Операторы циклической части выполняются повторно (по крайней мере 1 раз), до тех пор, пока значение логического выражения ложно. Условием прекращения циклических вычислений является истинное значение логического выражения. ИТАК, сначала выполняется циклическая часть, а затем проверяется условие.

Блок-схема данет

Сколько раз выполняется цикл? a := 4; b := 6; repeat a := a + 1 until a > b; a := 4; b := 6; repeat a := a + 1 until a > b; 3 раза a = 7 3 раза a = 7 a := 4; b := 6; repeat a := a + b until a > b; a := 4; b := 6; repeat a := a + b until a > b; 1 раз a = 10 1 раз a = 10 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; 2 раза b = 6 2 раза b = 6 a := 4; b := 6; repeat a := a + 2 until a < b; a := 4; b := 6; repeat a := a + 2 until a < b; зацикливание

Пример 1: Написать программу нахождения наибольшего общего делителя (НОД) двух натуральных чисел. program prim_1; Var x,y,s:integer; begin writeln('Введите x и y '); readln(x,y); repeat if x>y then x:=x mod y else y:=y mod x until (x=0) or (y=0); s:=x+y; writeln('НОД=',s); end.

Домашнее задание Подготовиться к самостоятельной работе по Условному оператору и Операторам цикла (с параметром, с постусловием, с предусловием).