Операторы цикла. Решение задач со счетчиком

Цель урока:
Повторить условный оператор IF;
Вспомнить блок- схему оператора цикла со счетчиком;
Научиться решать задачи со счетчиком с помощью языка программирования.

I. Актуализация знаний
Написать программу, в которой нужно проверить, лежит ли число x на числовой оси между числами a и b (случай x=a или x=b недопустим). Числа x, a, b являются натуральными, и известно, что a отлично от b (но неизвестно: a>b или b>a). Входная информация вводится с клавиатуры, а на выходе должно быть сообщение вида "x между a и b" (если это действительно так), в противном случае никакой выходной информации не выдается.

I. Актуализация знаний
Программист торопился и написал программу некорректно.
ПРОГРАММА НА ПАСКАЛЕ
VAR a,b,x: integer; p: integer;
BEGIN
readln(a,b,x);
if (a>x) AND (x>b) then
writeln('x между a,b');
END.

Последовательно выполните три
задания:
1).Приведите пример таких чисел a, x, b
при которых программа работает
неправильно.
I. Актуализация знаний

I. Актуализация знаний
2).Укажите, как нужно доработать
программу, чтобы не было случаев ее
неправильной работы.
(Это можно сделать несколькими
способами).

I. Актуализация знаний
3).Укажите, как можно доработать
программу, соблюдая дополнительное
условие: доработанная программа не
должна использовать логических
операций AND или OR.

I. Актуализация знаний
Что называется циклическим алгоритмом?
Вспомним фрагмент блок-схемы циклического алгоритма со счетчиком.

I. Актуализация знаний
нет
да
тело цикла
счётчик

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

ОПЕРАТОР ЦИКЛА ПО СЧЕТЧИКУ
FOR < параметр цикла >:= <начальное значение> ТО <конечное значение> DO <оператор>

Рассмотрим, как выполняется оператор цикла с параметром вида
FOR < параметр цикла >:=
А ТО В DO <тело цикла>

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

УМЕНЬШЕНИЕ ЦИКЛА НА 1
FOR < параметр цикла >:=
<начальное значение> DOWNTO
<конечное значение> DO
<оператор>

Надо знать:
В качестве параметра цикла может быть переменная целого или литерного типа. Не допускается переменная вещественного типа.
Начальное и конечное значение – выражение того же типа, что и параметр цикла.

Надо знать:
2. Значение параметра цикла в теле
цикла, т.е. внутри оператора, стоящего
после DO, не должен изменяться.
3. При выходе из цикла значение
параметра цикла не определено.

III.Закрепление темы
Подсчитать сумму 10 чисел, введенных с клавиатуры.
Блок-схема
Решение

Задача
Подсчитать произведение 10 чисел введенных с клавиатуры.
Блок-схема
Решение

Задача
Подсчитать сумму положительных чисел среди 10 чисел введенных с клавиатуры.
Блок-схема
Решение

Задача
Подсчитать количество положительных чисел среди 10 чисел введенных с клавиатуры.
Блок-схема
Решение

Задача
Подсчитать сумму 20 слагаемых 1+2+3…+20
Блок-схема
Решение

Задача
Подсчитать сумму 20 слагаемых
1-1/2+1/3…-1/20
Блок-схема
Решение

IV.Домашнее задание:
1.Составьте программу вычисления квадратов чисел от 1 до 20.

2.Напечатать все двухзначные числа, сумма которых равна 12.

УРОК

ОТВЕТ
Циклический алгоритм - это описание действий, которые должны повторяться указанное число раз или пока не выполнено заданное условие.

ОТВЕТ
1) Например: a=1 x=2 b=3

ОТВЕТ
2) Возможные доработки:
a) if a
if (a>x) and (x>b) then
writeln(' x между a,b');
b) if (a>x) and (x>b) оr (a

ОТВЕТ
3) p:=(x-a)*(x-b); if p<0 then
writeln(' x между a,b');
(могут быть и другие правильные
способы доработки).

БЛОК - СХЕМА
нач
кон
S:=S+А
I:=1 to10
S:=0
Ввести А
S
да
нет

РЕШЕНИЕ
Program my;
Var I,S,A: integer;
Begin
S:=0;
FOR I:=1 TO 10 DO Begin
WRITELN ( ‘Введите число’);
READLN (A);
S:=S+A;
End;
WRITELN (S);
End.

БЛОК - СХЕМА
нач
кон
S:=S*А
I:=1 to10
S:=1
Ввести А
S
да
нет

РЕШЕНИЕ
Program my;
Var I,S,A: integer;
Begin
S:=1;
FOR I:=1 TO 10 DO Begin
WRITELN ( ‘Введите число’);
READLN (A);
S:=S*A;
End;
WRITELN (S);
End.

БЛОК - СХЕМА
нач
кон
S:=S+A
I:=1 to10
S :=0
A>0
Ввести А
да
да
нет
нет
S

РЕШЕНИЕ
Program my;
Var I,S,A: integer;
Begin
S:=0;
FOR I:=1 TO 10 DO Begin
WRITELN ( ‘Введите число’);
READLN (A);
IF A>0 THEN S:=S+A;
End;
WRITELN (S);
End.

БЛОК - СХЕМА
нач
кон
k:=k+1
I:=1 to10
k:=0
A>0
Ввести А
да
да
нет
нет
k

РЕШЕНИЕ
Program my;
Var I,K,A: integer;
Begin
K:=0;
FOR I:=1 TO 10 DO Begin
WRITELN ( ‘Введите число’);
READLN (A);
IF A>0 THEN K:=K+1;
End;
WRITELN (K);
End.

БЛОК - СХЕМА
нач
кон
S:=S+I
I:=1 to20
S:=0
S
да
нет

РЕШЕНИЕ
Program my;
Var I,S: integer;
Begin
S:=0;
FOR I:=1 to 20 DO Begin
S:=S+I;
End;
WRITELN (S);
End.

БЛОК - СХЕМА
нач
кон
P:=-P
I:=1 to20
S:=0
S
P:=1
S:=S+P/I
да
нет