Презентация "Ветвление в алгоритмах и на языке Паскаль" 10 класс

• 1 слайд

  Ветвление в алгоритмах
  

• 2 слайд

  Ветвление
  
  Подойти к прилавку.
  Если мороженое есть , то купить его.
  Отойти от прилавка.
  
  Посмотреть на термометр.
  Если t<-15О, то одеть шубу, иначе одеть куртку.
  Выйти из дома.
  Пример 1
  Пример 2
  

• 3 слайд

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

• 4 слайд

  Блок ветвления
  условие
  да
  нет
  

• 5 слайд

  +
  -
  -
  +
  1
  Мороженное
  есть?
  3
  1
  3
  t<-15
  

• 6 слайд

  Ветвление в Pascal
  IFесли
  THEN тогда
  ELSEиначе
  IF
  ELSE
  THEN
  +
  -
  

• 7 слайд

  
  
  
  
  
  
  IF Q THEN P
  
  
  
  
  
  
  IF Q THEN P ELSE T
  
  -
  +
  Q
  T
  P
  Q
  P
  +
  -
  

• 8 слайд

  -
  +
  Q
  T 1
  Т 3
  P 2
  P 3
  P 1
  Т 2
  IF Q THEN
  BEGIN
  P1; Р2; Р3;
  END;
  ELSE
  BEGIN
  T1; Т2; Т3;
  END;
  

• 9 слайд

  Составьте программу решения квадратного уравнения вида ax2+bx+c=0.
  program rekvur;
  var a,b,c,d,x1,x2: real;
  begin
  write (‘a,b,c’);
  readln (a,b,c);
  d:=b*b-4*a*c;
  if d>=0 then
  begin
  x1:=(-b + sqrt(d))/2/a;
  x2:=(-b - sqrt(d))/2/a;
  write (‘x1=’,x1, ‘ x2=’,x2);
  end;
  else write (‘net korney’);
  end.
  

• 10 слайд

  Выбор
  CASE Q OF
  1: P1;
  2: P2;
  …
  n: Pn
  ELSE Pn+1
  END;
  Q1
  P1
  Q2
  P2
  Q n
  Pn+1
  Pn
  

• 11 слайд

  По оценке, выраженной цифрой, дать ее словесное значение.
  program ocenka;
  var OC: integer;
  begin
  write (`oценка`);
  readln (ОС);
  case OC of
  2: write (`неудовлетв`);
  3: write (`удовлетв`);
  4: write (`хорошо`);
  5: write (`отлично`)
  end;
  end.
  

• 12 слайд

  Лабораторная работа
  «Артиллерийская задача»
  

• 13 слайд

  Н
  Вывод
  «попал»
  a:=a/180*3.14
  l:=s*sin(a)/cos(a)-9.8*s*s/2/v/v/cos(a)/cos(a)
  l>h
  l>0
  Ввод a,v,s,h
  Вывод
  «перелет»
  Вывод
  «недолет»
  +
  +
  -
  -
  К
  

• 14 слайд

  program pushka;
  var a,v,s,h: real;
  begin
  write (‘a,v,s,h’);
  readln (a,v,s,h);
  a:=a/180*3.14;
  l:=s*sin(a)/cos(a)-9.8*s*s/2/v/v/cos(a)/cos(a);
  

• 15 слайд

  if l>h then write (‘perelet’)
  else
  if l<0 then write (‘nedolet’) else write (‘popal’);
  end.