ОПЕРАТОРЫ УСЛОВНОГО ПЕРЕХОДА
В среде Pascal
Условный оператор
Существуют три базовых структуры алгоритмов:
- Линейная структура ;
- Ветвление;
- Циклы .
Структуре ветвления в Pascal е соответствует оператор условного перехода
Структура №1
- Условному оператору отвечают две структуры:
1 структура – неполная
Структура №2
2 структура
полная –
- при выполнении условия выполняется один блок действий, а при невыполнении – другой блок действий.
Пример
Если твой сосед по парте
Стал источником заразы ,
Обними его и в школу
Две недели не придешь…
Григорий Остер «Вредные советы»
Пример
… Прямоезжая дорожка заколодела, Заколодела дорожка, замуравила: Как по той ли по дорожке прямоезжей Да пехотою никто да не прохаживает, На добром коне да не проезживает… Героические былины.
«Витязь на распутье» Виктор Васнецов
Гамлет
Быть или не быть – таков вопрос;
Что благородней духом – покоряться
Пращам и стрелам яростной судьбы
Иль, ополчась на море смут, сразить их
Противоборством?…
Общий вид условного оператора
IF
THEN
ELSE ;
Пример программы
Составить программу для нахождения максимального из двух чисел a и b
b then max:=a else max:=b;" width="640"
Как записать условие?
If a b
then max:=a
else max:=b;
b then max:=a else max:=b; Writeln(‘ Максимальное из двух данных чисел равно ’,max); readkey; End." width="640"
Как составить программу?
Program n1;
Uses crt;
Var a,b,max : integer;
Begin
clrscr;
Write(‘ Введите значение a = ’);
Readln(a);
Write(‘ Введите значение b = ’);
Readln(b);
If a b then max:=a
else max:=b;
Writeln(‘ Максимальное из двух данных чисел равно ’,max);
readkey;
End.
Благодарю за внимание
