Циклы с предусловием и постусловием в Паскале. - презентация

1 Циклы с предусловием и постусловием в Паскале

2 Цикл с предусловием While (условие)do Begin действие 1; действие 2; …………….. End; Если условию соответствует одно действие, то Begin…. End; не нужны Цикл с постусловием Repeat действие 1; действие 2 Until (условие)

3 Помните, как злая тётя Полли в наказание за плохое поведение заставила Тома Сойера красить забор. Мы тоже попытаемся его покрасить с использованием циклов.

4 Цикл с предусловиемЦикл с постусловием 1. Есть еще силы? 2. Красим дощечку!!! -Да!!! 1. Есть еще силы? -Да!!! -НЕТ!!! -Да!!! 2. Красим дощечку!!! Свободен!!! 2. Устал? -НЕТ!!! 1. Красим дощечку!!! 2. Устал? -НЕТ!!! 1. Красим дощечку!!! 2. Устал? -НЕТ!!! 2. Устал? -Да!!! Свободен!!! 1. Красим дощечку!!!

5 Цикл с предусловиемЦикл с постусловием Вычислить значение y=2x+1.5 на промежутке от А до В с шагом Н Program M_1; Var Begin Writeln (Введите А, В, Н); Readln (A, B, H); X:=A; Whil XB Readln End. Эти три действия будут выполнятся в цикле, пока будет работать условие XB не работает, как только Х достигнет своего предельного значения и станет равным В, цикл закончится

6 Задания: Дана последовательность операторов a:=1; b:=1; while b

7 Program M_1; Var i:Integer; E,a,Sum:Real; Begin E:=0.01; Sum:=0; i:=1; a:=1; While a>E do Begin Sum:=Sum+a; i:=i+1; a:=1/i; End; Writeln (Sum:=,Sum); Readln End. Program M_1; Var i:Integer; E,a,Sum:Real; Begin E:=0.01; Sum:=0; i:=1; Repeat a:=1/I; Sum:=Sum+a; i:=i+1; Until a

8 Выводы : До начала цикла должны быть сделаны начальные установки переменных, управляющих условием цикла, для корректного входа в цикл В теле цикла должны присутствовать операторы, изменяющие переменные условия так, чтобы цикл через некоторое число повторений завершился Цикл с предусловием While (пока условие истинно) Цикл с постусловием Repeat (до истинности условия) Цикл работает пока условие истинно (пока True) Цикл работает пока условие ложно (пока False) Цикл завершается, когда условие становится ложным (до False) Цикл завершается, когда условие становится истинным (до True) Цикл может не выполниться ни разу, если исходное значение условия при входе в цикл False Цикл обязательно выполнится как минимум один раз Если в теле цикла требуется выполнить более одного оператора, то необходимо использовать составной оператор Независимо от количества операторов в теле цикла, использование составного оператора не требуется

9 Вопрос 1. Важен ли порядок действий внутри цикла? Что произойдет если изменить порядок действий? Стало a:=1; sum:=0; E:=0.01 While a>E do Begin Sum:=Sum+a; a:=1/i; i:=i+1; End; Было a:=1; sum:=0; E:=0.01 While a>E do Begin Sum:=Sum+a; i:=i+1; a:=1/i; End;

10 Стало I:=1; E:=0.01;sum:=0 Repeat Sum:=Sum+a; a:=1/I; i:=i+1; Until a

11 Стало a:=1; sum:=0; E:=0.01 While a>E do Begin i:=i+1; a:=1/i; Sum:=Sum+a; End; Было a:=1; sum:=0; E:=0.01 While a>E do Begin Sum:=Sum+a; i:=i+1; a:=1/i; End; Вопрос 3. Важен ли порядок действий внутри цикла? Что произойдет если изменить порядок действий ?

12 1.Название: Информатика. Базовый курс класс+Задачник-практикум Автор: Семакин Игорь Геннадьевич, Залогова Л.А., Русаков С.В., Шестакова Л.В. Издательство: LBZ Год издания: Паскаль для школьников Автор: Ушаков Д. М., Юркова Т. А. Издательство: Питер Год издания: Источники материалов