7


  • Учителю
  • Цикл с условием. Итерационный цикл

Цикл с условием. Итерационный цикл

Автор публикации:
Дата публикации:
Краткое описание:
предварительный просмотр материала

Урок №36. Дата ___________

Тема. Цикл с постусловием. Итерационный цикл.

Цели урока:

  • </ помочь учащимся усвоить итерационные циклические конструкции на языке Паскаль в сравнительной характеристике, базируясь на ранее изученной теме;

  • воспитание информационной культуры учащихся, внимательности, аккуратности, дисциплинированности, усидчивости;

  • развитие алгоритмического мышления, познавательных интересов, навыков работы на компьютере.

Ход урока

1. Организация детей к работе на уроке (2 мин)

2. Актуализация знаний (10 мин)

  • Чем характерен цикл с параметром?

  • Написать на доске общий вид убывающего и возрастающего цикла с параметром (2 учащихся у доски)

  • Разобрать у доски домашнее задание

  • Работа по карточкам на местах

3. Объяснение нового материала (15 мин)

Помимо цикла с параметром в языке Паскаль существуют еще две циклические конструкции: цикл с предусловием и цикл с постусловием, реализуемые специальными операторами.

Рассмотрим данные конструкции в сравнительной характеристике. Для этого построим следующую таблицу:

Цикл с предусловием «Пока»

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

Начальное значение задается вручную. Изменения параметра тоже происходят вручную на задаваемый программистом шаг. Причем действия над параметром цикла (счетчик выполнения) может совпадать с телом цикла. В отличии от цикла «Для» параметр может быть и вещественным числом.

Условие выхода

Обязательно должно быть истинным. Является полностью противоположным условию выхода цикла «До»

Реализация на языке Паскаль:

<установка нач. значений>;

While <условие выхода> do

<тело цикла>;

Операторные скобки

Если тело цикла состоит более чем из двух операторов языка Паскаль, включая строку изменения параметра, то они заключаются в операторные скобки



Пример. Из промежутка [a, b], где а.Введите границы промежутка');

Readln(a, b);

If a>b tden goto k;

If a mod 2 = 0 tden I:=a else i:=a+1;

While i<=b do begin

Write (i:5);

I:=i+2

End;

Readln

End.

Program pr2;

Uses crt;

Label k;

Var a, b, i: integer;

Begin

Clrscr;

K:Writeln ( 'Введите границы промежутка');

Readln(a, b);

If a>b tden goto k;

If a mod 2 = 0 tden I:=a else i:=a+1;

repeat

Write (i:5);

I:=i+2

Until i>b;

Readln

End.

4. Закрепление материала (10 мин)

- у доски двое учащихся решают задачу двумя способами:

№1. Вычислить сумму натурального ряда чисел от 1 до n

Program Natur;

Var a, Summa: integer;

begin

write ('N='); readln (N);

{Цикл с предусловием}

a:=1;

Summa:= 0;

while a<=N do

begin

Summa:= Summa+a;

a:= a+1;

end;

end.

5. Подведение итогов (3 мин)

- запись домашнего задания: учить конспект; составить программу для решения задачи:

№2. Вычислить сумму всех нечетных чисел в интервале от 1 до

N.

По условию на числа a и b наложены ограничения, при которых искомая сумма будет лежать в пределах типа integer. При a = 0 и b = 300 сумма будет наибольшей и равной 22500, что меньше 32767 (максимального значения типа integer).

Можно воспользоваться циклической программой:

program summa;

var

a,b,i,sum: integer;

begin

sum:=0;

readln(a,b);

for i:=a to b do

if i mod 2 <> 0 then sum:= sum + i;

writeln(sum);

end.



Карточки по теме «Цикл с параметром»

К-1

Определите значение целочисленной переменной S после выполнения операторов:

S:=128;

for i:=1 To 4 do

S:=S div 2;

Writeln (s);

Постройте блок-схему к этой части программы.





Карточки по теме «Цикл с параметром»

К-2

Определите значение целочисленной переменной S после выполнения операторов:

S:=128

for i:=1 To 3 do begin

S:=S+i(i+1)a;

a:=a+2

end;

Writeln (s);

Постройте блок-схему к этой части программы.







Карточки по теме «Цикл с параметром»

К-3

Вычисление n! (n! = 1 2 3 … n)

Program Factorial;

uses crt;

var n, f,i :integer;

BEGIN

clrscr;

writeln('Задайте n');

readln(n);

for i:=1 to n do

f:=fi;

writeln('F = ',f);

readln;

END.

Верно ли написана даная программа, если да, то определите значение F при n=3, если нет - запишите исправленный вариант программы.









Карточки по теме «Цикл с параметром»

К-4

Напишите фрагмент программы для решения следующей задачи: Вычислить сумму чисел от 3 до 9, кратных четырем (описательную часть программы пропустите).



var

begin

for i := 3 to 9 do

begin

if (i mod 4 = 0) then

begin

s := s + i;

end;

end;

writeln('сумма равна ',s);

end.





 
 
X

Чтобы скачать данный файл, порекомендуйте его своим друзьям в любой соц. сети.

После этого кнопка ЗАГРУЗКИ станет активной!

Кнопки рекомендации:

загрузить материал