Konversi Real Ke Integer Pascal

Maksudnya adalah, mengubah nilai real yang mempunyai koma menjadi nilai integer. Hal ini karena banyak fungsi dalam program pascal hanya dapat dihitung menggunakan angka bertipe integer saja.


uses crt;
var
    i:integer;
    r:real;

begin
   clrscr;
   r:=95/2;
   i:=trunc(r);
   writeln(i); 
   writeln(r);
   readkey;
end.