Конспект уроку №10

Тема: Реалізація найпростіших програм з циклами.

Мета: систематизувати набуті знання з теми цикли; вдосконалити вміння розв’язувати задачі на застосування циклів.

Тип уроку: практична робота

І. Актуалізація ЗУН.

самостійна робота (10 хв)

1. дайте означення цикла.

2. які види циклів ви знаєте?

3. заповніть пропуски:

а) For < параметр > := <вираз1 > . . . <вираз2 > . . . <оператор >

б) . . . Умова . . . Оператор

в) ….

   <оператор1 >
   <оператор2 > 
   <оператор3 >
       ***
  <оператор n >
   ….      <умова>;

4.Коли використовується оператор For

5. Як діє оператор REPEAT UNTIL?

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

Задача №1

Умова: Компанія бабусь поїхала на мотоциклах на курси комп'ютерної грамотності. Попереду на мотоциклі без глушника їхала одна бабуся, за нею - дві, потім - три і т.д. Скільки бабусь їхало на заняття, якщо приголомшені пішоходи всього нарахували N рядів? Чи змогли бабусі зайняти всі місця у класі, якщо там стояло k рядів по l комп'ютерів в кожному? Скільки вільних місць залишилося? Зверніть увагу на те, що фактично ця задача зводиться до знаходження суми всіх натуральних чисел від 1 до N. В кінці задачі для повторення команди розгалуження учням пропонується визначити кількість зайнятих бабусями та вільних місць.

Program Example_183;

Uses crt;

Var I,N,Sum:word; {I – параметр циклу, N –

                  кількість рядів мотоциклів,  
                  тобто кількість повторень, Sum –  
                  загальна кількість бабусь, що  
                  приїхали на курси} 
 Place,k,l:word;        {k – кількість рядів в  
                        комп’ютерному класі, l –  
                       кількість комп’ютерів в  
                       кожному ряду, Place – кількість  
                                      місць, що вистачила для бабусь} 

Begin

 Clrscr; 
 Sum:=0;      
 Write(‘Введіть кількість рядів мотоциклів, що  
        нарахували пішоходи:  ’); 
 Readln(N); 
 For I:=1 to N do  Sum:=Sum+I; 
 Writeln(‘Кількість бабусь, що приїхала на курси ’,Sum); 
 Writeln(‘Кількість комп”ютерів на курсах ’,k*l); 
 If Sum < k*l Then writeln(‘Бабусі не змогли зайняти всі місця.’) 
 Else writeln(‘Бабусі зайняли всі місця.’); 
 Place:=Sum – k*l; 
 If Place>0 
 Then writeln(‘Бабусям не вистачило ’,Place,’місць.’); 
 Readkey;	{Затримка зображення на екрані} 

End.

Задача №2

Умова: Коли Василині Премудрій виповнилося 18 років, Чахлик Невмирущий вирішив взяти її заміж. Василина запитала Чохлика, скільки у нього скринь із золотом. Чахлик сказав, що в нього зараз n скринь і щороку додається ще по m скринь. Василина пообіцяла, що вийде заміж тоді, коли у Чохлика буде k повних скринь із золотом. Скільки років буде тоді нареченій? Program Example_180; Uses crt; Var m,n,k:word; {n – початкова кількість скринь з

                  золотом, m – щорічний “прибуток”  
                  Чахлика Невмирущого, k – “потреби”  
                  Василини Премудрої} 
 Sum,Years:word; {Sum – щорічне накопичення Чахлика  
                  Невмирущого, Years – вік Василини  
                  Премудрої} 

Begin

 Clrscr; 
 Write(‘Введіть початкову кількість скринь з золотом:  ’); 
 Readln(n); 
 Write(‘Введіть щорічний прибуток Чахлика:  ’); 
 Readln(m);   
 Write(‘Введіть “потреби” Василини Премудрої:  ’); 
 Readln(k); 
 Sum:=n;      {Початковий “капітал” Чахлика} 
 Years:=18;   {Початковий вік Василини} 
 While Sum<=k do 
  Begin 
    Sum:=Sum+m; 
    Years:=Years+1; 
  End; 
 Writeln(‘Василині вже виповнилося ’,Years,’ років.‘);   
 Readkey;	{Затримка зображення на екрані} 

End. Задача №3 Умова: На дверях ліфта висіло загрозливе попередження про те, що двері зачиняються самі в той самий момент, коли зайвий за вагою пасажир переступить поріг ліфта. Котрий пасажир постраждає, якщо ліфт витримує вагу не більше S кг, а вага пасажирів, що стоять у черзі до ліфта, дорівнює відповідно a1, a2, a3, … an? В цій задачі зручніше використовувати цикл с післяумовою, тому що спочатку необхідно дати можливість "ввійти" пасажиру в ліфт, а потім перевіряти, чи витримає його ліфт. Умовою виходу з циклу буде перевищення сумарної ваги пасажирів, що увійшли в ліфт, деякого заданого критичного значення. Для зберігання ваги чергового пасажиру в цій задачі ми будемо використовувати одну й ту саму змінну (А), так як після перевірки вага пасажира нас вже не цікавить. Program Example_179; Uses crt; Var N:word; {I – номер пасажира, що увійшов у

                  ліфт} 
   Sum,A,S:real; {Sum – сумарна вага пасажирів, що  
                  знаходяться в ліфті, A – вага  
                  чергового пасажира, що увійшов до  
                  ліфта, S – критична вага, що може  
                  бути піднята ліфтом} 

Begin

 Clrscr; 
 Sum:=0;     {На початку роботи програми в ліфті  
 N:=0;        немає пасажирів} 
 Write(‘Введіть критичну вагу, що піднімає ліфт:  ’); 
 Readln(S); 
 Repeat 
   Write(‘Введіть вагу чергового пасажира:  ’); 
    Readln(А); 
    Sum:=Sum+А; 
   N:=N+1; 
 Until Sum>S; 
 Writeln(‘Постраждає ’,N,’-й пасажир.’); 
 Readkey;	{Затримка зображення на екрані} 

End. Задача №4 Умова: Знайти значення (1 + 0.1)(2 + 0.2)...(9 + 0.9) В даному випадку, очевидною що кількість повторів буде дорівнювати 9, тобто результуюча програма буде мати вигляд: Program Example_189_2; Uses crt; Var I:word; {I – параметр циклу}

   Rez:real;     {Rez – результат обчислень} 

Begin

 Clrscr; 
 Rez:=1;    {Початкове значення дорівнює 1, тому що  
             результат являється накопиченням  
             добутку}      
 For I:=1 to 9 do  Rez:=Rez*(I+0.1*I); 
 Writeln(‘Rez= ’,Rez:8:2); 
 Readkey;	{Затримка зображення на екрані} 

End.

ІІІ. Домашнє завдання

Розв’язати наступні задачі:

№1.

Дано ціле n. Визначити 1*3*5*7*…*(2n+1).

№2.

Капосний папуга навчився висмикувати у дідусі Василя волосся, яке ще залишилося у того на голові. Почавши з однієї волосини, він щодня збільшував порцію вдвічі. Через скільки днів дідусеві не знадобиться гребінець, якщо спочатку в нього на голові було аж N волосин?