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

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

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

План уроку

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

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

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

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

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

Хід уроку

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Д/з. Скласти програми 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.

Теги: паскаль, Пата О.І. Навчальний предмет: Інформатика Переглядів/завантажень: 868/178

Завантажити (64.5 Kb)

• Поняття про комбінації. Трикутник Паскаля
• Організація алгоритмів розгалуження мовою Turbo Pascal
• Робота з базою даних у програмі Microsoft Access. Створення форм
• Основи алгоритмізації та програмування. Графіка в Паскалі
• Створення програм з використанням оператора циклу з параметром