Цикл із умовою

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

Тема.Цикл із постумовою. Ітераційний цикл.

допомогти учням засвоїти ітераційні циклічні конструкції мовою Паскаль у порівняльній характеристиці, ґрунтуючись на раніше вивченій темі;

виховання інформаційної культури учнів, уважності, акуратності, дисциплінованості, посидючості;

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

1. Організація дітей для роботи на уроці (2 хв)

2. Актуалізація знань (10 хв)

Чим характерний цикл із параметром?

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

Розібрати біля дошки домашнє завдання

Робота за картками на місцях

3. Пояснення нового матеріалу (15 хв)

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

Розглянемо дані конструкції у порівняльній характеристиці. Для цього збудуємо наступну таблицю:

Цикл із передумовою «Поки що»

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

Початкове значення визначається вручну. Зміни параметра теж відбуваються вручну на задається програмістом крок. Причому дії над параметром циклу (лічильник виконання) може збігатися з тілом циклу. На відміну від циклу "Для" параметр може бути і речовим числом.

Умова виходу

Обов'язково має бутиістинним. Є повністю протилежною умові виходу циклу «До»

Реалізація мовою Паскаль:

Операторні дужки

Якщо тіло циклу складається з більш ніж двох операторів мови Паскаль, включаючи рядок зміни параметра, то вони полягають в операторних дужках

приклад. З проміжку [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

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

Var a, Summa: integer;

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

5. Підбиття підсумків (3 хв)

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

№2. Обчислити суму всіх непарних чисел в інтервалі від 1 до N.

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

Можна скористатися циклічною програмою:

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

Картки на тему «Цикл з параметром» К-1 Визначте значення цілісної змінної S після виконання операторів:

Побудуйте блок-схему цієї частини програми.

Картки на тему «Цикл з параметром» К-2 Визначте значення цілісної змінної S після виконання операторів:

for i:=1 To 3 do begin

Побудуйте блок-схему цієї частини програми.

Картки на тему «Цикл з параметром»

К-3 Обчислення n! (n! = 1 2 3 … n)

Program Factorial; uses crt; var n, f,i :integer; BEGIN clrscr; writeln( 'Задайте n'); readln(n); для i:=1 to n do f:=fi; writeln('F = ',f); readln; END.

Чи правильно написана дана програма, якщо так, то визначте значення F при n=3, якщо ні – запишіть виправлений варіант програми.

Картки на тему «Цикл з параметром»

Напишіть фрагмент програми для вирішення наступного завдання: Обчислити суму чисел від 3 до 9 кратних чотирьом (описову частину програми пропустіть).

---