ROUND

Membulatkan angka real menjadi integer, 2.4 menjadi 2 dan 2.5 menjadi 3.

Contoh:

Uses crt;

Var angka:real;

Begin

Clrscr;

Repeat

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

If angka =0 then exit;

Writeln;

Writeln(‘Round ‘,angka,’adalah ‘,round(angka));

Writeln;

Until false

End.

Kembali ke Contoh Program Turbo Pacal