loading...

Pascal :: Contoh Penggunaan Statemen Case Of

Script Pascal berikut akan menampilkan 3 pilihan, masing-masing sebagai berikut :

Jika angka = 1, maka yang karakter akan tampil “satu”.
Jika angka = 2, maka yang karakter akan tampil “dua”.
Jika angka = 3, maka yang karakter akan tampil “tiga”.
Selain daripada itu akan menampilkan “Pilihan Salah!”

Program Angka;
uses wincrt;
var
a:integer;
begin
write('Angka (1-3) = ');readln(a);
writeln;
case a of
1:write('Satu');
2:write('Dua');
3:write('Tiga');
else
write('Pilihan Salah!');
end;
end.

Mari berdiskusi dengan santun...