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

Содержание

• 
  Слайд 1

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

  Урок 30.

• 
  Слайд 2
  

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

• 
  Слайд 3
  

  Дана программа: Programurok; Varm, n, s, p: integer; Begin Read (m,n); s:=m+n; p:=m*n; ifm>nthenbegin m:=s; n:=p; end elsebegin m:=p; n:=s; end; Write ('m=', m, ‘n=',n); End. Для решения какой задачи она предназначена?

• 
  Слайд 4

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

• 
  Слайд 5
  

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

• 
  Слайд 6

  Задание 1.

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

• 
  Слайд 7
  

  Решение: Programprimer; Vara, b :integer; Begin Write('введите два числа'); Read(a,b); Ifamod b=0 thenwriteln('a кратно b') elsewrite ('а не кратно b'); End.

• 
  Слайд 8

  Задание 2.

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

• 
  Слайд 9
  

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

• 
  Слайд 10

  Задание 3.

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

• 
  Слайд 11
  

  Решение: ProgramРг; Var S1, S2, S3, С: Integer; Begin Writeln(' Введите три числа'); Readln(S1,S2,S3); If S1>S2 thenbegin C:=S1; S1:=S2; S2:=C; end; {Меняем местами содержимое S1 и S2} If S2>S3 thenbegin 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
  

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

• 
  Слайд 14
  

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

• 
  Слайд 15
  

  Решение:programkv;var a,b,c,D,x1,x2:real;begin Read (a,b,c);D:=b*b-4*a*c;if D

• 
  Слайд 16

  Домашнее задание

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

• 
  Слайд 17
  

  Ответы: 1.var а, b, с: integer;begin write ('Длины сторон:'); readln (a,b,c); if (a

• 
  Слайд 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 (x0) then writeln('II')else if (x0) and (y