7.6. Программирование разветвлений

Для реализации алгоритма разветвляющейся структуры в языке Pascal используются следующие операторы.

1. Оператор безусловного перехода имеет вид:

goto M

Это означает, что надо перейти к строке с меткой M .

Метка – обозначение закладки в программе (метка обычно отделяется от остального текста программы двоеточием).

86. Оператор условного перехода (условный оператор) имеет вид:

if U then Op1 else Op2

Это означает, что если условие U истинное, то выполнять оператор Op1, иначе выполнять оператор Op2.

Условие – логическое выражение, которое может принимать одно из 2-х значений: «истина» или «ложь».

87. Оператор варианта (оператор выбора) имеет вид:

case S of

Z1 : Op1;

…

ZN : OpN

else Op0

end

Это означает, что в случае, если селектор S принимает значение из списка Z1, то выполнять оператор Op1, … если селектор S принимает значение из списка ZN, то выполнять оператор OpN, иначе выполнять оператор Op0.

Селектор – выражение порядкового типа, которое может принимать одно из многих значений (селектор может быть целым числом и не может быть дробным числом).

Задача 3.

Условие задачи. Вычислить величину

Блок-схема.

Программа.

Program z3;

Var

a,b,c:real;

Begin

read(a,b);

if a>b

then c:=a+b

else c:=a-b;

writeln(c);

End.

7.7. Программирование циклов

Для реализации алгоритма циклической структуры в языке Pascal используются следующие операторы.

1. Оператор цикла с предусловием имеет вид:

while U do Op

Это означает, что пока условие U истинное, повторять оператор Op в цикле; как только условие станет ложным, выйти из цикла.

2. Оператор цикла с постусловием имеет вид:

repeat

Op1;

…

OpN

until U

Это означает, что надо повторять операторы Op1, … OpN в цикле до тех пор, пока условие U не станет истинным; как только условие станет истинным, выйти из цикла.

3. Оператор цикла с параметром:

а)  При увеличении параметра имеет вид:

for Par := Nz to Kz do Op

Это означает, что для параметра Par , увеличивающегося от начального значения Nz до конечного значения Kz с шагом 1, повторять оператор Op в цикле.

б)  При уменьшении параметра имеет вид:

for Par := Nz downto Kz do Op

Это означает, что для параметра Par , уменьшающегося от начального значения Nz до конечного значения Kz с шагом (-1), повторять оператор Op в цикле.

Параметр цикла (счётчик циклов) – переменная порядкового типа, изменяющаяся в цикле от начального до конечного значения с каким-либо шагом (параметр цикла может быть целым числом и не может быть дробным числом).

Задача 4.

Условие задачи. Вычислить значения функции при x, увеличивающемся от x_н до x_к с шагом x

(Введём обозначения: x_н  xn ; x_к  xk ; x  dx ).

Блок-схема.

Программа.

Program z4;

Var

x,y,xn,xk,dx:real;

Begin

read(xn,xk,dx);

x:=xn;

while x<=xk do

begin

y:=sin(x)/cos(x);

writeln('при x=',x:10:3,' y=',y:7:2);

x:=x+dx;

end;

End.