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

и Turbo Pascal 7.0.

План урока:
1. Проверка домашнего задания.
2. Цикл с параметром.
3. Решение задач.
4. Домашнее задание.

Цель урока:

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!'). (ДА)

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 <параметр>:=А То В Do <тело цикла>
Если h=1, то шаг можно опустить.
Оператор цикла с параметром применяют тогда, когда известно число повторений одного и того же действия.
Начальное и конечное значения параметра цикла могут быть представлены константами, переменными или арифметическими выражениями.

B, For <параметр>:=А То В Do <тело цикла>
Сначала вычисляются значения выражений А и В. Если А<=В, то <параметр> последовательно принимает значения, равные А, А+1,..., В-1, В, и для каждого из этих значений выполняется <тело цикла>.
Если А>В, то <тело цикла> не будет выполнен ни разу и выполнение цикла с параметром сразу же закончится.

Оператор цикла с параметром
FOR I=B TO A STEP -1 и For <параметр>:=А DownTo В Do <тело цикла> выполняется аналогичным образом, но значение <параметра> изменяется с шагом, равным -1.

Цикл с параметром

организовать цикл с параметром, изменяющимся от 1 до 20, то есть шаг изменения параметра равен +1. Обозначим: у — очередное значение суммы дробей; n — параметр цикла. Учитывая это, составим программу:
Program prim1;
uses crt;
Var n: Integer;
y: real;
Begin
clrscr;
Задаем начальное значение равное нулю.
y:=0;

QB

TP

Do begin
Находим очередную сумму.
y:=y + 1/n;
Выводим на экран очередную сумму.
Writeln('y=',y);
End.;
end.

Самостоятельное задание.
А) Переставьте строки вывода результата за NEXT (End;)
Б) Измените цикл с 20 до 1.

равна S(0

Вопросы для обсуждения
1. Каким действием можно выделить послед­нюю цифру числа?
2. Каким действием можно выделить первую цифру числа?
Обозначим: k — это просматриваемое число; p1 — это первая цифра числа k, р2 — это вторая цифра числа k; s — это сумма цифр данного числа k. Чис­ло k будем выписывать только в том случае, когда сумма р1 и р2 будет равна s.

TP

QB

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.

с учетом четырех цифр. Например, палиндромами являются числа: 2222, 6116, 1441.

Вопросы для обсуждения
Дано число п. Каким образом можно построить "перевертыш" данного числа?
Сколько переменных необходимо для решения данной задачи? Объясните назначение каждой переменной.
Обозначим: п — вводимое число; т — дубликат числа п;
а — перевертыш числа п;
i — переменная цикла для создания перевертыша.

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; End

QB

TP

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; NEXT
3. Как выглядит оператор цикла с параметром? Как он работает?