Тема урока: Операторы цикла. Решение задач со счетчиком. Выполнила: Троегубова Татьяна Сергеевна учитель

Цель урока:

Повторить условный оператор IF;
Вспомнить блок- схему оператора цикла со

I. Актуализация знаний

Написать программу, в которой нужно проверить, лежит ли число

I. Актуализация знаний

Программист торопился и написал программу некорректно.
ПРОГРАММА НА ПАСКАЛЕ

Последовательно выполните три
задания:
1).Приведите пример таких чисел a, x,

I. Актуализация знаний

2).Укажите, как нужно доработать
программу, чтобы не было

I. Актуализация знаний

3).Укажите, как можно доработать
программу, соблюдая дополнительное

I. Актуализация знаний

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

I. Актуализация знаний

нет
да

тело цикла

счётчик

II. Новый материал

Когда заранее известно, какое число повторений тела цикла необходимо

ОПЕРАТОР ЦИКЛА ПО СЧЕТЧИКУ

FOR < параметр цикла >:= <начальное значение> ТО

Рассмотрим, как выполняется оператор цикла с параметром вида
FOR <

Если А <= В, то <параметр> последовательно принимает значения равные А,А+1…В-1,В

УМЕНЬШЕНИЕ ЦИКЛА НА 1

FOR < параметр цикла >:=
<начальное

Надо знать:

В качестве параметра цикла может быть переменная целого или литерного

Надо знать:

2. Значение параметра цикла в теле
цикла, т.е. внутри

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

ОТВЕТ

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

БЛОК - СХЕМА

нач

кон

S:=S*А

I:=1 to10

S:=1

Ввести А

S

да

нет

РЕШЕНИЕ

Program my;
Var I,S,A: integer;
Begin
S:=1;
FOR I:=1 TO 10

БЛОК - СХЕМА

нач

кон

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

БЛОК - СХЕМА

нач

кон

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

БЛОК - СХЕМА

нач

кон

S:=S+I

I:=1 to20

S:=0

S

да

нет

РЕШЕНИЕ

Program my;
Var I,S: integer;
Begin
S:=0;
FOR I:=1 to 20

БЛОК - СХЕМА

нач

кон

P:=-P

I:=1 to20

S:=0

S

P:=1

S:=S+P/I

да

нет