Применение вложенных циклов 4 декабря 2013 г.. циклический алгоритм; виды циклов что такое вложенные циклы как они применяются в программах. - презентация

1 Применение вложенных циклов 4 декабря 2013 г.

2 циклический алгоритм; виды циклов что такое вложенные циклы как они применяются в программах

3 Алгоритм называется циклическим, если последовательность шагов алгоритма выполняется многократно

4 Цикл – это многократно выполняемая последовательность операторов (команд). В языке Паскаль используются три основные циклические конструкции: (WHILE... DO...), (REPEAT... UNTIL...), (FOR... TO / DOWNTO... DO...). Цикл с параметром (FOR … DO …) является частным случаем цикла с предусловием. 1 Оператор цикла с параметром Оператор цикла с предусловием да нет условие DOWHILE оператор Оператор цикла с постусловием да нет REPEAT UNTIL оператор условие

5 Цикл с предусловием (WHILE... DO...) многократно выполняет одни и те же действия при истинности условия, которое изменяется внутри цикла. Истинность условия проверяется перед выполнением операторов. Если условие с самого начала оказалось ложным, то операторы тела цикла не будут выполнены ни разу. Если в цикле необходимо выполнить несколько простых операторов, они объединяются после служебного слова DO в составной оператор операторными скобками BEGIN... END. 2 Оператор цикла с параметром Оператор цикла с предусловием Оператор цикла с постусловием да нет да нет условие DOWHILE оператор REPEAT UNTIL оператор условие

6 3 В цикле с постусловием (REPEAT... UNTIL...) сначала выполняются операторы, составляющие тело цикла, затем проверяется условие, которое в данном случае является условием выхода из цикла, т.е. если оно ложно, то операторы цикла повторяются, иначе (если условие истинно) – цикл завершается. Таким образом, в конструкции (REPEAT... UNTIL...) тело цикла всегда выполняется хотя бы один раз. Оператор цикла с параметром Оператор цикла с предусловием да нет Оператор цикла с постусловием да нет условие DOWHILE оператор REPEAT UNTIL оператор условие

7 4 Цикл (FOR... TO... DO...) работает следующим образом: параметру цикла присваивается значение выражения 1, потом это значение сравнивается со значением выражения 2. Если условие выполнения цикла истинно (значение счетчика меньше значения выражения 2 ), то выполняется тело цикла. Далее значение параметра цикла автоматически увеличивается на единицу, снова сравнивается со значением выражения 2, если условие истинно, то опять выполняется тело цикла. Цикл прекращается, когда значение параметра цикла станет больше значения выражения 2. Оператор цикла с параметром Оператор цикла с предусловием да нет Оператор цикла с постусловием да нет условие DOWHILE оператор REPEAT UNTIL оператор условие FORTO DOWNTO :=:= DO оператор FOR :=:= DO оператор переменнаявыражение 1 переменная выражение 1 Имя параметра (счетчика) циклаНачальное значение счетчика цикла выражение 2 параметр цикла Конечное значение счетчика цикла

8 5 Цикл (FOR... DOWNTO... DO...) работает следующим образом: параметру цикла присваивается значение выражения 1, потом это значение сравнивается со значением выражения 2. Если условие выполнения цикла истинно (значение счетчика больше значения выражения 2 ), то выполняется тело цикла. Далее значение параметра цикла автоматически уменьшается на единицу, снова сравнивается со значением выражения 2, если условие истинно, то опять выполняется тело цикла. Цикл прекращается, когда значение параметра цикла станет меньше значения выражения 2. Оператор цикла с параметром Оператор цикла с предусловием да нет Оператор цикла с постусловием да нет условие DOWHILE оператор REPEAT UNTIL оператор условие FORTO DOWNTO :=:= DO оператор FOR :=:= DO оператор переменнаявыражение 1 переменная выражение 1 Имя параметра (счетчика) циклаНачальное значение счетчика цикла выражение 2 параметр цикла Конечное значение счетчика цикла

9 for i:=0 to n do begin for j:=0 to m dodo begin for k:=0 to w do begin end; end; Цикл k Цикл j Цикл i Цикл называется вложенным, если он находится в теле другого цикла. Внутренний цикл должен полностью находиться в теле внешнего цикла.

10 I Оператор J K

11 Количество повторений IJK For I := 1 to 2 do for J:= 11 to 12 do for K:=21 to 23 do ;

12 For I := 1 to 2 do for J:= 11 to 12 do for K:=21 to 23 do ; 2*2*32*2*3 For I := A to B do for J:= C to D do for K:=E to F do ; (B-F+1)* (D-C+1)* (F-E+1) Количество повторений

13 КОМПЬЮТЕРНЫЙ ПРАКТИКУМ Составить программу имитации заставки к фильму Матрица, используя программу, которая выводила на экран заглавные буквы латинского алфавита зеленого цвета со случайными координатами.

14 program matrix; uses crt; var x,y,y1:integer; symbol:char; BEGIN clrscr; randomize; repeat y:=random(48)+1; x:=random(80)+1 y:=1; symbol:=char(random(26)+65); textcolor(2) ; repeat GoToXY(x,y);write(symbol);delay (2000); y:=y+1; until y>=y1; delay(3000); until keypressed; END. Y HJ KU ML M KJ NBHGYU I PPI YN D C V G B JM J KJML KIOIIN II JBHTO O G T O G R Q h U O P Q E A E R T P A S D F G U H J K L Z X C V B N M U D D G J H GA D Q FH GIEOPFJ BHB KJOIWK D MNHRID V NFV K F K

15 Program matrix; Uses crt; Var x,y:integer; symvol:char; BEGIN clrscr; randomize; Repeat y:=random(48)+1; x:=random(80)+1; symvol:=char(random(26)+65); textcolor(2) ; GoToXY(x,y);write(symvol);delay(2000); Until keypressed; END. Задача: Задача: вывести на экран заглавные буквы латинского алфавита зеленого цвета со случайными координатами

16

17 Program matrix; Uses crt; Var x,y:integer; symvol:char; BEGIN clrscr; randomize; Repeat y:=random(48)+1; x:=random(80)+1; symvol:=char(random(26)+65); textcolor(2) ; Repeat GoToXY(x,y);write(symvol);delay(2000); Until keypressed; END. y1:=random(48)+1; Var x,y,y1:integer; y:=y+1; Until y>=y1; y:=1; x:=random(80)+1

18 Проект «Матрица» Алгоритм создания проекта: 1.Изменить программу таким образом, чтобы на экране падали: Символы – цифры; Символы произвольного цвета; Символы не оставляющие след. 2. Протестировать программы. 3. Проанализировать полученные результаты. КОМПЬЮТЕРНЫЙ ПРАКТИКУМ

19 Program matrix; Uses crt; Var x,y,y1:integer; symvol:char; BEGIN clrscr; randomize; Repeat y1:=random(48)+1; x:=random(80)+1; y:=1; symvol:=char(random(26)+65); textcolor(2) ; Repeat GoToXY(x,y);write(symvol);delay(2000); y:=y+1; Until y>=y1; Until keypressed; END. (10)+48) textcolor(random(15)+1); textcolor (0); delay (30000);

20 Program matrix; Uses crt; Var x,y,y1:integer; symvol:char; BEGIN clrscr; randomize; Repeat y1:=random(48)+1; x:=random(80)+1; y:=1; symvol:=char(random(26)+65); Repeat textcolor(random(15)+1) ; GoToXY(x,y);write(symvol);delay(2000); textcolor(0) ; GoToXY(x,y);write(symvol);delay(2000); y:=y+1; Until y>=y1; Until keypressed; END.

21