Ord adalah perintah untuk mencari letak suatu argumen atau
mencari nomor ASCII dari suatu argumen.
Contoh:
Uses crt;
Type
Hari=(Senin,Selasa,Rabu,Kamis,Jumat,Sabtu,Minggu);
Begin
Crlrscr;
Writeln(‘Ord(senin)= ‘,ord(senin));
Writeln(‘Ord(Selasa)= ‘,ord(Selasa));
Writeln(‘Ord(Rabu)= ‘,ord(rabu));
Writeln(‘Ord(Minggu)= ‘,ord(minggu));
Writeln;
Writeln(‘Kode ASCI a kecil adalah= ‘,ord(‘a’));
Writeln(‘Kode ASCI A besar
adalah= ‘,ord(‘A’));
Readln;
End.
Kembali ke Contoh
Program Turbo Pacal
No comments:
Post a Comment