27 Januari 2011

Penggunaan Fungsi ORD pada Pascal

Berikut ini adalah contoh penggunaan fungsi ORD pada pascal :

Program UrutanHuruf;
uses wincrt;
var
x : char;
begin
     readln(x);
        if (ord(x)>=65) and (ord(x)<97)then
     begin
        writeln ( '====================== ') ;
        writeln ( 'Huruf Kapital');
        write ( 'Huruf Ke ',ord(x)-64) ;  
        writeln ( ' Dalam Abjad');
        write ( '======================' ) ;
     end
     else
     begin
        writeln ( '======================' ) ;
        writeln ( 'Huruf Non Kapital');
        write ( 'Huruf Ke ',ord(x)-96 ) ;
        writeln ( ' Dalam Abjad');         
        writeln ( '======================' ) ;
     end;
end.


hasilnya :

A
===============
Huruf Kapital
Huruf Ke 1 Dalam Abjad
=============== 

a
===============
Huruf Non Kapital
Huruf Ke 1 Dalam Abjad
===============

 



 

Share on Facebook
Share on Twitter
Share on Google+

Related : Penggunaan Fungsi ORD pada Pascal

0 Komentar:

Posting Komentar

Terimakasih telah meninggalkan Komentar di Didit Blog | Silahkan berkomentar dengan bebas, tidak mengandung SARA | komentar dengan link HIDUP akan dihapus | Terimakasih ^_^