FUNGSI UPCASE

Fungsi Upcase ini digunakan untuk menampilkan huruf besar dari suatu karakter,fungsinya adalah sebagai berikut:

{Nama Program: UPCASE.PAS}
Uses wincrt;
Var Kar:Char;
Begin
ClrScr;
REPEAT
Write('Tekan tombol[a..z, Enter=Keluar]:');
Kar:=ReadKey;
If Kar=Chr(13)Then Exit; {Penekanan Enter}
Writeln;Writeln;
Writeln('Anda telah menekan karakter: ',Kar);
Writeln('Huruf besar(UpCase)',Kar,' adalah ',UpCase(Kar));
Writeln;
UNTIL False
End.