Алгоритмическая структура цикл Алгоритм циклической структуры - это алгоритм, в котором происходит многократное повторение одного и того же участка программы. - презентация

1 Алгоритмическая структура цикл Алгоритм циклической структуры - это алгоритм, в котором происходит многократное повторение одного и того же участка программы.

2 Циклы позволяют многократно выполнять одну или группу команд, причем в тексте программы нет необходимости записывать эти команды несколько раз. В языке программирования PASCAL существует три вида циклов: 1. Арифметический (перечисляемый) цикл FOR 2. Логический цикл с предусловием WHILE 3. Логический цикл с постусловием REPEAT

3 Цикл с постусловием Repeat ; …………….. ; Until ;

4 Работа оператора repeat 1. Выполняется тело цикла; 2. Проверяется условие выхода из цикла; (Поэтому цикл выполняется хотя бы один раз) 3. Если условие ложно, то переход к п.1; 4. Если условие истинное, то происходит выход из цикла. Repeat – повторяй; Until – до тех пор пока; Конструкция: Repeat у:= а+1; a:=a+1; until а+2>10 Читается так: Повторяй у присваивать а+1 до тех пор, пока а+2 не станет больше 10.

5 Цикл с предусловием While do ; Если операторов больше одного нужно использовать «операторные скобки» Тогда While do begin ; …………….. ; end;

6 Работа оператора while ; 1. Проверяется условие, стоящее после while; 2. Если условие истинно, то выполняется оператор(тело цикла), стоящий после do; 3. Переход к п Если условие ложно, то происходит выход из цикла. Конструкция: While а+2

7 For i:=n1 to n2 do ; i – параметр цикла (счетчик), переменная целого типа n1 – начальное значение счетчика n2-конечное значение счетчика Особенностью арифметического цикла является то, что число повторений операторов цикла должно быть известно заранее. Решение о выполнении или невыполнении в очередной раз тела цикла принимается до начала его прохождения, поэтому может случиться так, что тело цикла не будет выполнено ни разу. Арифметический цикл FOR

8 Порядок выполнения цикла FOR

9 Количество выполнений тела цикла определяется до первого выполнения тела цикла, поэтому, если в выражении n 2 используются переменные, которые изменяются в теле цикла, это никак не повлияет на количество выполнений тела цикла. Например, в следующей последовательности операторов: n := 10; For i := 1 to n do Begin Write (i); n := 100; End; тело цикла будет выполняться 10 раз, хотя уже после первого выполнения тела цикла конечное значение параметра цикла станет равным 100.

10 Цикл под номером 1 будет выполняться для счетчика, последовательно принимающего значения –10, –9, –8, –7, –6, –5, –4,то есть 7 раз. Цикл под номером 2 не будет выполняться ни разу, так как начальное значение счетчика больше конечного. Цикл под номером 3 будет выполняться 1 раз для счетчика, равного 3.

11 В Турбо-Паскале имеются два способа для организации регулярного цикла: прямой и обратный. Прямой пересчет идет от известного меньшего числа до известного большего, на каждом шаге прибавляется единица (например, от 20 до 25: 20, 21, 22, 23, 24, 25). Обратный пересчет – от большего к меньшему. И на каждом шаге вычитается единица.

12 Вывести на экран значение y 2 (y=1,2,…,10) в возрастающем и убывающем порядке Использование оператора цикла for.

13 program kvadrat1; uses crt; var I, y :integer; Begin for i:=1 to 10 do begin Y:=i*i; write (y:6); end; end. program kvadrat2; uses crt; var I, y :integer; Begin for i:=10 downto 1 do begin Y:=i*i; write (y:6); end; end.

14 Вычисление суммы и количества чисел

15 Вычислить сумму n чисел, вводимых с клавиатуры. program Summa; uses crt; Var i, n :integer; x, sum : real; Begin writeln (введи количество чисел n); readln (n); sum:=0; for i:=1 to n do begin write (введи число); readln (x); sum:=sum+ x; end; writeln (sum=, sum:6:2); end.

16 Датчик случайных чисел Randomize; включает датчик случайных чисел A:= Random(X); присваивает переменной А случайное целое число в промежутке от 0 до Х Х должно быть целое число

17 program Summa; uses crt; Var i, n :integer; x, sum : real; Begin Randomize; writeln (введи количество чисел n); readln (n); sum:=0; for i:=1 to n do begin x:=random(100) sum:=sum+ x; end; writeln (sum=, sum:6:2); end.

18 Ввести n чисел. Подсчитать сколько из них положительных.

19 program количество; uses crt; Var i, n, kol :integer; x: real; Begin writeln (введи количество чисел n); readln (n); kol:=0; for i:=1 to n do begin write (введи число); readln (x); if x>0 then kol:=kol+1; end; writeln (количество положительных чисел равно, x); end.

20 Написать программу нахождения среднего арифметического n чисел вводимых с клавиатуры

21 Выбрать наименьшие значение из 20 чисел, вводимых с клавиатуры:

22 program min; uses crt; var i:integer; x,y : real; Begin writeln (введи первое число'); readln (x); for i:=2 to 20 do begin write (введи, I, чело); readln (y); if y

23 Среди всех двузначных чисел найти те, сумма цифр которых равна n (0

24