Membuat Program Select Case Pada Pascal

untuk kali ini saya membahas tentang perintah select case pada pascal. Sebenarnya select case tidak berbeda jauh dengan perintah if.
oke deh langsung saja ke programnya biar lebih jelas.

uses crt;
var
b,c:string;
a,d,f,h,i:integer;
g,j:real;
begin
clrscr;
write('---Menu---');
writeln('');
writeln('1. Biodata');
writeln('2. Hobi');
writeln('3. Luas');
write('masukan plihan : ');readln(a);
case a of

1: begin
clrscr;
writeln('Masukan biodata anda');
writeln('');
write('Nama : ');readln(b);
write('Npm : ');readln(c);
writeln('Nama anda ',b);
writeln('NPM anda ',c);
end;
2:begin
clrscr;
writeln('Hobi');
writeln;
writeln('1. Sepak bola');
writeln('2. Basket');
write('pilih = ');readln(d);
if f =1 then
writeln('sepak bola')
else
writeln('basket');
end;
3: begin
clrscr;
writeln('Mari berhitung Luas');
writeln('');
writeln('Persegi');
write('masukan sisi : ');readln(f);
g:= f * f;
write('luas Persegi adalah ', g:0:1);
writeln('');
writeln('');
writeln('Segitiga');
write('masukan Alas : ');readln(h);
write('masukan tinggi : ');readln(i);
j:= h * i / 2;
write('Luas segitiga adalah ', j:0:1);
end;
end;
readln;
end.


copy tulisan di atas pada pascal, mungkin anda akan lebih mengerti dari pada teori.
selamat belajar ^^
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati