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.

One Response to Pascal :: Contoh Penggunaan Statemen Case Of

  1. … [Trackback]

    […] Read More here|Read More|Read More Infos here|There you can find 63653 additional Infos|Informations on that Topic: blog.loksado.com/pascal-contoh-penggunaan-statemen-case-of […]

Mari berdiskusi dengan santun...