karena lagi-lagi semangatnya "ngutak atik" PASCAL , ini ada lagi cara mengkomentari huruf abjad dan menentukan urutannya. tanpa basa basi lagi ini scripnya
Program ini menggunakan 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.
jika di RUN hasilnya adalah sebagai berikut :
hasilnya :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.
jika di RUN hasilnya adalah sebagai berikut :
A
===============
Huruf Kapital
Huruf Ke 1 Dalam Abjad
===============
a
===============
Huruf Non Kapital
Huruf Ke 1 Dalam Abjad
===============
catatan :
tanda " =========== " hanya sebagai hiasan saja tanpa tanda itupun bisa atau mau diganti dengan tanda " ******** " atau yang lainnya. jika anda mengalami DEBUG maka coba cek kembali scrip karena kurang tanda " ; " sangat berpengaruh .
0 komentar