Учебная система программирования вводный курс
УРОК 3. Алгоритмы ветвления. Теория. Алгоритмы ветвления широко используются как в системах программирования и управления технологическими процессами, так и на бытовом уровне. Фактически алгоритм ветвления, простой или сложный, сводится к принятию решений в зависимости от каких-либо условий. Для интерпретации условий используют логические операторы:,=,<>. Все они известны вам еще с уроков математики. Используя операторы ветвления можно написать программу, которая на основе результатов вычислений будет способна принимать решения. Алгоритмы ветвления широко используются бытовыми роботами, например стиральной машиной, цифровым фотоаппаратом и т.д. Алгоритмы ветвления всегда присутствуют там, где необходимо реализовать диалог с пользователем (компьютерная программа, интернет- сервис, банкомат).
УРОК 3. Алгоритмы ветвления. Блок-схема простого ветвления. начало условие действие Ввод данных Вывод данных конец да-нет
УРОК 3. Алгоритмы ветвления. Блок-схема сложного ветвления. начало условие Действие 1 Ввод данных Вывод данных конец да-нет Действие 2
УРОК 3. Алгоритмы ветвления. Операторы ветвления языка Паскаль В языке Паскаль алгоритмы ветвления реализуются при помощи трех операторов: 1. Оператор условного перехода 2. Оператор выбора 3. Оператор безусловного перехода Мы рассмотрим реализацию алгоритма ветвления при помощи оператора условного перехода. Данный оператор выглядит так: IF (условие) THEN (оператор) ELSE(оператор). Пример: IF a+b<c THEN a:=1 ELSE a:=2 Читается так: если a+b<c то переменной а присваиваем значение 1, иначе переменной а присваиваем значение 2.
УРОК 3. Алгоритмы ветвления. Пример программы. Задача: Дано целое число А. Проверьте, является ли число А четным. Программа: program thetnost; var a:integer; var n,k: real; begin readln (a); k:=a/2; n:=frac(k) ; if n>0 then writeln ('число не четное') else writeln ('число четное'); end. Примечание: оператор frac(k) отделяет дробную часть числа k.
УРОК 3. Алгоритмы ветвления. Пример программы. Задача: Даны три целых числа. Показать, что хотя бы два из них являются совпадающими. : program sovpad; var a,b,c:integer; begin readln (a); readln (b); readln (c); if a=b then writeln (числа совпадают') ; if b=c then writeln (' числа совпадают '); if a=c then writeln (' числа совпадают '); end.
УРОК 3. Алгоритмы ветвления. Пример программы. Задача: Даны три целых числа. Показать, что хотя бы два из них являются совпадающими (второй вариант программы). program sovpad_2; var a,b,c:integer; begin readln (a); readln (b); readln (c); if (a=b) or (b=c) or (a=c) then writeln (числа совпадают') else writeln (числа не совпадают'); end. Примечание: здесь использован оператор or ( ), который читается как или. Программа последовательно в одной строке проверяет равенства: если (a=b) или (b=c) или (a=c) выполняется, то числа совпадают. Данный вариант программы более оптимальный.
УРОК 3. Алгоритмы ветвления. Задания. Задача_14: Даны три целых числа. Показать, что хотя бы одно из них является положительным. Задача _15: Даны три целых числа. Показать, что все из них являются положительными. Задача _7: Даны три целых числа. Показать, что число В находится между числами А и С. Задача: Составить программу решения квадратного уравнения.