К.Ю. Поляков, Е.А. Ерёмин, 2013 Программирование на языке Паскаль § 57. Ветвления 1. - презентация

1 К.Ю. Поляков, Е.А. Ерёмин, Программирование на языке Паскаль § 57. Ветвления 1

2 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Условный оператор 2 Задача: изменить порядок действий в зависимости от выполнения некоторого условия. M:= a a > b? M:= b да нет вывод M полная форма ветвления Если a = b? ?

3 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Условный оператор: полная форма 3 if a > b then M:= a else M:= b; if a > b then M:= a else M:= b; if a > b then begin M:= a; end else begin M:= b; end; if a > b then begin M:= a; end else begin M:= b; end; операторные скобки Перед else знак « ; » НЕ ставится! !

4 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Условный оператор: неполная форма 4 M:= b b > a? да нет вывод M M:= a неполная форма ветвления M:= a; if b > a then M:= b; M:= a; if b > a then M:= b;

5 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Условный оператор 5 if a < b then begin с:= a; a:= b; b:= c end; if a < b then begin с:= a; a:= b; b:= c end; Что делает? ? ? ? a b Можно ли обойтись без переменной c ? Можно ли обойтись без переменной c ? ? c

6 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Знаки отношений 6 > > < < >=>= >=>= <=<= <=<= = = <> больше, меньше больше или равно меньше или равно равно не равно

7 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Вложенный условный оператор 7 if a > b then writeln('Андрей старше') else if a > b then writeln('Андрей старше') else if a = b then writeln('Одного возраста') else writeln('Борис старше'); вложенный условный оператор Зачем нужен? ? Задача: в переменных a и b записаны возрасты Андрея и Бориса. Кто из них старше? Сколько вариантов? ? программа

8 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Выделение структуры отступами 8 if a > b then write('А') else if a = b then write('=') else write('Б'); if a > b then write('А') else if a = b then write('=') else write('Б'); if a > b then write('А') else if a = b then write('=') else write('Б');

9 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Задачи 9 «A»: Ввести три целых числа, найти максимальное из них. Пример: Введите три целых числа: Максимальное число 5 «B»: Ввести пять целых чисел, найти максимальное из них. Пример: Введите пять целых чисел: Максимальное число 5

10 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Задачи 10 «C»: Ввести последовательно возраст Антона, Бориса и Виктора. Определить, кто из них старше. Пример: Возраст Антона: 15 Возраст Бориса: 17 Возраст Виктора: 16 Ответ: Борис старше всех. Пример: Возраст Антона: 17 Возраст Бориса: 17 Возраст Виктора: 16 Ответ: Антон и Борис старше Виктора.

11 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Сложные условия 11 Задача: набор сотрудников в возрасте лет (включительно). if then writeln('подходит') else writeln('не подходит'); if then writeln('подходит') else writeln('не подходит'); and or not Приоритет : 1)not 2)and 3)or, xor 4)отношения (, =, =, <> ) xor исключающее «ИЛИ» (v >= 25) and (v <= 40) сложное условие Почему скобки обязательны? ? программа

12 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Задачи 12 «A»: Напишите программу, которая получает три числа и выводит количество одинаковых чисел в этой цепочке. Пример: Введите три числа: Все числа одинаковые. Пример: Введите три числа: Два числа одинаковые. Пример: Введите три числа: Нет одинаковых чисел.

13 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Задачи 13 «B»: Напишите программу, которая получает номер месяца и выводит соответствующее ему время года или сообщение об ошибке. Пример: Введите номер месяца: 5 Весна. Пример: Введите номер месяца: 15 Неверный номер месяца.

14 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Задачи 14 «C»: Напишите программу, которая получает возраст человека (целое число, не превышающее 120) и выводит этот возраст со словом «год», «года» или «лет». Например, «21 год», «22 года», «25 лет». Пример: Введите возраст: 18 Вам 18 лет. Пример: Введите возраст: 21 Вам 21 год. Пример: Введите возраст: 22 Вам 22 года.

15 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Задачи 15 «A»: Напишите условие, которое определяет заштрихованную область. «B»: Напишите условие, которое определяет заштрихованную область.

16 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Задачи 16 «C»: Напишите условие, которое определяет заштрихованную область.

17 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Множественный выбор 17 if m = 1 then write('январь'); if m = 2 then write('февраль');... if m = 12 then write('декабрь'); if m = 1 then write('январь'); if m = 2 then write('февраль');... if m = 12 then write('декабрь'); case m of 1: write('январь'); 2: write('февраль');... 12: write('декабрь') else write('ошибка') end; case m of 1: write('январь'); 2: write('февраль');... 12: write('декабрь') else write('ошибка') end; Программа

18 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Использование списков и диапазонов 18 case m of 2: d:= 28; { невисокосный год } 1,3,5,7,8,10,12: d:= 31 else d:= 30 end; case m of 2: d:= 28; { невисокосный год } 1,3,5,7,8,10,12: d:= 31 else d:= 30 end; Число дней в месяце: Социальный статус: case v of 0..6: write('дошкольник'); 7..17: write('школьник') else write('взрослый') end; case v of 0..6: write('дошкольник'); 7..17: write('школьник') else write('взрослый') end; программа

19 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Множественный выбор 19 var c: char;... case c of 'а': begin writeln('антилопа'); writeln('Анапа'); end;... 'я': begin writeln('ягуар'); writeln('Якутск'); end else writeln('ошибка') end; var c: char;... case c of 'а': begin writeln('антилопа'); writeln('Анапа'); end;... 'я': begin writeln('ягуар'); writeln('Якутск'); end else writeln('ошибка') end; несколько операторов в блоке

20 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Конец фильма ПОЛЯКОВ Константин Юрьевич д.т.н., учитель информатики ГБОУ СОШ 163, г. Санкт-Петербург ЕРЕМИН Евгений Александрович к.ф.-м.н., доцент кафедры мультимедийной дидактики и ИТО ПГГПУ, г. Пермь

21 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Источники иллюстраций 21 1.old-moneta.ruold-moneta.ru logos.cs.uic.edulogos.cs.uic.edu 6.ru.wikipedia.org ru.wikipedia.org 7. иллюстрации художников издательства «Бином» 8. авторские материалы