Презентация по информатике на тему "Программирование на языке Паскаль-Функции"

• 1 слайд

  Программирование
  на языке Паскаль
  Функции
  

• 2 слайд

  Функции
  Функция – это вспомогательный алгоритм (подпрограмма), результатом работы которого является некоторое значение.
  Примеры:
  вычисление , ,
  расчет значений по сложным формулам
  ответ на вопрос (простое число или нет?)
  Зачем?
  для выполнения одинаковых расчетов в различных местах программы
  для создания общедоступных библиотек функций
  В чем отличие от процедур?
  ?
  

• 3 слайд

  Функции
  Задача: составить функцию, которая вычисляет наибольшее из двух значений, и привести пример ее использования
  Функция:
  формальные параметры
  function Max (a, b: integer): integer;
  begin
  if a > b then Max := a
  else Max := b;
  end.
  это результат функции
  

• 4 слайд

  Функции
  Особенности:
  заголовок начинается словом function
  формальные параметры описываются так же, как и для процедур
  можно использовать параметры-переменные
  в конце заголовка через двоеточие указывается тип результата
  функции располагаются ВЫШЕ основной программы
  Max (a, b: integer): integer;
  function
  function Max (a, b: integer): ;
  integer
  function qq( a, b: integer; x: real ): real;
  a, b: integer; x: real
  function Max ( a, b: integer): integer;
  var
  

• 5 слайд

  Функции
  Особенности:
  можно объявлять и использовать локальные переменные
  значение, которое является результатом, записывается в переменную, имя которой совпадает с названием функции; объявлять ее НЕ НАДО:
  function Max (a, b: integer): integer;
  begin
  ...
  
  end;
  Max := a;
  function qq (a, b: integer): float;
  
  begin
  ...
  end;
  var x, y: float;
  В Delphi:
  !
  Result := a;
  

• 6 слайд

  Программа
  program qq;
  var a, b, max: integer;
  
  
  
  
  begin
  writeln('Введите два числа');
  read(a, b);
  max := Max ( a, b );
  writeln('Наибольшее число ', max );
  end.
  function Max (a, b: integer): integer;
  begin
  ...
  end;
  c
  c
  c
  Имена переменных, функций и
  процедур не должны совпадать!
  !
  фактические параметры
  вызов функции
  

• 7 слайд

  Логические функции
  Задача: составить функцию, которая определяет, верно ли, что заданное число – простое.
  Особенности:
  ответ – логическое значение (True или False)
  результат функции можно использовать как логическую величину в условиях (if, while)
  Алгоритм: считаем число делителей в интервале от 2 до N-1, если оно не равно нулю – число составное.
  count := 0;
  for i := 2 to N-1 do
  if N mod i = 0 then
  count := count + 1;
  if count = 0 then
  { число N простое}
  else { число N составное }
  for i := 2 to N-1 do
  if N mod i = 0 then
  count := count + 1;
  Как улучшить?
  ?
  

• 8 слайд

  Логические функции
  program qq;
  var N: integer;
  
  
  
  
  
  
  
  
  
  
  begin
  writeln('Введите целое число');
  read(N);
  if Prime(N) then
  writeln(N, ' – простое число')
  else writeln(N, ' – составное число');
  end.
  function Prime (N: integer): boolean;
  var count, i: integer;
  begin
  i := 2; count := 0;
  while i*i <= N do
  if N mod i = 0 then count := count + 1;
  i := i + 1;
  end;
  Prime := (count = 0);
  end;
  вызов функции
  результат – логическое значение
  перебор только до
  условие – это логическое значение
  

• 9 слайд

  Задания
  "4": Составить функцию, которая определяет сумму всех чисел от 1 до N и привести пример ее использования.
  Пример:
  Введите число:
  100
  сумма = 5050
  "5": Составить функцию, которая определяет, сколько зерен попросил положить на N-ую клетку изобретатель шахмат (на 1-ую – 1 зерно, на 2-ую – 2 зерна, на 3-ю – 4 зерна, …)
  Пример:
  Введите номер клетки:
  28
  На 28-ой клетке 134217728 зерен.
  

• 10 слайд

  Задания (вариант 2)
  "4": Составить функцию, которая определяет наибольший общий делитель двух натуральных и привести пример ее использования.
  Пример:
  Введите два числа:
  14 21
  НОД(14,21)=7
  "5": Составить функцию, которая вычисляет функцию синус как сумму ряда (с точностью 0.001)
  
  Пример:
  Введите угол в градусах:
  45
  sin(45) = 0.707
  x в радианах!