Program membaca karakter pada keybord komputer

program tgs_lab_nmr3;

uses crt;

label firman93;

var n:char;

begin

clrscr;

firman93:

write('Masukkan karakter= ');readln(n);

if (n>='a') and (n<='z') then

writeln('karakter yang anda masukkan berupa huruf kecil')

else if (n>='A') and (n<='Z') then

writeln('karakter yang anda masukkan berupa huruf kapital')

else if (n='!') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else if (n='@') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else if (n='#') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else if (n='$') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else if (n='%') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else if (n='^') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else if (n='&') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else if (n='*') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else if (n='(') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else if (n=')') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else if (n='-') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else if (n='_') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else if (n='+') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else if (n='=') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else if (n='1') then

writeln('karakter yang anda masukkan berupa karakter angka')

else if (n='2') then

writeln('karakter yang anda masukkan berupa karakter angka')

else if (n='3') then

writeln('karakter yang anda masukkan berupa karakter angka')

else if (n='4') then

writeln('karakter yang anda masukkan berupa karakter angka')

else if (n='5') then

writeln('karakter yang anda masukkan berupa karakter angka')

else if (n='6') then

writeln('karakter yang anda masukkan berupa karakter angka')

else if (n='7') then

writeln('karakter yang anda masukkan berupa karakter angka')

else if (n='8') then

writeln('karakter yang anda masukkan berupa karakter angka')

else if (n='9') then

writeln('karakter yang anda masukkan berupa karakter angka')

else if (n='0') then

writeln('karakter yang anda masukkan berupa karakter angka')

else if (n='{') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else if (n='[') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else if (n=']') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else if (n='}') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else if (n='\') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else if (n='|') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else if (n=':') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else if (n=';') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else if (n='<') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else if (n='>') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else if (n=',') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else if (n='?') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else if (n='/') then

writeln('karakter yang anda masukkan berupa karakter istimewa')

else

writeln('Silahkan masukkan pilih tombol karakter yang ada keybord anda');

goto firman93;

readln;

end.

 

layout

Share On