Bentuk umum :
CASE ungkapan OF
Daftar case label1 : statemen1 ;
Daftar case label2 : statemen2 ;
Daftar case label3 : statemen3 ;
…
…
…
Daftar case label n : statemen n ;
END ;
contoh program
program prog_menu;
uses wincrt;
var
menu : integer;
begin
writeln ('masukkan pilhan 1.satu 2.dua 3.tiga data 4.empat');
readln (menu);
case menu of
1: begin write('satu'); end;
2: begin write('dua'); end;
3: begin write('tiga'); end;
4: begin write('empat'); end;
end;
end.
uses wincrt;
var
menu : integer;
begin
writeln ('masukkan pilhan 1.satu 2.dua 3.tiga data 4.empat');
readln (menu);
case menu of
1: begin write('satu'); end;
2: begin write('dua'); end;
3: begin write('tiga'); end;
4: begin write('empat'); end;
end;
end.
ok sekian dulu ya klo ada salah dalamm penulisan script mohon maaf ya.... makasih
www.makelarsapi.blogspot.com
Responses
0 Respones to "Case....Of"
Posting Komentar
kritik, komentar, dan saran anda akan membangun blog ini menjadi lebih baik