Организация повторений в Паскале. i,1,n Действие 1 Действие 2 i,1,n Действие 1 Действие 2 FOR i:=1 TO N DO BEGIN действие 1; действие 2; END; FOR i:=1. - презентация

1 Организация повторений в Паскале

2 i,1,n Действие 1 Действие 2 i,1,n Действие 1 Действие 2 FOR i:=1 TO N DO BEGIN действие 1; действие 2; END; FOR i:=1 TO N DO действие 1; действие 2; Блок-схема цикла с параметром

3 ПОСЛЕДОВАТЕЛЬНОСТЬ ВЫПОЛНЕНИЯ КОМАНД ОПЕРАТОРА FOR...TO...DO Определяются значения переменных a1 и a2 ; 2. Переменной i присваивается значение переменной a1 ; 3. Проверяется условие выполнения тела цикла i a2; 4. Если это условие истинно, то выполняется тело цикла; 5. Увеличивается значение переменной i на 1; 6. Переход к пункту 3. Тело цикла будет выполнено a2 – a1 + 1 раз.

4 Примеры Выполнение цикла-фрагмента программы: For i:=14 downto 10 do write(i:3); Выведет на экран последовательность чисел в виде: Если переменная-счётчик имеет символьный char тип, то оператор выведет на экран последовательность букв в виде: For ch:=a to e do write (ch:2); a b c d e Оператор For ch:=e to a downto write (ch:2); Выведет на экран последовательность букв в виде: e d c b a

5 В операторе For... значение счетчика может не только увеличиваться, но и уменьшаться. Условие выполнения тела цикла: i a1. Тело цикла будет выполнено a2 – a1 + 1 раз. For i:=1 downto a1 do begin тело цикла end;

6 Правила Оператор for используется для организации циклов с фиксированным, заранее известным числом повторений; Количество повторений определяется начальным и конечным значением переменной-счётчика. Переменная-счётчик должна быть порядкового типа: чаще integer, реже – char, boolean и т.д. Начальное и конечное значение должны быть константами и должны принадлежать к одному и тому же типу. Параметр цикла for может изменяться(увеличиваться или уменьшаться) каждый раз при выполнении тела цикла только на единицу. Если нужен другой шаг изменения параметра, предпочтительнее циклы repeat или while

7 Найти сумму 4 произвольных чисел

8 Правильно записаны фрагменты под номерами 1 и 4. Во фрагментах 2 и 3 в операторах тела цикла производится изменение значение счетчика цикла. Значение счетчика цикла может использоваться в выражениях, входящих в операторы тела цикла, но изменение значения счетчика цикла этими операторами недопустимо.

9 Задача 1. Написать программу, которая вычисляет сумму положительных из n введённых с клавиатуры чисел. начало n S=0 1,n,1 x x>0 S=S+x S конец Да Нет

10 Program summa; Var i, n, x: integer; Begin Writeln (ввести количество чисел); Readln(n); s :=0; For i := 1 to n do Begin Writeln(ввести число); Readln(x); If x > 0 then s := s + x; End; Writeln (сумма >0 =, s); Readln; End.

11 начало y:=1, 10 Kw:=sqr(y) Y,kw конец y:=10, 1 Kw:=sqr(y) Y,kw Program KWADRAT; Uses crt; Var kw, y: integer; Begin Clrscr; For y:=1 to 10 do Begin kw:= sqr(y); Writeln (y:3,kw:5); End; Writeln; For y:=10 downto 1 do Begin kw:=sqr(y); Writeln (y:3,kw:5); End; Readln; End. Задача 2. Вывести на экран значение y 2 (y=1,2,…,10) в возрастающем и убывающем порядке

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

13 1. Сколько раз будет выполнено тело цикла? for i:= –5 to 5 do тело цикла; for i:= 6 to 2 do тело цикла; for i:= 3 to 3 do тело цикла; for i:= 3 downto 4 do тело цикла; for i:= 3 downto 1 do тело цикла;

14 4. Написать программу, которая вычисляет среднее арифметическое вводимой с клавиатуры последовательности дробных чисел. Количество чисел должно задаваться во время работы программы.

15 WHILE (УСЛОВИЕ ИСТИННО) DO BEGIN действие 1; действие 2; END; II. Цикл с предусловием Может не выполнится ни разу. Выполняется пока условие истинно. ПОКА (УСЛОВИЕ ИСТИННО) ВЫПОЛНЯТЬ НАЧАЛО действие 1; действие 2; КОНЕЦ; нет условие Действие 1 Действие 2 да Виды циклов Чтобы не было зацикливания, переменные, входящие в условие, должны изменяться в теле цикла.

16 WHILE (УСЛОВИЕ ИСТИННО) DO BEGIN действие 1; действие 2; END; условие Действие 1 Действие 2 да нет WHILE (УСЛОВИЕ ИСТИННО) DO действие 1; действие 2; условие Действие 1 Действие 2 да нет Виды циклов

17 Выполните счёт по блок-схеме для чисел : 5, 9, 12 начало х < 53? - 2 X 3 результат конец да нет Х = Р =

18 Задача 4. Вычислить сумму ряда чисел … Program sum; var a, s: integer; Begin writeln ( вычисление суммы ряда); a:=0; s:=0; while a

19 Задача 5. Найти количество цифр в введенном с клавиатуры числе (n > 0).... Write(n=); Readln(n ); m := n; k :=0; While m o do Begin m := m div 10; k := k +1; End; Writeln (количество цифр в числе, n, =, k); Readln; End. Постройте блок-схему решения данной задачи

20 Задача 6. Вычислить сумму ряда чисел Program sum; var a, s: integer; Begin writeln ( вычисление суммы ряда); a:=0; s:=0; while a

21 Задача 7. Составить программу, результатом работы которой будет печать квадратов чисел, находящихся в диапазоне от 0 до 1 с шагом 0,2

22 Задача 8. Составить программу, результатом работы которой будет печать значений функции y = 5x 2 – 2x + 1 на отрезке [-5; 5] с шагом x = 2.