Else
Пример
Пример
Пример
Пример
Примеры операций, допустимых над данными символьного типа.
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).
Список константных значений содержит перечисленные через запятую различные константы, совместимые с типом выражения.
Выполнение оператора заключается в следующем:
n вычисляется значение выражения,
n если полученное значение указано в каком-либо списке констант - выполняется соответствующий оператор 1,2,...,
n если полученное значение не указано ни в одном списке констант - выполняется оператор 0.
|
|
{ } необязательная часть оператора.
Пример
Case CHISof
0: Writeln (‘ Ноль ’);
1,3,5,7,9: Writeln (‘ Нечетное ’);
2,4,6,8: Writeln (‘ Четное ’)
Writeln (‘ Не цифра ’)
end;
· Операторы цикла
True
While <логическое выражение> do <оператор>;
выход