More Related Content
What's hot (12)
Viewers also liked (20)
Similar to ветвление (10)
ветвление
- 1. УСЛОВНЫЙ ОПЕРАТОР ВЕТВЛЕНИЕ
- 2. УСЛОВНЫЙ ОПЕРАТОР Неполное ветвление – если условие истинно, то действия выполняются, а если ложно, то действия пропускаются. Оператор if … then называется условным оператором и имеет вид: if условие then действие; Если условие является истинным, то выполняется указанное действие. Пример: If t < 0 then write (‘ Холодно ’);
- 3. УСЛОВНЫЙ ОПЕРАТОР Полное ветвление – если условие истинно, то выполняются одни действия, а если ложное – другие. Оператор if … then … else является полной версией условного оператора и имеет вид: if условие then действие1 else действие2; Если условие истинно, то выполняется действие1, если ложно, то действие2. Пример: Вычисление модуля If а >= 0 then write (‘|a| = ’, -a)else write(‘|a| = ’, a); Внимание! Перед служебным слово else ; не ставить!
- 4. УСЛОВНЫЙ ОПЕРАТОР if … then if … then … else Да Нет Да Нет Условие Условие действия действия1 действия2
- 5. УСЛОВНЫЙ ОПЕРАТОР Внимание! Если в условном операторе необходимо выполнить два и больше действий, необходимо использовать операторские скобки begin … end; Пример: Вычислить площадь круга и длину окружности по заданному радиусу. If r > 0 then begin S:=3.14*r*r; L:=2*3.14*r; write (‘S = ’, S,’ L = ‘,L) end. else write(‘Окружность с радиусом ’, r, ‘ не существует ‘);
- 6. ДАНЫ ТРИ ЦЕЛЫХ ЧИСЛА. НАЙТИ МАКСИМАЛЬНОЕ ИЗ НИХ Uses CRT; Var x,y,z,max : integer; Begin writeln (‘Введите три числа: ’); read (x,y,z); if x>y then max:=x else max:=y; if z>max then max:=z; write (‘Среди введенных чисел максимальным является ’, max); readln; End.
- 7. КАК СТАВИТЬ УСЛОВИЕ? Простые условия: Запись в программе Пояснения A>B больше A<B меньше A=B равно A >= B больше или равно A <=B меньше или равно A <> B неравно Операции отношения: =, <, >, <=, >=, <>. Позволяют произвести сравнение двух строк (переменные типа string). Сравнение строк производится слева направо до первого несовпадающего символа, и та строка считается больше, в которой первый несовпадающий символ имеет больший номер в таблице символьной кодировки.
- 8. СЛОЖНОЕ УСЛОВИЕ При необходимости проверки сложного условия используются логические связки: and - условие будет истинным, если истинны все простые условия связки (логическое И). or - условие будет истинным, если истинно хотя бы одно простое условие связки (логическое ИЛИ). Связывать можно сколько угодно простых условий, можно комбинировать and и or в сложном условии Пример: (a>0) and (b>0) – истинно, если оба числа положительны. (a>0) or (b>0) – истинно, если хотя бы одно из чисел положительно.
- 9. ОПРЕДЕЛИТЬ КАКОМУ КВАДРАНТУ ПРИНАДЛЕЖИТ ТОЧКА ПО ВВЕДЕННЫМ КООРДИНАТАМ, ЕСЛИ ТОЧКА ЛЕЖИТ НА ОСИ КООРДИНАТ – УКАЗАТЬ ЭТУ ОСЬ Uses CRT; Var x,y : real; Begin writeln (‘Введите координаты точки: ’); read (x,y); if (y=0) and (x=0) then write (‘Точка - центр координатной плоскости’); if (x=0) and (y<>0) then write (‘Точка лежит на оси ординат’); if (y=0) and (x<>0) then write ‘Точка лежит на оси абсцисс’); if (x>0) and (y>0) then write (‘1 квадрант’); if (x<0) and (y>0) then write (‘2 квадрант’); if (x<0) and (y<0) then write (‘3 квадрант’); if (x>0) and (y<0) then write (‘4 квадрант’); readln; End.