SUCC

Untuk mencari pengikut (succesor atau sesudahnya) dari suatu angka atau argumen. Contoh: pengikut dari angka 1 adalah 2, pengikut  dari angka 10 adalah 11, dan seterusnya.

Contoh:

Uses crt;

Var angka :integer;

Begin

Clrscr;

Repeat

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

If angka =0 then exit;

Writeln;

Writeln(‘Pengikut ‘,angka,’adalah: ‘,succ(angka));

Writeln;

Until false;

End.

Kembali ke Contoh Program Turbo Pacal