Конспект урока+ презентация на тему "Алгоритмы с ветвящей структурой"

• 1 слайд

  
  Алгоритмы с ветвящей структурой
  

• 2 слайд

  Цель: отработать навык составления программ с ветвящейся структурой.
  
  

• 3 слайд

  Дана программа:
  Program urok;
  Var m, n, s, p: integer;
  Begin
  Read (m,n); s:=m+n; p:=m*n;
  if m>n then begin m:=s; n:=p; end
  else begin m:=p; n:=s; end;
  Write ('m=', m, ‘n=',n);
  End.
  Для решения какой задачи она предназначена?
  

• 4 слайд

  Какие структуры называются ветвлением?
  

• 5 слайд

  Какие конструкции ветвления бывают?
  

• 6 слайд

  Задание 1.
  Составьте программу, определяющую, является ли число A кратным числу В.
  
  

• 7 слайд

  Решение:
  Program primer;
  Var a, b :integer;
  Begin
  Write('введите два числа');
  Read(a,b);
  If a mod b=0 then writeln('a кратно b')
  else write ('а не кратно b');
  End.
  
  

• 8 слайд

  Задание 2.
  Вводятся две четвертные оценки по математике и русскому языку. Выведите на экран надпись «Молодец!», если их сумма больше или равна 9, иначе надпись — «Подтянись!».
  
  

• 9 слайд

  Решение:
  Program primer;
  Var a, b: integer;
  Begin
  Write('введите четвертные оценки по математике и русскому языку');
  Read(a,b);
  If a+b>=9 then writeln('Молодец!') else writeln('Подтянись!');
  End.
  Использование операторных скобок внутри условного оператора называется составным оператором.
  
  

• 10 слайд

  Задание 3.
  Составьте программу сортировки по возрастанию значений трех переменных: А, В, С.
  
  

• 11 слайд

  Решение:
  Program Рг;
  Var S1, S2, S3, С: Integer;
  Begin
  Writeln(' Введите три числа');
  Readln(S1,S2,S3);
  If S1>S2 then begin C:=S1; S1:=S2; S2:=C; end; {Меняем местами содержимое S1 и S2}
  If S2>S3 then begin C:=S2; S2:=S3; S3:=C; end; {Меняем местами содержимое S2 и S3}
  If S1>S2 then begin C:=S1; S1:=S2; S2:=C; end; {Меняем местами содержимое SI и S2}
  Writeln('Числа в порядке возрастания:', S1,S2,S3)
  End.
  
  

• 12 слайд

  Задание 4.
  Составьте программу решения линейного уравнения вида Ах — В.
  
  

• 13 слайд

  Решение:
  Program linear_equation;
  Var a, b: real;
  Begin
  Write('введите коэффициенты а и b:');
  Readln(a, b);
  If a<>0 then write('x0',-b/a) Else
  If b=0 then write('Kopeнь любое число')
  Else write('Kopней нет');
  End.
  
  

• 14 слайд

  Задание 5. Составьте программу решения квадратного уравнения.
  
  

• 15 слайд

  Решение:
  program kv;
  var a,b,c,D,x1,x2:real;
  begin
  Read (a,b,c);
  D:=b*b-4*a*c;
  if D<0
  then Writeln('KOPHEЙ НЕТ')
  else
  if D=0 then begin D:=sqrt(D); x1:=(-b)/(2*a); Writeln('x=',x1);
  else
  begin
  D:=sqrt(D);
  xl:=(-b+D)/(2*a);
  x2:=(-b-D)/(2*a);
  Writeln('xl=',xl);
  Write Ln('x2=',x2);
  end;
  end.
  
  

• 16 слайд

  Домашнее задание
  Дано: а, b, с- стороны предполагаемого треугольника. Требуется сравнить длину каждого отрезка с суммой двух других. Если хотя бы в одном случае отрезок окажется больше суммы двух других, то треугольника с такими сторонами не существует.
  Написать программу, определяющую по координатам точки, в какой четверти она находится.
  
  

• 17 слайд

  Ответы:
  1.var а, b, с: integer;
  begin
  write ('Длины сторон:');
  readln (a,b,c);
  if (a<b+c) and (b<a+c) and (c<a+b) then
  writeln('Треугольник существует.')
  else
  writeln('Треугольник не существует.');
  readln
  end.
  
  

• 18 слайд

  2. Var x, y: real;
  begin
  write('x='); read(x);
  write('y='); readln(y);
  write('Hoмep четверти координатной плоскости:');
  if (x>0) and (y>0) then writeln (‘I’)
  Else if (x<0) and (y>0) then writeln('II')
  else if (x<0) and (y<0) then writeln('III')
  else
  if (x>0) and (y<0) then writeln(‘IV')
  else
  writeln('-. Точка лежит на оси.');
  readln
  end.
  
  

Тема: Алгоритмы с ветвящей структурой

Тип урока: комбинированный урок

Цели:

·        Сформировать представление у учащихся об основных понятиях темы:язык программирования, системы программирования, компьютер как исполнитель алгоритмы, величины, системы команд, команда присваивания, команды ввода и вывода;

·        Развитие информационного видения явлений и процессов окружающего мира;

·        Воспитание информационной культуры учащихся, внимательность, аккуратность, дисциплинированности, усидчивости;

·        Воспитание познавательного интереса школьников.

Оборудование:

·        ПК;

·        Интерактивная доска;

·        MS PowerPoint

Ход урока:

I.Организационный момент (2 мин.)

Приветствие. Проверка присутствующих. Сообщение темы урока.

II. Актуализация знаний (1 мин.)

Отработать навык составления программ с ветвящейся структурой

III. Теоретическая часть (25мин.)

Дана программа:

Program urok;

Var m, n, s, p: integer;

Begin

Read (m,n); s:=m+n; p:=m*n;

if m>n then begin m:=s; n:=p; end

else begin m:=p; n:=s; end;

Write ('m=', m, ‘n=',n);

End.

Для решения какой задачи она предназначена?

• Какие структуры называются ветвлением?

Какие конструкции ветвления бывают?

• Задание 1.

Составьте программу, определяющую, является ли число A кратным числу В.

Решение:

Program primer;

Var a, b :integer;

Begin

Write('введите два числа');

Read(a,b);

If a mod b=0 then writeln('a кратно b')

else write ('а не кратно b');

End.

• Задание 2.

Вводятся две четвертные оценки по математике и русскому языку. Выведите на экран надпись «Молодец!», если их сумма больше или равна 9, иначе надпись — «Подтянись!».

Решение:

Program primer;

Var a, b: integer;

Begin

Write('введите четвертные оценки по математике и русскому языку');

Read(a,b);

If a+b>=9 then writeln('Молодец!') else writeln('Подтянись!');

End.

Использование операторных скобок внутри условного оператора называется составным оператором.

• Задание 3.

Составьте программу сортировки по возрастанию значений трех переменных: А, В, С.

Решение:

Program Рг;

Var S1, S2, S3, С: Integer;

Begin

Writeln(' Введите три числа');

Readln(S1,S2,S3);

If S1>S2 then begin C:=S1; S1:=S2; S2:=C; end; {Меняем местами содержимое S1 и S2}

If S2>S3 then begin C:=S2; S2:=S3; S3:=C; end; {Меняем местами содержимое S2 и S3}

If S1>S2 then begin C:=S1; S1:=S2; S2:=C; end; {Меняем местами содержимое SI и S2}

Writeln('Числа в порядке возрастания:', S1,S2,S3)

End.

• Задание 4.

Составьте программу решения линейного уравнения вида Ах — В.

Решение:

Program linear_equation;

Var a, b: real;

Begin

Write('введите коэффициенты а и b:');

Readln(a, b);

If a<>0 then write('x0',-b/a) Else

If b=0 then write('Kopeнь любое число')

Else write('Kopней нет');

End.

Задание 5. Составьте программу решения квадратного уравнения.

Решение:
program kv;

var a,b,c,D,x1,x2:real;

begin

Read (a,b,c);

D:=b*b-4*a*c;
if D<0

then Writeln('KOPHEЙ НЕТ')

else

if D=0 then begin D:=sqrt(D); x1:=(-b)/(2*a); Writeln('x=',x1);

else

begin

D:=sqrt(D);

xl:=(-b+D)/(2*a);

x2:=(-b-D)/(2*a);

Writeln('xl=',xl);

Write Ln('x2=',x2);

end;

end.

• Домашнее задание
• Дано: а, b, с- стороны предполагаемого треугольника. Требуется сравнить длину каждого отрезка с суммой двух других. Если хотя бы в одном случае отрезок окажется больше суммы двух других, то треугольника с такими сторонами не существует.
• Написать программу, определяющую по координатам точки, в какой четверти она находится.

Ответы:

1.var а, b, с: integer;

begin

write ('Длины сторон:');

readln (a,b,c);

if (a<b+c) and (b<a+c) and (c<a+b) then

writeln('Треугольник существует.')

else

writeln('Треугольник не существует.');

readln

end.

2. Var x, y: real;

begin

write('x='); read(x);

write('y='); readln(y);

write('Hoмep четверти координатной плоскости:');

if (x>0) and (y>0) then writeln (‘I’)

Else if (x<0) and (y>0) then writeln('II')

else if (x<0) and (y<0) then writeln('III')

else

if (x>0) and (y<0) then writeln(‘IV')

else

writeln('-. Точка лежит на оси.');

readln

end.

IV. Итоги урока.

V.Домашнее задание (1 мин.)