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


 

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

37478. Метод мурашиних колоній 235.5 KB
  Технічне завдання Розробити програму що здійснює пошук оптимального шляху між двома клітинками ігрового поля яке являє собою двовимірну матрицю клітинок заданого розміру. Пошук шляху повинен здійснюватись за допомогою алгоритму мурашиної колонії параметри алгоритму повинні налаштовуватись користувачем вручну. Пізніше список використовується для визначення довжини шляху між вузлами. Справжня мураха під час переміщення по шляху залишає за собою деяку кількість феромону.
37479. МЕТОДОЛОГИЯ МОДЕЛИРОВАНИЯ ДАННЫХ В СРЕДЕ ERWIN 993 KB
  2] Зависимые и независимые сущности.9] Избыточные сущности [9. На стадии проектирования создаются логические модели трех уровней: Entity Reltion Digrm Диаграмма сущностьсвязь и KeyBsed model Модель данных основанная на ключах и Полная атрибутивная модель Диаграмма сущностьсвязь ERD – Entity Reltionship Digrm определяет сущности и их отношения. Модель данных основанная на ключах описывает структуру данных системы в которую включены все сущности и атрибуты в том числе ключевые.
37480. Вступ до філософії. Історико-філософський та релігієзнавчий аспекти 1008.5 KB
  Розкриває зміст світоглядної проблематики та специфіку філософського і релігійного підходів до неї становлення та основні етапи розвитку філософії у зв’язку з розвитком релігії в країнах європейської культури особливості східних і західних релігійних і філософських традицій основні позиції та філософські аргументи щодо питань про сутність релігії існування Бога відношення моральності і релігії проблеми особистого безсмертя. Християнська релігія та філософське осмислення ідеї Бога Абсолюта від Середньовіччя до початку ХІХ ст. Проблема...
37481. ФІЛОСОФІЯ, її ПОХОДЖЕННЯ, ПРОБЛЕМАТИКА ТА ФУНКЦІЇ 791.5 KB
  Перш за все філософія аналізує людське знання про реально існуючі речі та цікавиться тим ступенем достовірності який може бути тут досягнутий. Дитрих фон Гільдебранд Філософія відрізняється від науки не в тому значенні що апелює до відірваних від життя тверджень а в тому що максимально вірно виражає її зміст. Карл Ясперс Філософія як особлива сфера людського знання і пізнання виникла на основі світоглядних пошуків та орієнтацій людини що постають як необхідність з погляду людського життєвого вибору та самоствердження.
37482. Философия. Учебное пособие 3.03 MB
  Учебнике рассматриваются предмет и метод философской науки, философия как мировоззренческая система, прослеживается эволюция ее основных течений. Важное место отводится человеку в системе философского знания. Особое внимание уделяется проблемам общества и культуры как объектам философского анализа, а также основополагающим ценностям жизни людей.
37483. Философия: Энциклопедический словарь 3.92 MB
  В Словаре включающем более 1500 статей рассматриваются понятия и проблемы современной философии ее главные направления и основные разделы. Большое число статей посвящено истории философии и философам оказавшим существенное влияние на развитие философии и всей общественной мысли. Особое место занимают материалы об отечественной философии и ее наиболее видных представителях. Введены также статьи показывающие взаимосвязь философии с такими науками как социология политология история лингвистика экономическая наука.
37484. Философы XX века 1.64 MB
  В разряд таких фактов прерывающих сплошную причинноследственную зависи мость попадают прежде всего явления самопроизволь ности о которых Бергсон и говорит как о специфичес ком признаке живого в целом и человека в особеннос ти. есть изобретение или оно ничто ^ Определяя время как ткань реальности Бергсон имеет в виду прежде всего внутренний субъективный опыт человека. У Бергсо на речь идет еще о бытийной основе и мира в целом и человека. Но в отличие от научной гипотезы яв ляющейся по мысли Бергсона определенной мыслитель...
37485. ФИЛОСОФИЯ. Учебник для вузов 4.35 MB
  Учебник написан авторами, которые известны и как крупные ученые, и как педагоги, обладающие большим опытом преподавания в вузах. Фундаментальные вопросы философии рассматриваются в нем с позиций плюрализма, многообразия их интерпретации и обоснования. Структура учебника максимально приближена к курсу философии, читаемому в большинстве вузов
37486. Философия А.Г. Спиркин 1.73 MB
  Для человека как разумного существа бесконечно важнее любой специальной научной теории представляется решение вопросов о Том что же такое наш мир в целом какова его основа имеет ли он какойлибо смысл и разумную цель имеют ли какуюлибо цену наша жизнь и наши деяния какова природа добра и зла и т. Она не занимается простым сложением всех научных знаний это была бы никому не нужная затея а интегрирует эти знания беря их в самом общем виде и опираясь на этот интеграл строит систему знания о мире как целом об отношении человека...