Процедура Dec

 

Procedure Dec(Ch: Char [; N: LongInt] );

Работает аналогично Inc, только в сторону уменьшения - уменьшает значение символа Ch на N. Используется в двух формах:

1. Усеченная форма – параметр N отсутствует. В этом случае аргумент уменьшается на 1.

Пример:

C:=‘2’; {c=’2’}

Dec(C); {c=’1’}

Dec(C); {c=’0’}

Dec(C); {c=’/’}

Dec(C); {c=’.’}

2. Полная форма – параметр N присутствует. В этом случае аргумент уменьшается на N.

Пример:

C:=‘7’; {c=’7’}

Dec(C, 7); {c=’0’}

Dec(C, 5); {c=’+’}

Dec(C, 5); {c=’&’}