Программа 2

Конец

Начало

Конец

Начало

Условный оператор

Все

Все

Все

Иначе

< действие 2 >

Существует сокращенная форма структуры Ветвление, которая позволяет выполнить действие или пропустить его:

если < условие > то

< действие >

Обобщением структуры Ветвление является Множественный выбор:

если Var = Const1 то < действие 1 >

если Var = Const2 то < действие 2 >

...

если Var = ConstN то < действие N >

В зависимости от значения переменной Var выполняется одно из указанных действий, например, если Var = Const3, то выполняется

< действие 3 >.

Для реализации ветвления (развилки) в Паскале предусмотрены два оператора условный оператор и оператор выбора (варианта). Они предназначены для выделения из составляющих их операторов одного, который и выполняется.

Структура и действие условного оператора:

if <логическое выражение>

then <оператор 1>

else <оператор 2>

Условный оператор может быть неполным, т.е. не содержать часть «else <оператор 2>». Это используется тогда, когда нужно выполнить всего одно условие и не делать ничего, если оно не верно. В таком случае после действия, указанного за словом Then ставиться ";".

1. Составим программу, которая определяет длину общей части двух отрезков числовой оси, заданных координатами своих концов соответственно a,b и c,d (a<b, c<d). Если отрезки имеют общую часть, то левая координата общей части отрезков m равна максимальному из чисел a и c, а правая n – минимальному из чисел b и d.

Алгоритм Структура_с_ветвлением

ввод (a,b, c,d)

если (a<c) то m:=c иначе m:=a

если (b<d) то n:=b иначе n:=d

если m<n то l:=n-m иначе l:=0

все

вывод (l)

Программа 1. Определение длины общей части двух отрезков.

program cros;

var a,b,c,d,m,n,l:real;

begin

writeln(‘введите координаты концов отрезков’);

read (a,b,c,d);

writeln;

if a<c then m:=c else m:=a;

if b<d then n:=b else n:=d;

if m<n then l:=n-m else l:=0;

writeln (‘длина общей части отрезков=’,1:6:2)

end.

Оператор выбора имеет форму:

case <выражение> of

<список констант 1>:<оператор 1>

< список констант 2>:< оператор 2>

………………

< список констант N>:< оператор N>

end.

Выражение, стоящее между служебными словами case и of, должно иметь значение ординального типа. Любой список констант может состоять из одной константы.

Оператор выбора вычисляет значение выражения, записанного после case. Если его значение совпадает с одной из констант в некотором списке, то выполняется оператор, стоящий после этого списка. Если значение выражения не совпало ни с одной из констант во всех вариантах, то оператор варианта ничего не делает.

2. В зависимости от номера месяца выдать сообщение о времени года.

Алгоритм Оператор_выбора

ввод (k)

выбор из списка: 1, 2, 12; то вывод «зима»

выбор из списка: 3,4,5 то вывод «весна»

выбор из списка: 6,7,8, то вывод «лето»

выбор из списка: 9,10,11, то вывод «осень»

program seasons;

var k:=integer;

begin

writeln (‘’)

readln(k);

case k of

1,2,12:writeln(‘зима’);

3,4,5:writeln(‘весна’);

6,7,8:writeln(‘лето’);

9,10,11:writeln(‘осень’)

end

end.

Задания к работе 1

Дата добавления: 2015-06-04