Perintah untuk mengabaikan angka
dibalik komma.(int(456.789)=456.
Contoh :
Uses crt;
Begin
Clrscr;
Writeln(‘Int dari 123.456 = ‘,int(123.456):0:0);
Writeln(‘Int dari -123.456 = ‘,int(-123.456):0:0);
Writeln(‘Int dari 456.789 = ‘,int(456.789):0:0);
Writeln(‘Int dari -456.789 = ‘,int(-456.789):0:0);
Readln;
End.
Contoh:
Uses crt;
Var angka:real;
Begin
Clrscr;
Writeln(‘Ketikan Angka Real: ‘);readln(angka);
Writeln(‘Int dari ‘,angka:0:3’=’int(angka):0:0);
Readln;
End.
CATATAN:
Desimal adalah angka dibalik koma:
Dikarenakan format desimal yang digunnakan tidak seperti di
indonesia menggunakan koma(,) dalam
turbo pascal format desimal menggunakan titik (.).
Kembali ke Contoh
Program Turbo Pacal
No comments:
Post a Comment