PRED

Jika succ adalah perintah untuk mencari pengikut, maka pred adalah perintah untuk mencari pendahulu (predecessor atau argumen sebelumnya) dari sebuah angka atau argumen. Pendahulu 1 adalah 0 pendahulu 100 adalah 99 dan seterusnya...

Contoh

Uses crt;

Var angka :integer;

Begin

Clrscr;

Repeat

Write(‘Ketikan Suatu Angka: ‘); readln(angka);

If angka =0 then exit;

Writeln;

Writeln(‘Pendahulu angka ‘,angka,’adalah: ‘,pred(angka));

Writeln;

Until false;

End.

Kembali ke Contoh Program Turbo Pacal