Презентация к уроку "Функции в ЯП Pascal" (9 класс)

• 1 слайд

  Презентацию составил:
  
  Учитель информатики
  Белкин Алексей Алексеевич
  
  Участник конкурса
  «Учитель года-2018»
  Сайт:
  http://belkin.edushd.ru/
  

• 2 слайд

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

• 3 слайд

  Функции
  

• 4 слайд

  function имя функции (формальные параметры):тип результата;
  
  раздел описаний функции
  
  begin
  исполняемая часть функции
  end;
  Формат описания функции
  function namefunc(A,B:integer):integer;
  
  var
  c,d:integer;
  
  begin
  c:=a*a;
  d:=b*b;
  namefunc:=c+d;
  end;
  имя функции (фактические параметры);
  Вызов функции
  Var
  N,M:integer;
  
  Begin
  readln(n,m);
  writeln(namefunc(n,m));
  End.
  

• 5 слайд

  Количество фактических параметров должно совпадать с количеством формальных;
  
  
  Соответствующие фактические и формальные параметры должны совпадать по порядку следования и по типу.
  
  
  Правила при вызове и
  описании функций:
  

• 6 слайд

  Функция имеет только один результат выполнения (но может иметь несколько входных параметров);
  
  
  
  Имена формальных и фактических параметров могут совпадать.
  
  
  а
  b
  а
  b
  Правила при вызове и
  описании функций:
  

• 7 слайд

  uses crt;
  var
  a:real;
  
  function PloshadKvadr(a:char):real;
  begin
  PloshadKvadr:=a*a;
  end;
  
  begin
  readln(a);
  writeln(PloshadKvadr(a));
  end.
  (a:real):real;
  Соответствующие фактические и формальные параметры должны совпадать по типу.
  

• 8 слайд

  var
  a,b:integer;
  
  function PloshadTrapecii(a,b:integer):real;
  var
  h:real;
  begin
  readln(h);
  PloshadTrapecii:=((a+b)/2)*h;
  end;
  
  begin
  readln(a,b);
  writeln(PloshadTrapecii(a,b));
  end.
  Ошибок нет 
  

• 9 слайд

  uses crt;
  var
  a:integer;
  
  function PloshadKvadr(a:integer):integer;
  begin
  PloshadKvadr:=a*a;
  end;
  
  begin
  readln(a);
  writeln(PloshadKvadr(a,a));
  end.
  Количество фактических параметров должно совпадать с количеством формальных
  (PloshadKvadr(a));
  

• 10 слайд

  var
  a,b,c:integer;
  
  function step2(a:integer):integer;
  begin
  step2:=a*a;
  end;
  
  function Diskriminant(b,a,c:integer):real;
  var
  d:integer;
  begin
  d:=step2(b)-4*a*c;
  if d>=0 then Diskriminant:=SQRT(d)
  else writeln ('нет корней');
  end;
  
  begin
  readln (a,b,c);
  writeln (Diskriminant(a,b,c));
  end.
  (Diskriminant(b,a,c));
  Соответствующие фактические и формальные параметры должны совпадать по порядку следования и по порядку.
  

• 11 слайд

  Составить программу вычисления выражения:
  N!+M!=?
  

• 12 слайд

  uses crt;
  war
  n,m:integer;
  otvet:integer;
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  function fact (a:real) :integer;
  var i,f:integer;
  Begin
  f:=1;
  for i:=1 downto a do f:=f*i;
  fact:=0;
  End;
  
  BEGIN
  writeLn(‘Введите N и M’);
  readln(n,m);
  otvet:= fact()+fact();
  writeln(‘Решение:');
  writeln(n, '!', '+' , m, '!=', fact(n), + , fact(m), '=', otvet);
  END.
  
  var
  fact(n)+fact(m)
  ‘+’
  (a:integer):integer;
  to
  fact:=f;
  

• 13 слайд

  Практическая работа
  Каждые 3 минуты смена рабочего места
  

• 14 слайд

  Практическая работа
  8
  4
  p=12
  S=32
  P=24
  

• 15 слайд

  Даны координаты точек треугольника. Найти его периметр.
  Sqr(a) - 𝒂 𝟐
  Sqrt(a) - 𝒂
  А= ( 𝒙 𝟐 − 𝒙 𝟏 ) 𝟐 ( 𝒚 𝟐 − 𝒚 𝟏 ) 𝟐
  P=A+B+C
  Практическая работа
  =12.78
  

• 16 слайд

  uses crt;
  var
  xA,yA,xB,yB,xC,yC,AB,AC,BC,P:real;
  function storona(x1,y1,x2,y2:real):real;
  begin
  storona:=sqrt(sqr(x2-x1)+sqr(y2-y1));
  end;
  BEGIN
  writeln('Введите координаты точки A(x,y)');
  readln(xA,yA);
  writeln('Введите координаты точки B(x,y)');
  readln(xB,yB);
  writeln('Введите координаты точки C(x,y)');
  readln(xC,yC);
  AB:=storona(xA,yA,xB,yB);
  AC:=storona(xA,yA,xC,yC);
  BC:=storona(xB,yB,xC,yC);
  P:=AB+AC+BC;
  writeln(‘Периметр P=',P:2:2);
  END.
  

• 17 слайд

  Составить программу вычисления данного выражения:
  y = 𝑥 6 ∙ (𝑥−5) 3 2∙𝑥+1 5
  Возведение выражений в степень с натуральным показателем оформить в виде функции. Не использовать стандартной математической функции вычисления степени.
  Практическая работа
  Y(1)=-0,263
  

• 18 слайд

  ShdIKT
  

• 19 слайд

  Спасибо за урок!