ПРОГРАММИРОВАНИЕ ПОВТОРЕНИЙ МОУ «Средняя общеобразовательная школа 41» Учитель информатики: Рассохина Г.В. САРАНСК 2008

НАЧАЛО AB A, B, C A = A + C F = B + C F КОНЕЦ B = B + C F = A + B B < C A = A + B F = A + C нет да A = 1, B = 1, C = 4 F=? F = 6

A = 2, B = 2, C = 3 F=? НАЧАЛО A=B A, B, C A = A + B F = A + C F КОНЕЦ B = B + C F = A + B B >C C = A + B F = B + C нет да F = 7

Дан фрагмент программы: A = 3 B = 3 IF A < B THEN S = A * B ELSE S = A + B PRINT S Какое значение переменной S будет напечатано после выполнения данного фрагмента? S = 6

Циклом называется операция, в которой одни и те же действия повторяются многократно. Существуют два основных типа циклов: циклы со счетчиком (с известным числом повторений); циклы с условием, в которых действия повторяются до тех пор, пока выполняется определенное условие или пока не будет выполнено определенное условие.

ОПЕРАТОР FOR….NEXT For Счетчик=Начало To Конец [Step Шаг] [операторы цикла] [Exit For] Nexr [Счетчик] Счетчик – числовая переменная, используемая как счетчик цикла; Начало – начальное значение счетчика; Конец – конечное значение счетчика; Шаг – шаг изменения счетчика, по умолчанию 1; Exit For – используется для немедленной остановки цикла For….Next.

ПРИМЕР 1 Dim i As Integer Dim A As Integer A= 3 For i=1 to 3 A=A*i Next i Print A Сколько раз будет выполняться тело цикла? Что будет напечатано на форме? 3 18

ПРИМЕР 2 Dim i As Integer Dim A As Integer A= 3 For i=3 to 1 Step -1 A=A*i Next i Print A Сколько раз будет выполняться тело цикла? 3 Что будет напечатано на форме? 18

ПРИМЕР 3 Dim i As Integer For i=1 to 100 If i= 50 Then Exit For Next i Сколько раз будет выполняться тело цикла? ПРИМЕР 4 Dim i As Integer For i=1 to 1000: Next i Пустой цикл может использоваться для задержки времени.

Виды циклов Цикл «ПОКА» (с предусловием) Цикл «ДО» (с постусловием)

Цикл с предусловием Цикл с предусловием используется для программирования процессов, в которых число повторений оператора цикла не известно, а задается некоторое условие его окончания. Do While Условие Тело цикла Loop Do Until Условие Тело цикла Loop

Цикл с постусловием Отличие этого оператора от оператора цикла с предусловием: проверка условия производится после очередного выполнения тела цикла. Это обеспечивает его выполнение хотя бы один раз. Do Тело цикла [ Exit Do] Loop While Условие Do Тело цикла [ Exit Do] Loop Until Условие

Подсчет количества цифр начнем с последней цифры числа. Увеличим счетчик цифр на единицу. Число уменьшим в 10 раз (тем самым мы избавляемся от последней цифры числа). Далее с получившимся числом проделаем ту же последовательность действий и т.д., пока число не станет равным нулю. Посчитать количество цифр в числе ПРИМЕР 5. Дано натуральное число n

Dim N As Integer Dim K As Integer Dim M As Integer N = Val(Text1.Text) K = 0 M = N Do While M 0 K = K + 1 M = M / 10 Loop Print Print " В числе"; N; " – цифр"; K Вводим целое число Счетчику цифр присваиваем начальное значение Запоминаем число Пока М0 делать цикл «Уменьшаем» число на последнюю цифру Вывод количества цифр Программный код

ПРОЕКТ 1 Напечатать фразу « Изучаем циклы!» 15 раз с использованием оператора For….Next. Private Sub Command 1_Click() Dim i As Integer Cls For i=1 to 15 Step 1 form1.FontSixe=9+I Print i: «Изучаем циклы!» Next i End Sub

ПРОЕКТ 1 ВОПРОСЫ И ЗАДАНИЯ : Почему перед текстом печатаются числа? Почему изменяется размер шрифта? Заменить строку For i=1 to 15 Step 1 на строку For i=2 to 10 Step 1 Заменить строку For i=2 to 10 Step 1 на строку For i=10 to 1 Step -1

ПРОЕКТ 2 Вычислить сумму N натуральных чисел.

Сколько переменных используется в проекте? Тип переменных? ДОПОЛНИТЕЛЬНЫЕ ЗАДАНИЯ 1. Изменить программу таким образом, чтобы она вычисляла сумму только натуральных четных чисел в интервале до N. 2.Изменить программу таким образом, чтобы она вычисляла сумму только натуральных нечетных чисел в интервале до N.

1. Определить значение переменной S после выполнения следующих операторов: s=0:n=4 For i=2 То n Step 2 s=s+100 / i Next 2. Какие из приведенных операторов правильные и почему? А) FOR I=12 TO 15:S+S+I:NEXT Б) FOR A=30 TO 20 if А Mod 3=0 Then d=d+1 NEXT Домашнее задание § стр.154 – 157