Die Prozedur DEC verringert den Wert der (in der Klammer angegebenen) Variable um eins. Das ist gleichbedeutend mit dem arithmetischen Ausdruck:
Variable := Variable - 1;
Wird mit dieser Operation der Wertebereich der Variablen unterschritten, entspricht das Ergebnis dem letzten Wert des Wertebereiches.
Beispiel: Variable hat den Typ Byte und den Wert 0, dann ist das Ergebnis von DEC(Variable) gleich 255.
DEC ( < Variable vom Typ Byte, Char, Word oder DWord > ) ;
< Name der Variable >
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
PROGRAM UNO_DEC;
DEVICE = mega328p;
{$I
mega328P_Register.INC}
CONST
b1 : Byte = 214;
VAR
b2 : Byte;
BEGIN
b2:=b1;
DEC(b2);
END UNO_DEC.
|
In Zeile 19 wird der Byte-Variablen b2 der Inhalt der Konstante b1 mit dem Wert 214 zugewiesen.
Nach der DEC Procedur in Zeile 21 ist der Wert der Variablen b2 gleich 213.