12. Условный оператор в Паскале.
Условный оператор – средство разветвления вычислительного процесса в зависимости от значения условного выражения (правда – ложь).
IF < условие > THEN
< операторы_1 >
ELSE
<операторы_2>
Вначале вычисляется «условие».
Если оно – «правда», то выполняются < операторы_1 > и управление передается на конец оператор IF.
Если оно – «ложь», то выполняются < операторы_2 >. Часть оператора ELSEможет быть опущена и тогда в случае «ложь» весь оператор IFкак бы пропускается.
< Операторы_1> и< операторы_2 >- операторы любого типа, в том числе, иусловные.
В последнем случае возникает вложенная логическая конструкция. На некоторых уровнях вложенности может отсутствовать часть ELSE.Чтобы не было путаницы уровней вложенности, существует правило – частьELSE соответствует ближайшей к ней «сверху» частиTHENусловного оператора.
1. Разводка на 4 потока
Var a,b,c,d,s:integer;
BEGIN
……………………
if a<b then
s:=100
else
begin
if c<d then
s:=101
else
begin
if c<0 then
s:=102
else
s:=10;
end;
end;
writeln(s);
readln;
END.
Логическое «И»:
var
a,b,c,d:integer;
label 2;
BEGIN
writeln('a,b,c');
readln(a,b,c);
if a>0 then
if b>0 then
if c>0 then
writeln('operator-1')
else
goto 2
else
goto 2
else
2: writeln('operator-4');
readln;
END.
If ((a>0) and (b>0) and (c>0)) then
writeln('operator-1')
else
writeln('operator-4')
Логическое «ИЛИ»:
var a,b,c,d:integer;
label 2;
BEGIN
writeln('a,b,c');
readln(a,b,c);
if a>0 then
goto 2
else
if b>0 then
goto 2
else
if c>0 then
2: writeln('operator-1')
else
writeln('operator-4');
readln;
END.
If ((a>0) or (b>0) or (c>0)) then
writeln('operator-1')
else
writeln('operator-4');
13. Оператор выбора в Паскале.
Оператор выбора позволяет выбирать одно из нескольких возможных продолжений программы. Определение направления движения связано с ключом– выражением любого порядкового типа.
- Вычисляется значение <ключ выбора>,
- В последовательности операторов <список выбора> отыскивается оператор, константа (метка) которого совпадает с ключом выбора.
- Одному пункту выбора может соответствовать несколько констант выбора.
- Выбранный оператор выполняется, и оператор CASEв целом завершает свою работу.
- Если в списке выбора не будет найдена константа, соответствующая ключу выбора, то управление передается оператору, следующему за оператором ELSE, и затем оператор выбора завершает свою работу.
- Часть {ELSE <оператор>}может быть опущена, тогда, если значение ключа не соответствует списку выбора, оператор CASEзавершает свою работу и выполнение задания передается следующему за ним оператору.
Пример:
Var
i:integer;
BEGIN
Read (i);
CASE i OF
1 : writeln(‘красный’);
2 : writeln(‘синий’);
3 : writeln(‘зеленый’);
4 : writeln(‘голубой’);
else
writeln(‘белый’);
END;
END.
Пример:
Var
Ch:char;
BEGIN
Read (ch);
CASE ch OF
‘n’, ‘N’: writeln(‘no’);
‘y’, ‘Y’: writeln(‘yes’);
END;
END.
14. Операторы циклов с предусловием, постусловием и с параметром в Паскале.
Цикл – это многократное повторение одного и того же действия. Действия, которые повторяются, называются шагом цикла. Условие, в течение которого действие выполняется, называется условием выполнения цикла. Существуют три вида циклов:
Цикл с предусловием – условие выполнения проверяется до шага цикла.
While <условие выполнения> Do <оператор>;
Пример: Program test1; Var z:Integer; Begin z:=10; Whilez>0 Do z:=x-3; WriteLn(z); End.
Цикл с постусловием – условие выполнения проверяется после шага цикла.
Repeat <оператор>; <оператор>; … <оператор>; Until <условие завершения>;
Пример: Program test2; Var b:Real; Begin b:=100; Repeat b:=b/2; Until b<10; Writeln(b:0:2); End.
Цикл с параметром – выполняется определенное заранее известное количество раз.
For <имя переменной>:=<нач. значение> To <кон. значение> Do <оператор>;
Пример: Program test3; Var j:Integer; Begin For j:=1 to 5 Do WriteLn(‘*’); WriteLn;
Цикл с предусловием выполняется до тех пор, пока условие выполнения не станет ложным, и продолжается, если условие истинно.
Цикл с постусловием выполняется до тех пор, пока условие не станет истинно, если условие ложно, цикл продолжается.
Цикл с параметром используется переменная, называемая параметром цикла. Перед выполнением цикла параметру устанавливается начальное значение. После выполнения шага цикла значение параметра увеличивается на единицу. Цикл продолжается до тех пор пока параметр не достигнет своего конечного значения.