АЛГОРИТМ ПОВТОРЕНИЯ ЦИКЛ FOR TO DO FOR DOWNTO DO. - презентация

1 АЛГОРИТМ ПОВТОРЕНИЯ ЦИКЛ FOR TO DO FOR DOWNTO DO

2 Цикл – это многократное выполнение одинаковой последовательности действий. Цикл FOR -цикл с известным числом шагов

3 БЛОК СХЕМА АЛГОРИТМА ПЕРЕМЕННАЯ ЦИКЛА= НАЧАЛЬНОЕ ЗНАЧЕНИЕ ПЕРЕМЕННАЯ ЦИКЛА <= КОНЕЧНОГО ЗНАЧЕНИЯ ТЕЛО ЦИКЛА ПЕРЕМЕННАЯ ЦИКЛА = ПЕРЕМЕННАЯ ЦИКЛА +1 ДА НЕТ СЛЕДУЮЩИЙ ОПЕРАТОР

4 ТЕЛО ЦИКЛА – ТЕ ДЕЙСТВИЯ, КОТОРЫЕ МОГУТ БЫТЬ ПОВТОРЕНЫ НЕСКОЛЬКО РАЗ ПЕРЕМЕННАЯ ЦИКЛА– ПЕРЕМЕННАЯ ПОРЯДКОВОГО ТИПА (interger, char) НАЧАЛЬНОЕ ЗНАЧЕНИЕ И КОНЕЧНОЕ ЗНАЧЕНИЕ ДОЛЖНЫ БЫТЬ ОДНОГО ТИПА С ПЕРЕМЕННОЙ ЦИКЛА

5 ОПЕРАТОР ЦИКЛА С ПАРАМЕТРОМ FOR := TO DO BEGIN END;

6 ОСОБЕННОСТИ ЦИКЛА С ПАРАМЕТРОМ 1. ЦИКЛ ИСПОЛЬЗУЕТСЯ, ЕСЛИ ЗАРАНЕЕ ИЗВЕСТНО, СКОЛЬКО РАЗ НАДО ПОВТОРЯТЬ ТЕЛО ЦИКЛА 2. ТЕЛО ЦИКЛА МОЖЕТ СОСТОЯТЬ ТОЛЬКО ИЗ ОДНОГО ОПЕРАТОРА ( ПРОСТОГО ИЛИ СОСТАВНОГО) 3. ЗНАЧЕНИЕ ПЕРЕМЕННОЙ ЦИКЛА НЕЛЬЗЯ ИЗМЕНЯТЬ В ТЕЛЕ ЦИКЛА

7 Задача. Вывести на экран квадраты и кубы целых чисел от 1 до 8 Особенность: одинаковые действия выполняются 8 раз.

8 8 Алгоритм начало i, i2, i3 конец нет да i <= 8? i := 1; i := i + 1; i2 := i * i; i3 := i2 * i; задать начальное значение переменной цикла проверить, все ли сделали вычисляем квадрат и куб вывод результата перейти к следующему i

9 9 Алгоритм (с блоком «цикл») начало i, i2, i3 конец i2 := i * i; i3 := i2 * i; i := 1,8 блок «цикл» тело цикла

10 10 Программа program qq; var i, i2, i3: integer; begin for i:=1 to 8 do begin i2 := i*i; i3 := i2*i; writeln(i:4, i2:4, i3:4); end; end. переменная цикла переменная цикла начальное значение конечное значение

11 11 Цикл с уменьшением переменной Задача. Вывести на экран квадраты и кубы целых чисел от 8 до 1 (в обратном порядке). Особенность: переменная цикла должна уменьшаться.

12 12 Алгоритм начало i, i2, i3 конец нет да i <= 1 ? i := 8 ; i := i - 1; i2 := i * i; i3 := i2 * i; задать начальное значение переменной цикла проверить, все ли сделали вычисляем квадрат и куб вывод результата перейти к следующему i

13 13 Программа program qq; var i, i2, i3: integer; begin for i:=8 downto 1 do begin i2 := i*i; i3 := i2*i; writeln(i:4, i2:4, i3:4); end; end. переменная цикла переменная цикла начальное значение конечное значение

14 14 Цикл с переменной for := to do begin {тело цикла} end; for := to do begin {тело цикла} end; Увеличение переменной на 1: for := downto do begin {тело цикла} end; for := downto do begin {тело цикла} end; Уменьшение переменной на 1:

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

16 16 Сколько раз выполняется цикл N=? Что будет напечатано в результате выполнения фрагмента программы? for C:=b to h do Write(C); N=5 bcdfh N=5 bcdfh for C:=F downto K do Write(C); N=0 for i:=-2 downto 3 do Write(i); N=0 for i:=20 to 30 do Write(I div 2); N= N= for i:=0 downto -3 do Write(i*2); N= N=

17 17 Найди ошибку: y:=0; For x:=0.1 to 0.9 do y:=y+sin(x); k:=81; y:=1; For i:=1 to sqr(i) do y:=2*y; k:=0; For i:=1 to 9 do; k:=k+sqr(i); k:=k*i; k:=1; For i:=1 to 64 do Begin i:=2*i; k:=k+i end; k:=1; For i:=1 to 64 do Begin i:=2*i; k:=k+i end; begin end; y:=0; For i:=1 to 9 do begin x:=i/10;y:=y+sin(x); end; y:=0; For i:=1 to 9 do begin x:=i/10;y:=y+sin(x); end;

18 Заполни таблицу выполняется 5 раз For i:= to doFor i:= downto do выполняется 1 раз For i:= to doFor i:= downto do не выполняется ни разу For i:= to doFor i:= downto do выполняется бесконечно много раз For i:= to doFor i:= downto do выполняется k раз For i:= to doFor i:= downto do

19 19 Задания «1»: Ввести a и b и вывести квадраты и кубы чисел от a до b. Пример: Введите границы интервала: «2»: Вывести квадраты и кубы 10 чисел следующей последовательности: 1, 2, 4, 7, 11, 16, … Пример:

20 ЗАДАЧА В первом году на участке в 100 гектаров средняя урожайность ячменя составила 20 центнеров с гектара. После этого каждый год площадь участка увеличивалась на 5%, а средняя урожайность – на 2%. Определить: а) урожайность за второй,третий, …, восьмой год; б) площадь участка во второй, третий, …, седьмой год; в) какой урожай будет собран за первые шесть лет.

21 21 Алгоритм задачи А начало У, Г конец нет да Г<= 8 ? Г=2 Г=Г +1 ; У= Y+Y*П У=20 П=0.02

22 программа PROGRAM UROGAY; USES CRT; VAR G:INTEGER; U,P:REAL; BEGIN G:=2;U:=20; P:=0.02; FOR G:=2 TO 8 DO BEGIN U:=U+U*P; WRITELN (UROGAYNOST=,U:0:2,VGOD=,G); END; REDLN END.

23 Задачи: Напечатать таблицу перевода из градусов по шкале Цельсия(С) в градусы шкалы Фаренгейта(F) для значений от 15 до 30 С с шагом 1 С (Перевод осуществляется по формуле F=1,8C+32). Подсчитать количество чисел делящихся на 5 среди всех двузначных чисел. Вывести все двузначные числа, заканчивающиеся на 5 или 7.

24 Домашнее задание Напечатать таблицу соответствия между весом в фунтах и весом в кг для значений от 1 до 10 фунта с шагом 1 фунт (1 фунт=400 г). Найти сумму положительных нечетных чисел меньше 100.

25 1. Напечатать на экране 10 раз Иванов Иван 2. Найти среди трехзначных чисел – числа палиндромы? 3. Вывести все трехзначные числа, оканчивающиеся на Составить таблицу умножения на n. 5. Составить программу поиска трехзначных натуральных чисел, делящихся на каждую из своих цифр без остатка. 6. Покупатель должен заплатить в кассу S руб. У него имеется 1,2,5,10,50,100,500 рублей. Сколько купюр разного достоинства отдаст покупатель если начнет платить с самых крупных?