Примеры операций, допустимых над данными логического типа.

Not операция логического отрицания НЕ

And операция логического умножения И

Or операция логического сложения ИЛИ

Xor операция сравнения - исключительное ИЛИ

Таблица логических операций

Var A,B:boolean;

A B not A A and B A or B A xor B

False False True False False False

False True True False True True

True False False False True True

True True False True True False

Символьные (Char)

Символьные переменные занимаю 1 байт памяти и их значениями служат символы ASCII-кода. К символьным данным применимы стандартные функции Pred,Succ,Ord.

Примеры операций, допустимых над данными символьного типа.

Var Lit1,Lit2:char;

Nom:byte;

...

Lit1:=’B’;Lit2:=Pred(Lit1);{Lit2=A}

Nom:=Ord(Lit2);{Nom=65 - ASCII-код символа ‘А’}

Lit1:=Chr(Nom);{Lit1=’A’ - обратное преобразование ASCII-кода в символ}

Основные операторы

Описание действий, которые должны быть выполнены над данными - основная часть любой программы. Единицей действия в программе является оператор . Обобщенная структура оператора в программе имеет вид:

<метка>:<оператор>;

• Оператор присваивания

<переменная>:=<выражение>;

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

переменная и выражение должны быть совместимы по типу.

Пример

var I,J:integer;

A,B:real;

Lon:boolean;

...

I:=12; J:=I+10;A:=0.25; B:=Sin(A);Lon:=A<>B;

• Составной оператор

Begin <оператор 1>;<оператор 2>;...;<оператор N> end;

Составной оператор позволяет объединить несколько операторов в один. Здесь Begin и End представляют собой операторные скобки.

Пример

Begin X:=0.5;Y:=Sin(X);write(X,Y){вывод результата вычислений} end;

• Оператор безусловного перехода

Goto <метка>;

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

Пример

недопустимо

Label 1, 3, 10; goto 10;

begin begin допустимо

X:=0.5; goto 1;

goto 1; 10:goto 3

... end;

1:Y:=Sin(X)+1; 1:Y:=0.25;

...

end;

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

Условные операторы используются для организации разветвлений в программах.

True

If <логическое выражение> Then<оператор>;

False

True

If <логическое выражение> Then <оператор 1> Else <оператор 2>;

False

Пример

if X>0 then Y:=sin(X) ; sinX,при X>0

if X<=0 then Y:=cos(X); Y= cosX, при X<=0

или

if X>0 then Y:=sin(X) else Y:=cos(X);

Пример

if X mod 2=0 then {подсчет количества четных чисел}

begin Kol:=Kol+1; writeln(‘Четное’) end {составной оператор}

else writeln(‘Нечетное’);

• Оператор выбора Case

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

<список константных значений 1 > : <оператор 1>;

<список константных значений 2 > : <оператор 2>;

. . .

{ else <оператор 0> }

end;

Выражение относится к ординальному типу (т.е. любому простому кроме

Real).

Список константных значений содержит перечисленные через запятую различные константы, совместимые с типом выражения.

Выполнение оператора заключается в следующем:

• вычисляется значение выражения,

• если полученное значение указано в каком-либо списке констант - выполняется соответствующий оператор 1,2,...,

• если полученное значение не указано ни в одном списке констант - выполняется оператор 0.

{ } необязательная часть оператора.

Пример

Case CHISof