Pred
Adam Boduch
Pred
Moduł: System
program Foo;
{$APPTYPE CONSOLE}
var
X : Integer;
begin
X := 10;
Writeln('Wartość: ', Pred(X));
end.
Gdybyśmy chcieli zastąpić funkcję Pred
, procedurą Dec
, kod musiałby wyglądać tak:
program Foo;
{$APPTYPE CONSOLE}
var
X : Integer;
begin
X := 10;
Dec(X);
Writeln('Wartość: ', X);
end.
Należy pamiętać jednak, że w odróżnieniu od procedury Dec
, funkcja Pred
nie zmienia wartości parametru X.
Zobacz też: