План урока « Подпрограммы в Pascal. Функции ». Цель : дать учащимся представление о подпрограммах и возможностях их использования. Показать и разобрать. - презентация

1 План урока « Подпрограммы в Pascal. Функции »

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

3 Ход урока I. Орг. Момент (2 мин ) II. Вступление. Актуальность. Проверка знаний (8 мин ) III. Объяснение нового материала Теория + практика (30 мин ) IV. Итог урока (2 мин ) V. Домашнее задание (3 мин )

4 Подпрограммы в Pascal. Функции

5 Повторение Что такое подпрограмма ? Зачем нужны подпрограммы ? Как оформляется подпрограмма ?

6 Стандартные функции в Pascal Sin(x) Cos(x) SQRT(x) SQR(x) Log(x) И др.

7 procedure circle (r:real; var S:real); begin S:=pi*r*r; end; S – выходной параметр. Именно в него передается результат действий процедуры.

8 В отличие от процедуры, функция : Имеет тип Передает в программу результат своей работы – единственное значение, носителем которого является имя функции Вызов происходит как операция присваивания значения – s:=sin(x);

9 Функция - это подпрограмма, результат выполнения которой есть единственное скалярное значение, присваеваемое имени этой функции

10 Структура пользовательской функции FUNCTION ИМЯ ( список параметров : их тип ): тип функции ; раздел описаний BEGIN раздел операторов ; END;

11 Вызов функции summa:=sum(a,b); writeln('Cy мм a чисел равна : ', sum(a,b));

12 Program My_function; var a, b, summa: integer; function sum(a,b: integer): integer; begin sum:= a + b; end; begin a := 12; { Установка начальных значений } b := 15; { переменных " а " и "b"} summa:=sum(a,b); writeln('Cy мм a чисел равна :', summa) end.

13 Составить рекурсивную функцию, вычисляющую факториал числа n следующим образом : n! = 1, если n= 1 и n!= ( n - 1 )! · n, если n > 1 function f ( n : integer): integer; begin if n = 1 then f := 1 else f := n * f ( n - 1 ); end;

14 В чем отличие процедуры от функции ? Когда лучше использовать в качестве подпрограммы процедуру, а когда удобней функцию ? Как вызвать функцию ? Может ли функция вызвать саму себя ? Remember!