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

Презентация: Алгоритмы с ветвящей структурой
1 из 18
Ваша оценка презентации
Оцените презентацию по шкале от 1 до 5 баллов
  • 1
  • 2
  • 3
  • 4
  • 5
4.0
1 оценка

Комментарии

Нет комментариев для данной презентации

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


Добавить свой комментарий

Аннотация к презентации

Презентация для 6-11 класса на тему "Алгоритмы с ветвящей структурой" по информатике. Состоит из 18 слайдов. Размер файла 0.58 Мб. Каталог презентаций в формате powerpoint. Можно бесплатно скачать материал к себе на компьютер или смотреть его онлайн.

Содержание

  • Презентация: Алгоритмы с ветвящей структурой
    Слайд 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

Посмотреть все слайды

Сообщить об ошибке