CASE..OF..ELSE...END

Case of else adalah perintah untuk memilih kelompok data.

Contoh:

Uses crt;

Var kar:char;

Begin

Clrscr;

Write(‘Tekan sembarang tombol’);kar:=readkey;

Writeln;

Case kar of

‘A’..’Z’,’a’..’z’:write(‘Anda telah memasukan huruf’);

‘0’..’9’:writeln(‘Anda telah memasukan angka’);

‘+’,’-‘,’*’,’/’:writeln(‘Anda telah memasukan operator’);

Else

Writeln(‘Anda telah menekan karakter khusus’);

End;

Readln;

End.

Kembali ke Contoh Program Turbo Pacal