Презентация по информатике на тему: Цикл с параметром

Урокцикл с параметром Показать сходство и различие цикла с параметром в языках программирования QBasic и Turbo Pascal 7.0.План урока:1. Проверка домашнего задания.2. Цикл с параметром.3. Решение задач.4. Домашнее задание.Цель урока: Проверка домашнего задания1. Имеется условный оператор: if D<>10 Then writeln('ypa!') Else Writeln(' плохо...'); Можно ли заменить его следующими операторами:if D=10 Then Writeln('ypa!') Else Writeln('nлoxo...'); (НЕТ)if Not(D=W) Then Writeln('ypa!') Else Writeln('nлoxo...'); (Да, если W=10 ) if Not(D=10) Then Writeln('плоxo...') Else Writeln('ypa!'); (НЕТ)if Not(D<>10) Then Writeln('nлoxo...') Else Writeln('ypa!'). (ДА) 2. Какими будут значения переменных j, k после выполнения условного оператора: Turbo Pascal 7.0 if j>k Then j:=k - 2 Else dec(k,2); если исходные значения переменных равны: Ответы: (j=3, к=3) (j=3, к=1) (j=0, k=2) Цикл с параметромFOR I=A TO B [STEP h] For <параметр>:=А То В Do <тело цикла>Если h=1, то шаг можно опустить.Оператор цикла с параметром применяют тогда, когда известно число повторений одного и того же действия.Начальное и конечное значения параметра цикла могут быть представлены константами, переменными или арифметическими выражениями.


Рассмотрим, как выполняется оператор цикла с параметром вида FOR I=A TO B, For <параметр>:=А То В Do <тело цикла> Сначала вычисляются значения выражений А и В. Если А<=В, то <параметр> последовательно принимает значения, равные А, А+1,..., В-1, В, и для каждого из этих значений выполняется <тело цикла>. Если А>В, то <тело цикла> не будет выполнен ни разу и выполнение цикла с параметром сразу же закончится.Оператор цикла с параметром FOR I=B TO A STEP -1 и For <параметр>:=А DownTo В Do <тело цикла> выполняется аналогичным образом, но значение <параметра> изменяется с шагом, равным -1. Цикл с параметром
Составить программу вычисления значения выражения y=1+1/2+1/3+… +1/20.В данном случае целесообразно организовать цикл с параметром, изменяющимся от 1 до 20, то есть шаг изменения параметра равен +1. Обозначим: у — очередное значение суммы дробей; n — параметр цикла. Учитывая это, составим программу: Program prim1; uses crt; Var n: Integer; y: real; Begin clrscr; Задаем начальное значение равное нулю. y:=0; QBTP




Организовываем цикл с параметром от 1 до 20 For n:=1 to 20 Do begin Находим очередную сумму. y:=y + 1/n; Выводим на экран очередную сумму. Writeln('y=',y); End.; end.Самостоятельное задание.А) Переставьте строки вывода результата за NEXT (End;)Б) Измените цикл с 20 до 1. Из чисел от 10 до 99 вывести те, сумма цифр которых равна S(0<S<18).Вопросы для обсуждения1. Каким действием можно выделить послед­нюю цифру числа?2. Каким действием можно выделить первую цифру числа?Обозначим: k — это просматриваемое число; p1 — это первая цифра числа k, р2 — это вторая цифра числа k; s — это сумма цифр данного числа k. Чис­ло k будем выписывать только в том случае, когда сумма р1 и р2 будет равна s.TPQB


Program prim2; uses crt; Var k,n,pl,p2,s:Integer; Begin clrscr; Задаем целое число от 10 до 99. Writeln(' целое число n='); Readln(n);Организовываем цикл с параметром For k:=10 To 99 Do BeginВыделяем первую цифру. P1:=k Div 10;Выделяем вторую цифру p2:=k Mod 10; Находим сумму цифр s:=p1+p2;Если сумма цифр равна заданному числу N, то выводим К if s=n Then Writeln(‘k=’,k); End; End. Дано натуральное число n (1000<=N<=9999). Определить, является ли оно палиндромом ("перевертышем"), с учетом четырех цифр. Например, палиндромами являются числа: 2222, 6116, 1441.Вопросы для обсуждения Дано число п. Каким образом можно построить "перевертыш" данного числа?Сколько переменных необходимо для решения данной задачи? Объясните назначение каждой переменной.Обозначим: п — вводимое число; т — дубликат числа п; а — перевертыш числа п; i — переменная цикла для создания перевертыша. Program Prim3 uses crt; Var n, m, a, i: Integer; Begin Clrscr; Введем четырехзначное целое число Writeln('N<=9999'); Readln(n);Запоминаем введенное целое число и задаем начальное значение перевертыша М:=п; а:=0;Организуем цикл с параметром от 1 до 4. For i:=1 To 4 Do; Begin Находим перевертыш числа N. а:=а*10+М Mod 10; m:=m Div 10; End;Если A=N, то данное число является перевертышем. If a=n Then Writeln('DA!') Else Writeln('NO'); Readln; EndQBTP









Домашнее задание1. Определить значение переменной S после выполнения следующих операторов:s=0:n=5 For i=2 То n: s=s+100 \ i :next s:=0; n:=5 For i:=2 То n Do s:=s+100 Div i 2. Какие из приведенных операторов правильные и почему?А) FOR I=12 TO 15:S+S+I:NEXT For i:=12 To 15 Do s:=s+i;Б) FOR A=30 TO 20 For a:=30 To 20 Do if А Mod 3=0 Then d=d+1 if a Mod 3=0 Then d:=d+1; NEXT3. Как выглядит оператор цикла с параметром? Как он работает?