Презентация по информатике "Программирование Разветвляющихся алгоритмов" (8 класс)

• 1 слайд

  Программирование разветвляющихся алгоритмов. Условный оператор.
  

• 2 слайд

  https://www.youtube.com/watch?v=YJUnrfg-svM
  Виртуальный музей
  «История ЭВМ»
  

• 3 слайд

  Чтение книги
  Взять книгу
  Открыть первую страницу
  Пока не конец книги выполнять следующие действия:
  3.1. Прочитать текст
  3.2. Перелистнуть страницу
  Вычисление функции f(x)=|x|
  program n_1;
  var x, a, b, c, s: integer;
  begin
  write ('Введите исходное число>>');
  readln (x);
  a:=x div 100;
  b:=x mod 100 div 10;
  c:=x mod 10;
  s:=a+b+c ;
  writeln ('s= ', s)
  end.
  

• 4 слайд

  
  
  Какую математическую задачу решает данная программа?
  
  program vopros;
  var a, b, c, D, x1, x2: real;
  begin
         writeln (‘Введите числа a, b и с’);
         readln (a,b,c);
         D:=sqr(b)-4*a*c;
         x1:=(-b+sqrt(D))/(2*a);
         x2:=(-b-sqrt(D))/(2*a);
         write ( ‘x1=‘, x1, ‘x2=‘, x 2)
  end.
  
  

• 5 слайд

  Тема урока:
  «Программирование разветвляющихся алгоритмов»
  
  Цель урока:
  изучение основ программирования разветвляющихся алгоритмов
  

• 6 слайд

  Сокращённая
  если <условие> то <действия 1>
  if <условие> then <оператор 1>;
  Запись разветвляющегося
  алгоритма в языке Pascal с помощью условного оператора
  
  Полная
  если <условие> то <действия 1> иначе <действия 2>
  
  If <условие> then
  <оператор_1>
  else
  <оператор_2>;
  

• 7 слайд

  В качестве условий используются логические выражения –
  простые или сложные
  
  Вычислить, что получится в результате выполнения следующих фрагментов программ:
  1. a:=5;
  b:=3;
  if a>b then d:=a else d:=b;
  
  2. a:=-7;
  b:=5;
  x:=4;
  if (x>=a) and (x<=b) then
  writeln ('x=', x, ' принадлежит отрезку')
  else
  write ('x=', x, ' не принадлежит отрезку')
  end.
  

• 8 слайд

  Написать программу решения задачи
  
  Даны два различных числа. Найти наибольшее из двух этих чисел.
  

• 9 слайд

  Начало
  a
  a > b
  a, b
  Да
  Нет
  b
  program max;
  var a, b: real;
  begin
  writeln (Нахождения большего из 2 чисел);
  readln (a, b);
  if a>b then
  write (a, ' - наибольшее из 2 чисел')
  else
  write (b, ' - наибольшее из 2 чисел');
  end.
  Конец
  

• 10 слайд

  Program kvadratnoeyravnenie;
  var a, b, c, D, x1, x2: real;
  begin
    writeln (‘Введите числа a, b и с’);
  readln(a,b,c);
  D:= b*b - 4*a*c;
    if D<0 then
      writeln (‘Корней нет’)
    else if D=0 then
  begin
      x1 := -b/2/a;
      writeln('x1=x2=',x1);
    end
    else
  begin
      x1 := (-b-sqrt(D))/2/a;
      x2 := (-b+sqrt(D))/2/a;
      writeln('x1=',x1,' x2=',x2);
    end;
  end.
  

• 11 слайд

  Можете ли вы назвать тему урока?
  
  Вы достигли своей цели?
  
  Вам было легко или были трудности?
  
  Что у вас получилось лучше всего и без ошибок?
  
  Какое задание было самым интересным и почему?
  
  - Как бы вы оцениваете свою работу?
  

• 12 слайд

  П 3.4.1 стр. 129-130 читать, учить понятия, №3, 5 стр. 133-134.
  
  Написать программу для решения квадратного уравнения. 3х2 -10х +1=0.
  
  Сообщение «История развития программного обеспечения»
  Домашнее задание
  

• 13 слайд

  Спасибо за внимание