Урок № 8
Тема: Практическая работа «Описание и реализация простейших циклических программ”.

Цель урока:

1.  Применить теоретические знания, полученные на предыдущем уроке, на практике. Получить практические навыки составления программ с использованием команды цикла For, циклов с послеусловием и предусловием.
   
   
2. Развивающая – учить анализировать и сравнивать, задавать вопросы.
3. Воспитательная – воспитывать дисциплинированность, ответственность, бережное отношение к вычислительной технике.

Ход урока

I.                   Организационный момент.

II.                Техника безопасности при работе за компьютером.

III.             Мотивация учебной деятельности учеников
Учитель предлагает ученикам написать  и запустить на компьютере программы из домашнего задания. Объяснить, как работает программа.

Найти все двузначные числа, кратные 7.

Program Kratn_7;

Uses Crt;

Var k: integer;

Begin

Clrscr;

k:=14;

While k<=99 do

      Begin

           Writeln(k);

           k:=k+7;

      end;

readln;

end.

IV.              Объявление темы и ожидаемых результатов:получить практические навыки составления программ с использованием команды цикла For, циклов с послеусловием и предусловием.

V.                 Объяснение условий задач для практической работы. Одну и ту же задачу решить 3 способами: с использованием команды цикла For, циклов с послеусловием и предусловием.

Задача. Найти синус чисел от 1 до 50(значения углов задаются в радианной мере). Каждую написанную программу закомментировать и показать учителю.

·        (повторение  с параметром)-4 балла

Program sinusss;

Uses Crt;

Var i:integer;    

      y:real;

Begin

     ClrScr;

     For і:=1 to 50 do

     Begin

        y:=sin(i);    

        Writeln(y:3:1);

     end;  

End.

 

 (цикл  с предусловием)-4 балла

Program sinusss;

Uses Crt;

Var i:integer;    

      y:real;

Begin

     ClrScr;

      і:=1;

     While і<=50 do

     Begin

        y:=sin(i);    

        Writeln(y:3:1);

        i:=i+1; 

     end;  

End.

 

(цикл  с послеусловием)-4 балла

Program sinusss;

Uses Crt;

Var i:integer;    

      y:real;

Begin

     ClrScr;

      і:=1;

     Repeat

         y:=sin(i); 

        Writeln(y:3:1);

        i:=i+1; 

     Until i>50;

End.

VI.              Проверка выполнения практической работы, выставление оценок.

VII.           Итоги урока.