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

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

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

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

Пример:

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

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

Goto <метка>;

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

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

Пример:

Примечание:Безусловные переходы в программе могут обеспечиваться также с помощью процедур Exit и Halt . Выполнение процедуры Exit заключается в безусловном выходе из текущей подпрограммы (процедуры или функции), а в основной программе в ее завершении. Выполнение процедуры Halt безусловно прекращает выполнение программы.

Пример:

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

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

Пример:

Пример:

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

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

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

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

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

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

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

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

end ;