Incremento y Decremento

Incremento (Inc)

"Inc" es lo mismo que decir:

 Variable:=Variable+1;

CÓDIGO

Program Incremento; Uses Crt; Var x:Integer; Opcion:Char; Begin ClrScr; x:=0; Opcion:='s'; While Opcion='s' Do Begin Inc(x); WriteLn(x); WriteLn('Deseas otra vuelta [s/n]'); ReadLn(Opcion); End; ReadLn; End.

Decremento (Dec)

"Dec" es lo mismo que decir:

 Variable:=Variable-1;

CÓDIGO

Program Decremento; Uses Crt; Var x:Integer; Opcion:Char; Begin ClrScr; x:=1000; Opcion:='s'; While Opcion='s' Do Begin Dec(x); WriteLn(x); WriteLn('Deseas otra vuelta [s/n]'); ReadLn(Opcion); End; ReadLn; End.