TRUNC

Menghilangkandesimal dari suatu bilangan real.

Contoh:

Uses crt;

Var angka:real;

Begin

Clrscr;

Repeat

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

If angka=0 then exit;

Writeln;

Writeln(‘Trunc  ‘,angka,’ adalah: ‘,trunc(angka));

Writeln;

Until false;

End.

Kembali ke Contoh Program Turbo Pacal