Тема уроку: Створення програм з циклами

Мета уроку: навчити використовувати цикли для розв'язування типових задач.

Тип уроку:    формування вмінь і навичок

Хід уроку

І. Організаційний момент

Перевіряю готовність учнів до уроку.

ІІ. Актуалізація опорних знань

Гра „Лото”. Учні на ігровому полі вибирають фішку певного кольору, відкривають її і отримують номер запитання, на яке повинні дати відповідь.

·               Вказівка розгалуження

·               Цикл з параметром

·               Цикл з передумовою

·               Цикл з післяумовою

ІІІ. Розв’язування задач

Задача № 177

Умова: Ненажера Стецько пробрався перед обідом – у шкільну їдальню, де вже були накриті столи, і почав швиденько з'їдати ще тепленькі булочки, що були на столах. 3 першого столу він з'їв х_1; було­чок, з другого - х₂ і, відповідно, з останнього - х_п булочок. Але за ним стежив черговий по їдальні Андрійко та ретельно все фіксував на своєму кальку­ляторі: до булочок, з’їдених з першого столу, додав кількість булочок, що зникли з другого столу, і т.д. Допоможіть крок за кроком відтворити інформа­цію, яку дістав Андрійко на своєму калькуляторі.

Розв'язання: Отже, нам відома кількість повто­рень, тому що ми знаємо, скільки столів у їдальні. Окрім того, зауважимо, що для зберігання кількості булочок, що знаходяться на кожному столі, не треба мати N змінних. Достатньо мати одну, назвемо її, наприклад, X, в якій тимчасово будемо зберігати відповідну кількість булочок з чергового столу. I, врешті-решт, нам необхідна ще одна змінна, в якій ми будемо зберігати проміжні обчислення Андрій­ка (наприклад, Sum). Таким чином, програма роз­в'язання даної задачі, буде мати такий вигляд:

Program Example_177;

Uses  crt;

Var  I,N:word; {I - параметр циклу, N - кількість столів у їдальні, тобто кількість повторень}

Sum,X:word; {X - кількість булочок на черговому столі їдальні, Sum - загальна кількість було­чок , що s'їв Стецько}

Begin

Clrscr;

Sum:=0; {Ha початку роботи програми Стецько ще нічого не З'їв}

Write(‘ введіть кількість столів У їдальні: '); Readln{N);

For I: =1 to N do Begin