UPCASE

Untuk mengubah karaker huruf kecil kedalam huruf besar.

Contoh:

Uses crt;

Var kar:char;

Begin

Clrscr;

Repeat

Write(‘Tekan tombol [‘a..z Enter=Keluar]:’);

Kar:=readkey;

If kar=chr(13) then exit;

Writeln;writeln;

Writeln(‘Anda Telah Menekan Karakter:  ‘,kar);

Writeln(‘Huruf besar dari karakter  ‘,kar,’ adalah ‘,upase(kar));

Writeln;

Until false;

End.

Kembali ke Contoh Program Turbo Pacal