Урок информатики в 10 классе по теме "Вспомогательные алгоритмы и подпрограммы"

Урок 28

Тема: Вспомогательные алгоритмы и подпрограммы

Цель: понять, что такое  подпрограммы, чем отличаются процедуры и функции, изучить особенности программирования с подпрограммой.

Повторение

Задача1. Составьте программу определения количества четных и нечетных цифр в записи данного натурального числа. Используйте файл program28_1.pas

Заполните пропуски	Подсказки
1.Write (‘введите число’); 2.Readln(x); 3.ch:=0; nch:=0; 4.while …>… do 5.begin 6.if …   7.      then ch:=ch+…      8.  else nch:=nch+ …; 9.x:= …; 10.end; 11.writeln(‘Сумма четных цифр равна’, …); 12.writeln(‘Сумма нечетных цифр равна’, …);	4.закончить цикл нужно тогда, когда х станет равным 0 6. проверка четности числа 7 прибавление к сумме младшей четной цифры 8 прибавление к сумме младшей нечетной цифры 9. При каждом повторении цикла от числа х отбрасывается одна младшая цифра

Новая тема

Запись вспомогательных алгоритмов осуществляется с помощью подпрограмм. В Паскале различают два вида подпрограмм: … и …. Обмен между основной программой и процедурой производится через …

Процедура – вспомогательный алгоритм (подпрограмма), имеющая произвольное количество входных и выходных данных.	Функция – это подпрограмма, имеющая единственный результат (число, символ или объект другого типа). В блоке функции обязательно должен присутствовать оператор присваивания идентификатору функции результата
Имя процедуры - …   n – параметр-значение   k- параметр-переменная printBin(99) - …	Имя функции - …
Задача 2: требуется найти наибольший общий делитель трех величин: а+b, а2+b2, a*b. Используйте файл program28_2.pas
program nod1;(с.157) var a,b,c: integer; procedure evklid (m, n: integer; var k: integer); begin   while m<>n do   if m>n     then m:=m-n     else n:=n-m;   k:=m; end; begin   write('a='); readln(a);   write('b='); readln(b);   evklid(…, a*a+b*b, …);   evklid(…,a*b,…);   writeln('НОД=', …) end.	program nod3;(с.160)
Фактические параметры:… Имя процедуры - … Формальные -   … – параметр-значение   …- параметр-переменная  … - обращение к процедуре	Имя функции - … Формальные -   … – параметр-значение   …- параметр-переменная  … - обращение к функции
Задача3.Выделите красным цветом в  procedure Operations обращение к процедуре	Выделите коричневым цветом  обращение к функции MyFun
procedure Operations(a,b: integer); begin   writeln(a,' + ',b,' = ',a+b);   writeln(a,' - ',b,' = ',a-b);   writeln(a,' * ',b,' = ',a*b);   writeln(a,' / ',b,' = ',a/b);   writeln(a,' div ',b,' = ',a div b);   writeln(a,' mod ',b,' = ',a mod b); end; begin   Operations(5,3);   writeln;   Operations(7,4); end.	function MyFun(x: real): real; begin   Result := x*sin(x); end; const   a = 0.0;   b = 2*Pi;   n = 10; begin   var h := (b-a)/n;   var x := a;   writeln('Таблица значений функции MyFun:');   for var i := 0 to n do   begin     writeln(x:5:2,MyFun(x):10:4);     x += h;   end;  end.

Задача4 с.162. Составьте программу вычисления площади кольца по значениям внутреннего и внешнего радиусов, используя подпрограмму вычисления площади круга (два варианта с процедурой и функцией, распределите строки в нужные столбцы)	procedure kolco(r1,r2: real); function Square(r1, r2: real): Real; begin   writeln(pi*abs(r1*r1-r2*r2):5:2) end; begin     Square := Pi * abs(r2 * r2 - r1 * r1); end; begin     Write('r1, r2 = ');     ReadLn(r1, r2);     writeln('Функция = ', Square(r1, r2):5:2); end. begin   kolco (5,3);   writeln;   kolco (3,4); end.
процедура	функция

Задача 5. Напишите процедуру, которая принимает параметр – натуральное число N – и выводит на экран линию из N символов '–'. 

Пример:

Введите N:

10

----------

Домашнее задание – §23 разобрать примеры и выполнить №5 с.162

Краткое описание документа:

Рабочий конспект для урока по информатике в 10 классе с целью формирования новых понятий по теме "Вспомогательные алгоритмы и подпрограммы". На уроке используются заготовки файлов с программами, текстовый файл. В начале уроке проводится проверочная работа с целью повторения темы "Итерационные циклы".