Презентация по информатике на тему "Организация подпрограмм"

• 1 слайд

  ТЕМА: ПОДПРОГРАММЫ
  

• 2 слайд

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

• 3 слайд

  Задачи подпрограмм
  Избавляют от необходимости многократно повторять в тексте программы аналогичные фрагменты, то есть позволяют сократить объем программы
  
  Улучшают структуру программы
  
  Уменьшают вероятность появления ошибок
  
  

• 4 слайд

  Структура программы с подпрограммами
  Подпрограмма 1
  Подпрограмма 2
  Подпрограмма n
  Begin
  …
  Вызов подпрограммы 1
  …
  Вызов подпрограммы 2
  …
  Вызов подпрограммы n
  …
  End.
  Раздел описаний
  Основная программа
  

• 5 слайд

  ВИДЫ ПОДПРОГРАММ
  ПРОЦЕДУРЫ
  ФУНКЦИИ
  

• 6 слайд

  Описание процедуры в программе
  PROCEDURE <Name>(<Список формальных параметров>);
  Описание процедуры производится в разделе описаний основной программы.
  Любая процедура оформляется аналогично программе, может содержать заголовок, разделы описаний и операторов.
  где
  Procedure – зарезервированное слово,
  Name – произвольный идентификатор, определяющий имя процедуры
  

• 7 слайд

  Описание функции
  Функция оформляется аналогично процедуре.
  Функция состоит из заголовка, раздела описаний и раздела операторов.
  Function <Name> (Список формальных параметров): <Type>;
  где
  Procedure – зарезервированное слово,
  Name – произвольный идентификатор, определяющий имя процедуры
  Type – тип результата функции
  

• 8 слайд

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

• 9 слайд

  Описание функции в программе
  …
  Function Gipotenuza(a,b:real):real;
  Begin
  Gipotenuza:=Sqrt(Sqr(a)+Sqr(b))
  End;
  …
  Разработать функцию, определяющую по двум катетам a и b гипотенузу прямоугольного треугольника
  
  Вызов функции из основной программы:
  Z:=Gipotenuza(x,y);
  
  Описание процедуры в программе
  …
  Procedure Gipotenuza(a,b:real);
  Var g:real;
  Begin
  G:= Sqrt(Sqr(a)+Sqr(b));
  writeln(‘Гипотенуза=’, G:5:2)
  End;
  …
  Вызов процедуры из основной программы:
  Gipotenuza(x,y)
  
  

• 10 слайд

  Отличие функции от процедуры:
  1. Результатом работы функции является только одно значение
  2. Функция возвращает результат указанного при её описании типа
  3. Вызов функции осуществляется из выражения, где имя функции используется в качестве операнда
  

• 11 слайд

  Даны 3 различных массива целых чисел (размер каждого не превышает 15). В каждом массиве найти сумму элементов и среднеарифметическое значение.
  ПРИМЕР № 1
  

• 12 слайд

  Program primer_1;
  var i , n , sum: integer;
  sr : real;
  procedure work (r:integer; var s:integer; var s1:real); {процедура work}
  var mas : array [1..15] of integer ; { объявление массива мas}
  j : integer;
  begin
  s:=0;
  for j:=1 to r do begin {ввод элементов массива mas}
  write(' Vvedite element - ', j,': ') ;
  read (mas[j]);
  s:=s+mas [j];
  end;
  s1:=s/r;
  end;
  begin { главная программа}
  for i:=1 to 3 do begin
  write ('Vvedite razmer ',i, ' masiva: ');
  readln(n);
  work (n, sum, sr); {вызов процедуры work}
  writeln ('Summa elementov = ',sum);
  writeln ('Srednearifmeticheskoe = ',sr:4:1);
  end;
  readln;
  end.
  
  

• 13 слайд

  Написать функцию, которая сравнивает два целых числа и возвращает результат сравнения в виде одного из знаков: >, <, =
  ПРИМЕР № 2
  

• 14 слайд

  Program Primer_function;
  Var
  X, Y: real; {Сравниваемые числа}
  Res: char; {Результат сравнения}
  Function Compare(a, b:real): char;
  Begin
  if a>b then Compare:=‘>’ else
  if a<b then Compare:=‘<’ else Compare:= ‘=’
  end;
  Begin
  writeln(‘Введите два числа и нажмите <Enter>’);
  write(‘->’);
  readln(X, Y);
  Res:=Compare(X, Y); {Вызов функции}
  Writeln(x:6:2, Res, Y:6:2);
  Readln;
  end.
  Раздел описания функций
  

• 15 слайд

  Даны 4 различных массива целых чисел (размер каждого не превышает 10). В каждом массиве найти количество нулевых элементов и сумму положительных элементов.
  
  ЗАДАНИЕ
  

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

В презентации рассматриваются следующие вопросы:

• Понятие "подпрограмма";
• Структура подпрограммы;
• Виды подпрограмм;
• Отличительные особенности процедуры и функции;
• Описание и обращение к функции;
• Описание и обращение к процедуре
• Фактические и формальные параметры

В презентации рассмотрен пример, который демонстрирует отличительные особенности процедуры и функции.