Презентация - Составление и отладка программ с использованием оператора ветвления на языке turbo pascal

Урок № 2
«Составление и отладка программ с использованием оператора ветвления на языке Turbo Pascal»

Оператор ветвления (условный оператор)
IF условие THEN оператор1 ELSE оператор2
Пример: если a>b, то вывести число a, в противном случае – число b. ………………..... IF a>b THEN writeln(a) ELSE writeln(b); .......................

Замечание 1
В некоторых случаях ветвь ELSE можно опустить, тогда оператор примет вид:
IF условие THEN оператор1
Пример: если a>b, то вывести число a. ………………..... IF a>b THEN writeln(a); .......................

Замечание 2
Если используется несколько условий, тогда их необходимо заключить в скобки и соединить с помощью логических операторов AND или OR
IF (условие1) AND (условие2) THEN оператор1 ELSE оператор2
IF (условие1) OR (условие2) THEN оператор1 ELSE оператор2
Пример: если a>b>c, то вывести число a. ………………..... IF (a>b) AND (b>c) THEN writeln(a); .......................

Замечание 3
Если после THEN или ELSE используется более одного оператора, то необходимо установить операторные скобки.
IF условие THEN BEGIN Оператор1; ……………… Операторn; END ELSE BEGIN Оператор1; ……………… Операторm; END;

Пример: даны 2 числа a и b. Если они оба положительные, то увеличить каждое на 1, в противном случае – возвести в квадрат.
IF (a>0) AND (b>0) THEN BEGIN a:=a+1; b:=b+1; END ELSE BEGIN a:=SQR(a); b:=SQR(b); END;

Замечание 4
Перед ELSE знак ; не ставится.
IF условие THEN BEGIN Оператор1; ……………… Операторn; END ELSE BEGIN Оператор1; ……………… Операторm; END;

Оператор варианта
Если необходимо осуществить проверку более сложных условий, целесообразно использовать условный оператор
CASE переменная OF список выражений END;
Пример: ………………………….. CASE x OF 1..3: s:=sqr(x); 4..6: s:=x+2; end; …………………………..

Решение задач
Задача № 1: Даны два числа a и b. Найти наибольшее из них.
Program primer1; Uses crt; Var a,b: integer; Begin clrscr; Writeln(‘Введите два числа’); Readln(a,b); IF a>b THEN writeln(a) ELSE writeln(b); End.

Решение задач
Задача № 2: Написать программу, которая по введенному номеру времени года (1 – зима, 2 – весна, 3 – лето, 4 - осень) выводит соответствующие этому времени года месяцы.
Program primer2; Uses crt; Var x: integer; Begin clrscr; Writeln(‘Введите номер времени года(от 1 до 4)’); Readln(x); CASE x OF 1: writeln(‘декабрь, январь, февраль’); 2: writeln(‘март, апрель, май’); 3: writeln(‘июнь, июль, август’); 4: writeln(‘сентябрь, октябрь, ноябрь’); end; End.

Контрольные вопросы
Как записывается оператор ветвления? Может ли в операторе ветвления отсутствовать какая-либо его часть? Может ли быть записано несколько условий после оператора IF? Как расположить несколько операторов после служебного слова THEN или ELSE? Можно ли перед ELSE ставить знак точка с запятой?