14142

Використання циклу з параметром для розвязування задач

Конспект урока

Информатика, кибернетика и программирование

Тема уроку: Використання циклу з параметром для розвязування задач. Мета уроку: Навчити використовувати цикл з параметром для розвязування типових задач. Тип уроку: Практичний. На початку уроку рекомендується провести письмове опитування можна у вигляді диктанту

Украинкский

2013-05-21

66.5 KB

0 чел.

Тема уроку: "Використання циклу з параметром для розв'язування задач."

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

На початку уроку рекомендується провести письмове опитування (можна у вигляді диктанту) по матеріалах попереднього уроку. Далі можна розглянути деякі типові задачі з використанням циклу з параметром.
Нагадуємо, що в усіх цих задачах кількість повторень буде відома заздалегідь.

Задача №1.
Умова: Ненажера Стецько пробрався перед обідом у шкільну їдальню, де вже були накриті столи, і почав швиденько з'їдати ще тепленьки булочки, що стояли на столах. З першого столу він з'їв x1 булочок, з другого - х2, і, відповідно, з останнього - xn булочок. Але за ним стежив черговий по їдальні Андрійко та ретельно все фіксував на своєму калькуляторі: до булочок, з'їдених з першого столу, додав кількість булочок, що зникли з другого столу, і т.д. Допоможіть крок за кроком відтворити інформацію, яку дістав Андрійко на своєму калькуляторі.
Очевидно, що при розв'язанні даної задачі нам на початку роботи програми відома кількість повторів, тому що ми зразу ж знаємо, скільки столів в їдальні. Крім того, зауважимо, що для зберігання кількості булочок, що знаходяться на кожному столі, не треба мати
N змінних. Достатньо мати одну, назвемо її, наприклад, X, в якій тимчасово будемо зберігати відповідну кількість булочок з чергового столу. І, врешті решт, нам необхідна ще одна змінна, в якій ми будемо одержувати проміжні обчислення чергового Андрійка (наприклад, Sum). Таким чином, програма, що розв'язує дану задачу, буде мати наступний вигляд:

Program Example_177;

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

                  кількість столів в їдальні,  

                  тобто кількість повторень} 

   Sum,X:word;   {X – кількість булочок на  

                  черговому столі їдальні, Sum –  

                  загальна кількість булочок, що  

                  з’їв Стецько} 

Begin 

 Sum:=0;     {На початку роботи програми Стецько  

               ще нічого не з’їв} 

 Write(‘Введіть кількість столів в їдальні:  ’);

 Readln(N);

 For I:=1 to N do 

  Begin 

    Write(‘Введіть кількість булочок на  

           черговому столі:  ’);

    Readln(X);

    Sum:=Sum+X;

    Writeln(‘На даний момент Стецько з”їв  

             ’,Sum,’ булочок.’);

  End;

 Read; {Затримка зображення на екрані} 

End.

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

Program Example_183;

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

                  кількість рядів мотоциклів,  

                  тобто кількість повторень, Sum –  

                  загальна кількість бабусь, що  

                  приїхали на курси} 

   Place,k,l:word; {k – кількість рядів в  

                    комп’ютерному класі, l –  

                    кількість комп’ютерів в  

                    кожному ряду, Place – кількість  

                    місць, що вистачила для бабусь} 

Begin 

 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,’місць.’);

 Read; {Затримка зображення на екрані} 

End

Задача №3.
Умова: Знайти значення
(1 + 0.1)(2 + 0.2)...(9 + 0.9)
В даному випадку, очевидною що кількість повторів буде дорівнювати 9, тобто результуюча програма буде мати вигляд:

Program Example_189_2;

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

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

Begin 

 Rez:=1;    {Початкове значення дорівнює 1, тому що  

             результат являється накопиченням  

             добутку}      

 For I:=1 to 9 do  Rez:=Rez*(I+0.1*I);

 Writeln(‘Rez= ’,Rez:8:2);

 Read; {Затримка зображення на екрані} 

End.

Задача 4.
Умова: Дано ціле
n. Визначити n!
Відомо, що
n! (вимовляється, як н-факторіал) - це добуток всіх натуральних чисел від 1 до n. Тому вихідна програма має вигляд:

Program Example_190_1;

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

   Factorial:longint;    {Factorial – результат  

                          обчислень} 

Begin 

 Factorial:=1; {Початкове значення дорівнює 1, тому  

                що результат являється накопиченням  

                добутку}      

 Write(‘Введіть значення n: ’);

 Readln(n);

 For I:=1 to n do  Factorial:=Factorial*I;

 Writeln(‘Factorial= ’,Factorial:8:2);

 Read; {Затримка зображення на екрані} 

End.

Задача №190(3).
Умова: Дано ціле n. Визначити
1*3*5*7*…*(2
n+1).
Очевидно, що дана програма відрізняється від попередньої тільки тим, що необхідно знайти добуток тільки непарних натуральних чисел від 1 до
n.

Program Example_190_3;

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

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

Begin 

 Rez:=1;       {Початкове значення дорівнює 1, тому  

                що результат являється накопиченням  

                добутку}      

 Write(‘Введіть значення n: ’);

 Readln(n);

 For I:=0 to n do  Rez:=rez*(2*I+1);

 Writeln(‘Rez= ’,Rez:8:2);

 Read; {Затримка зображення на екрані} 

End.

Задача №190(6).
Умова: Дано ціле n. Визначити
Sin(1)*sin(1+2)*…*sin(1+2+…+
n).
Відміна даної програми від всіх попередніх полягає в тому, що в даному випадку ми маємо два накопичення: по-перше, відбувається накопичення суми, що знаходиться під знаком sin, а, по-друге, сам результат являється накопиченням добутку сінусів. Тому для зберігання цих двох накопичень необхідно мати дві змінні. Результуюча програма має наступний вигляд:

Program Example_190_6;  

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

   Rez,Sum:longint;  {Rez – результат обчислень,  

                      Sum – проміжне накопичення} 

Begin 

 Rez:=1;       {Початкове значення дорівнює 1, тому  

                що результат являється накопиченням  

                добутку}      

 Sum:=0;       {Початкове значення дорівнює 0, тому  

                що результат являється накопиченням  

                суми}      

 Write(‘Введіть значення n: ’);

 Readln(n);

 For I:=1 to n do   

   Begin 

      Sum:=Sum+I;          {Накопичення суми} 

      Rez:=Rez*sin(Sum);   {Накопичення добутку} 

   End;

 Writeln(‘Rez= ’,Rez:8:2);

 Read; {Затримка зображення на екрані} 

End.

Задача №191(6).
Умова: За даним натуральним значенням змінної n обчислити: Для розв'язку цієї задачі необхідно виконати обчислення, починаючи з самого вкладеного кореня. Кожен наступний крок обчислюється наступним чином: до попереднього результату додається двійка і з отриманої суми береться квадратний корінь.
Програма, що виконує описані обчислення, наведена нижче:

Program Example_191_6;  

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

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

Begin  

 Rez:=0;       {Початкове значення дорівнює 0, тому  

                що результат являється накопиченням  

                суми}      

 Write(‘Введіть значення n: ’);

 Readln(n);

 For I:=1 to n do   

   Begin 

      Rez:=sqrt(Rez+2);

   End;

 Writeln(‘Rez= ’,Rez:8:2);

 Read; {Затримка зображення на екрані} 

End.

Задача №210.
Умова: Дано ціле число n, яке набуває значень шкільних оцінок. Визначити відповідною кількістю звукових сигналів, яка саме оцінка була задана ("1" - один звуковий сигнал, "2" - два звукових сигнали і т.д.). Якщо ж задане число не відповідає значенню шкільної оцінки - подати довгий звуковий сигнал.
Звуковий сигнал в цій програмі можна подавати за допомогою процедур керування вбудованим динаміком
Sound та nosound. Нагадуємо, що перша з них викликає звучання ноти заданої частоти (частота вказується в дужках після процедури), а друга виключає динамік. Тривалість звучання та паузи між звуками можна задавати процедурою delay, в якості параметра до якої задається змінна time (значення цієї змінної можна задати командою присвоєння або введенням з клавіатури).

Program Example_210;

Var I,n:word;   {I – параметр циклу, n – оцінка учня}  

   Time:word;

Begin 

 Write(‘Введіть Вашу оцінку: ’);

 Readln(n);

 Time:=10000;     {Значення цієї змінної залежить  

                  від характеристик комп’ютера, за  

                  яким працює учень, і може бути  

                  підібрана практичним шляхом} 

 If (n<1) or (n>12)

 Then  

   begin 

     writeln(‘Ви помилились, такої оцінки не  

            існує’);

     sound(200);

   end 

 Else 

   For I:=1 to n do   

     Begin 

       Sound(200);

       Delay(time);

       Nousound;

       Delay(time);

     End;

 Read; {Затримка зображення на екрані} 

End.

Домашнє завдання:

  •  Повторити теоретичний матеріал, пов'язаний з роботою циклу з параметром;
  •  Задачі №189 (4), №190(3), №191(1), №191(7), №211, №178, №188.

4


 

А также другие работы, которые могут Вас заинтересовать

29949. Особенности города как среды обитания. Зоны повышенной опасности в городе. Службы, обеспечивающие безопасность города, и правила их вызова 34.5 KB
  Службы обеспечивающие безопасность города и правила их вызова Ответ: Особенности города как среды обитания: наличие большого количества различных видов транспорта и высокая интенсивность дорожного движения; как правило разноплановая застройка от одноэтажных зданий до высотных сооружений; наличие различных предприятий в том числе и потенциально опасных; сосредоточение на ограниченной площади множества коммуникаций электросети водопровод канализация телефонные линии газопровод. Безопасность города обеспечивается...
29950. Организация отдыха на природе и соблюдение необходимых мер безопасности во время его проведения 34 KB
  2 вопрос: Терроризм: основные понятия и признаки Ответ: Терроризм в соответствии с Уголовным кодексом РФ совершение взрыва поджога или иных действий создающих опасность гибели людей причинения значительного имущественного вреда либо наступления иных общественно опасных последствий если эти действия совершены в целях нарушения общественной безопасности устрашения населения либо оказания воздействия на принятие решений органами власти а также угроза...
29951. Особенности состояния водоемов в разное время года. Основные правила безопасного поведения на воде 630.5 KB
  Основные правила безопасного поведения на воде Ответ: Водоемы опасны в любое время года. Зимой большая часть водоемов покрывается льдом который тоже является источником опасности особенно после первых морозов и во время оттепелей. Правила безопасности поведения на зимних водоёмах: надежен только лед зеленоватого или синеватого оттенка а желтоватый лед опасен; наиболее опасен лед в местах впадения рек и ручьев у крутых берегов и на изгибах русла; места где поверх льда выступает вода обычно свидетельствуют о наличии промоины...
29952. Правила ориентирования на местности 32.5 KB
  В солнечный полдень направление тени в умеренных широтах Северного полушария указывает на север. Если часовую стрелку направить на солнце то биссектриса угла между этой стрелкой и направлением на 12 часов летом на 1 час будет линией север юг. Ночью направление на север можно определить по Полярной звезде. Направление на север и юг можно определить и по местным признакам: зимой снег больше подтаивает на южных склонах холмов бугров и северных скатах ям канав и других углублений; лишайники и мхи гуще растут с северной...
29953. Чрезвычайные ситуации природного характера. Общая характеристика чрезвычайных ситуаций природного характера, их классификация 31.5 KB
  Общая характеристика чрезвычайных ситуаций природного характера их классификация Ответ: Чрезвычайная ситуация природного характера это неблагоприятная обстановка на определенной территории сложившаяся в результате опасного природного явления которое может повлечь за собой человеческие жертвы ущерб здоровью людей материальные потери и нарушение условий жизнедеятельности населения. Классификация чрезвычайных ситуаций природного характера: Ситуации геофизического характера извержения вулканов и землетрясения; Ситуации...
29954. Природные чрезвычайные ситуации геологического происхождения: землетрясения, извержения вулканов, оползни и обвалы. Их последствия, мероприятия по защите населения! 36.5 KB
  Наиболее типичные последствия землетрясений: опасные геологические явления обвалы камнепады оползни снежные лавины сели; цунами сейши наводнения; пожары; паника; травмирование и гибель людей; повреждение и разрушение сооружений и зданий; выбросы радиоактивных аварийно химически опасных и других вредных веществ; транспортные аварии и катастрофы; нарушение работы систем жизнеобеспечения. Меры по защите населения от землетрясений: строительство на территориях подверженных землетрясениям сейсмостойких сооружений и...
29955. Природные чрезвычайные ситуации метеорологического происхождения: ураганы, бури, смерчи и их последствия; меры, принимаемые по защите населения 34.5 KB
  Последствиями воздействия ураганов бурь и смерчей являются повреждение и разрушение зданий и сооружений линий электропередачи и связи заносы и завалы на дорогах уничтожение посевов сельскохозяйственных культур повреждение и гибель кораблей. Чаще всего они поражаются летящими предметами и обрушивающимися конструкциями зданий и сооружений. Меры по защите от ураганов бурь и смерчей: точный прогноз и своевременное оповещение населения; уменьшение воздействия вторичных поражающих факторов пожаров прорывов плотин аварий на различных...
29956. Природные чрезвычайные ситуации биологического происхождения: эпидемии, эпизоотии, эпифитотии; меры, принимаемые по защите населения 43 KB
  Эпизоотия это одновременное прогрессирующее во времени и пространстве в пределах определенного региона распространение инфекционной болезни среди большого числа одного или нескольких видов животных значительно превышающее обычно регистрируемый на данной территории уровень заболеваемости. Эти чрезвычайные ситуации возможны при наличии и взаимодействии трех непременных элементов: возбудителя инфекционной болезни путей его передачи и восприимчивых к этому возбудителю людей животных и растений. Основные мероприятий направленные на...
29957. Теоретические подходы к изучению мышления в зарубежной психологии 53 KB
  Теоретические подходы к изучению мышления в зарубежной психологии Мышление это процесс познавательной деятельности индивида включает в себя анализ синтез обобщение условий и требований решаемой задачи и способов ее решения. В настоящее время мышление изучается не только психологией но и философией логикой физиологией кибернетикой лингвитсикой. Мышление как ассоциация представлений Психология мышления стала специально разрабатываться лишь в XX в. Поэтому представители ассоциативной психологии не считали нужным специально исследовать...