52156

Програмування циклічних обчислень

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

Педагогика и дидактика

Мета уроку: навчальна, навчитись практично застосовувати теоретичні відомості до розвязання задач; закріпити оформлення та запис на мові програмування; придбати практичні навички використання вказівок розгалуження та повторення при розв’язку задач;

Украинкский

2014-02-13

64.5 KB

13 чел.

Тема уроку: Програмування циклічних обчислень.

Практична робота 8 «Складання програм з використанням алгоритмічної структури повторення.»

Мета уроку: навчальна, навчитись практично застосовувати теоретичні відомості до розв’язання задач; закріпити оформлення та запис на мові програмування; придбати практичні навички використання вказівок розгалуження та повторення при розв’язку задач;

виховувати емоційну включенність; навчитись правильно застосовувати поняття та означення;

розвивати творче мислення та виконавчі здібності.

План уроку

I. Організаційний момент (2 хвилини)

II. Перевірка домашнього завдання. Опитування “Організація алгоритмів розгалуження та повторення мовою Turbo Pascal”. (5 хвилин)

IІІ. Практична робота 8 «Складання програм з використанням алгоритмічної структури повторення.» (30 хвивил)

ІV. Короткий розбір домашнього завдання на наступне заняття (5 хвилини)

V. Підведення підсумків уроку (3 хвилини)

Хід уроку

I. Організаційний момент. (3 хвилини)

Перевірка присутності. Перевірка наявності домашнього завдання.

II. Перевірка домашнього завдання. Опитування “Організація алгоритмів розгалуження та повторення мовою Turbo Pascal”.

Питання до класу:

  1.  Які форми умовного оператора, ви використовували при розв’язанні домашнього завдання?
  2.  Які оператори повторення Ви знаєте?
  3.  Як описується і використовується вказівка повторення з передумовою?
  4.  Як описується і використовується вказівка повторення з післяумовою?
  5.  Як описується і використовується вказівка повторення з параметрами?

IІІ. Практична робота 8 «Складання програм з використанням алгоритмічної структури повторення.» (Додаток 1)

Опорний конспект. 

Початковий, середній рівень – задача1, 2.

Достатній, високий рівень – задача 3, 4, 5. Доповнити 2-м варіантом розв’язку.

Алгоритм виконання практичної роботи:

  1.  Набрати в середовищі програмування програму.
  2.  Виконати компіляцію програми.
  3.  Зафіксувати результат виконання.
  4.  Зберегти файл розв’язку.  

ІV. Короткий розбір домашнього завдання на наступне заняття.

Скласти програми розв’язку задач.

1) Ввести число А, вивести всі його дільники та підрахувати їх загальну кількість.

2) Ввести 6 елементів  з клавіатури, визначити серед них найбільший.

3) Ввести дві змінні  X  та Y. Обчислити арифметичні дії за введеним знаком  d: +  -   *   / (додавання, віднімання, множення, ділення). Результат присвоїти змінній Z, та вивести.*

4) Намалювати малюнок знаками:  зірочка * або #,, використовуючи оператори циклу. *

V. Підведення підсумків уроку.

Запитання для бесіди:

  1.  Як ви гадаєте, чи виконали ми ті завдання, що поставили на початку уроку?
  2.  Які труднощі виникали у вас протягом уроку?
  3.  Що ви порадите однокласникам для подолання труднощів, що виникали?

Д/з. Скласти програми 1-4. За рівнем складності.


ДОДАТОК 1.

Задача 1. Вивести декілька разів своє ім’я або декілька разів своє ім’я та ім’я сусіда.

Program ima;

Uses crt;

Var i:integer;                  {і-лічільник}

Begin  Clrscr;

          Writeln(‘Виведення 5 разів свого імені в один рядок’);

          Writeln(‘---------------------------------’);

          For i:=1 to 5 do

                 begin

                   Write (‘Анастасія ’);

                 End;

          Writeln(‘Виведення 7 разів свого імені  та імені сусіда’);

          Writeln(‘----------------------------------’);

          For i:=7 downto 1 do

                 begin

                   Writeln (‘Анастасія  та Олена’);

                 End;

          Readln;

End.

Задача 2. Скласти програму підрахунку факторіала числа. Наприклад  10! (f=1*2*3*4*5*6*7*8*9*10)

Program factoril;

Uses crt;

Var i:integer;                 {і-лічільник}

      A:integer; f: real;     {А – число f – результат}

Begin  Clrscr;

          Writeln(‘Розрахувати факторіал числа’);

          Write(‘введіть число A=’);

           Readln(A);

           f:=1;             {початкове значення добутку}

          Writeln(‘---------------------------------’);

          For i:=1 to А do

                 begin

                   f:=f*i;

                 End;

Writeln(‘Розрахувати факторіал числа’);

          Write(‘введіть число A=’);

           Readln(A);

           f:=1;        {початкове значення добутку}

           i:=2;        {початкове значення}

          Writeln(‘---------------------------------’);

          While i<=A do

                 begin

                   f:=f*i;     {одна дія підрахунку}

                 i:=i+1;      {визначення наступного

значення}

                 End;

          Writeln(‘Результат f=’,f:6:2)

          Readln;

End.

Задача 3. Скласти программу знаходження суми 10 довільних чисел введених з клавіатури.

Program Summ;

Uses CRT;

Const  n = 10;     {розділ постійних значень}

Var I, x, S: integer;

Begin clrscr;

Writeln(‘Знаходження суми 10-ти довільних значень’);

S:= 0;                     {початкове значення суми}

Writeln(‘Введіть послідовно десять значень:   ’);

 for i:=1 to n do 

                 begin 

                      read (x);

 S:= S + х;

                end;

    ?

 writeln (‘Результат   суми S = ’, S);

 readln;

End.

Задача 4. Вивести на екран всі дільники даного натурального числа.

Program Deliteli;

Uses CRT;

Var N, I: integer;

Begin clrscr;

Writeln(‘Вивести дільники числа в один рядок’);

 write (‘Введіть число N= ’);

 Read(n);

Writeln(‘----------------------------------’);

Writeln;

 for i:=1 to n do 

                  begin

 if n mod i=0

                             then write(i:5);

                   end;

?

Readln;

End.

Задача 5. Скласти програму для знаходження суми чисел от 1 до 256, кратних числу 3.

Program kratni;

Uses CRT;

Var   S, I: integer;

Begin clrscr;

Writeln(‘Знаходження суми числа від 1 до 256, кратних 3’);

S:= 0;                     {початкове значення суми}

Writeln(‘----------------------------------’);

Writeln(‘Кратні значення: ’);

 for i:=1 to 256 do 

                  begin

 if i mod 3=0

                             then  begin

                                      S:=S+i;

                                      Write(i:3);

                                      end;

                   end;

?

writeln (‘Результат   суми S = ’, S);

 Readln;

End.

PAGE  4


 

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

22804. Київська Русь періоду розквіту. Володимир Великий. Ярослав Мудрий 34.5 KB
  Володимир Великий. Ставши Великим князем київським Володимир багато зробив аби зміцнити державу встановити лад і порядок. За часів Володимира в загальних рисах завершилося формування держави. Видатний політик і адміністратор Володимир здійснив серію реформ.
22805. Зовнішня політика Київської Русі та ГВК 25 KB
  Зовнішня політика Київської Русі та ГВК Починаючи із заснування Київської Русі вона досить активно займалася зовнішньою політикою у різних напрямках: політичному економічному релігійному та культурному. перервало зв'язки північносхідних земель Русі з Європою. Для Київської Русі була характерна договірна торгівля значне місце посідав звичайний обмін товар на товар .Отже і в період існування Київської Русі і під час розвитку ГалицькоВолинського князівства зовнішня політика проводилася досить активно і різнобічно.
22806. Причини та наслідки занепаду ГВК 24 KB
  останнього правителя ГалицькоВолинської держави Юрія II була успадкована князями литовської династії Гедиміновичів. Так припинила своє існування ГалицькоВолинська держава. Роль ГалицькоВолинського князівства надзвичайно велика. ГалицькоВолинське князівство відкрило широкий шлях західноєвропейським культурним впливам на Україну зберігаючи при цьому кращі традиції української національної культури.
22807. Хмельниччина 125 KB
  Це час коли ряд блискучих перемог зрушив все українське суспільство мобілізував широку підтримку для Хмельницького і перетворив суто козацьке повстання на загальноукраїнський антипольський рух. 1648 Хмельницький на чолі невеликого загону реєстрових і запорізьких козаків напав на польську залогу на острові Базавлук на Дніпрі і знищив її. Це звільнило Запорізьку Січ від польського контролю притягнуло запорожців на бік Хмельницького обраного гетьманом. Не сподіваючись поважніших труднощів польські полководці Великий гетьман М.
22808. Руїна. Становище України в другій половині XVII ст. 24.5 KB
  Серед козацьких ватажків виникли гострі розходження щодо того чи лишатися Україні під Москвою чи ж шукати покровителів серед інших сусідніх держав. Чи стане Україна унікальним суспільством вільних козаківземлеробів як цього хотіли селяни й рядове козацтво чи ж козацька старшина просто займе місце шляхти відтак повернувши розхитаний суспільний устрій знаті що відповідало б типовим для доби моделям Серед українців ще десятиліттями по смерті Хмельницького точилися запеклі суперечки навколо цих питань.
22809. Наступ царату на автономію України. Остаточна ліквідація гетьманського правління 28.5 KB
  Наступ царату на автономію України.Політику Петра І щодо України продовжували самодержавні імператори Росії з більшою чи меншою жорстокістю і фанатичною впертістю.Певні позитивні зміни в політиці щодо України були можливими після того як російський престол перейшов до дочки Петра І Єлизавети.Розумовський добився того що зносинами Росії з Україною займалися не в Сенаті а в колегії закордонних справ під владу гетьмана було повернуто Київ і Запорожжя з України виведено російські військові підрозділи.
22810. Три поділи Речі Посполитої 70.5 KB
  Австрія та Пруссія перелякавшись що Росія зможе поступово прибрати до рук усю Річ Посполиту вирішили поділити її між собою. За таких обставин пропозиція прусського короля Фрідріха II у 1771 році про поділ польських земель знайшла сприятливий грунт. І 5 червня 1772 повноважні представники Прусії Австрії та Росії підписали в Петербурзі договір про поділ польських земель за яким відбирали на свою користь так звані санітарні смуги тобто території по периметру Речі Посполитої.
22811. Руська трійця 33.5 KB
  Руська трійця У першій половині XIX ст. Тут на початку 30х років виникло напівлегальне демократичнопросвітницьке та літературне угруповання Руська трійця засновники М. Головацький яке виступило на захист української мови термін руська для галичан означав українська. Особливістю виникнення та діяльності громадськокультурного об'єднання Руська трійця було те що воно будучи яскравим самобутнім представником культурницького етапу українського національного руху одночасно зберігало певні риси етапу фольклорноетнографічного і...
22812. Кири́ло-Мефо́діївське бра́тство 54 KB
  Історія створення Ініціаторами створення братства виступили Василь Білозерський Микола Гулак Микола Костомаров Пантелеймон Куліш Опанас Маркевич. Знаком братства став перстень з написом Св. Крім організаторів до братства незабаром увійшли: Георгій Андрузький Олександр Навроцький Дмитро Пильчиков Іван Посяда Микола Савич Олександр Тулуб. У квітні 1846 року до братства вступив Тарас Шевченко.