Case Of dan While Do dalam Pascal

1. Struktur Case – Of mempunyai suatu ungkapan logika yang disebut dengan selector dan sejumlah statemen yang diawali dengan suatu label permasalahan (case label) yang mempunyai tipe sama dengan
selector.
Statement yang mempunyai case label yang bernilai sama dengan case label yang bernilai sama dengan nilai selector akan diproses sedang statemen yang lainya tidak.

Bentuk struktur dari Case – Of:

Case Variabel Kondisi Of
Case – Label 1; Statement 1;
Case – Label 2; Statement 2;
Case – Label 3; Statement 3;
Case – Label 4; Statement 4;
……..
……..
Case – Label n ; Statement n ;
End ; { end dari case }

Daftar Case label dapat berupa konstanta, range dari konstanta yang bukan bertipe real.

2. Perulangan While – Do tersarang (nested While – Do) merupakan perulangan While – Do yang satu di dalam perulangan While – Do yang lainnya.
Contoh :

program contoh;
uses Crt;
var
     a, b : Integer;
Begin
clrscr;
a:=1;
b:=1;
While a < 4 Do{ loop selama a masih lebih kecil dari 4 }
Begin
a := a+1;
While b 25; { berhenti jika b lebih besar dari 5 untuk perulangan dalam }
a:=a+1;
Until a>3; { berhenti jika a lebih besar dari 3 untuk perulangan luar }
Writeln(‘ =======================================’);
End.

 Berikut Contoh Source Code Case Of yang didalamnya terdapat While Do

program Swalayan;
uses crt;
var
   nama :string;
   no, jml, harga :integer;
   disc, pajak, total :real;
   Next :char;
begin
clrscr;

       writeln('<<< DAFTAR BELANJA >>>');
       writeln('======================');
    Next :='Y';
    while Next='Y' do
    begin
       write  ('Input Nomor Program = '); readln(no);
    case no of

1:begin
       write  ('Input Nama Barang = ');     readln(nama);
       write  ('Input Jumlah Barang = ');   readln(jml);
       write  ('Input Harga Satuan Rp.= '); readln(harga);

                total:=jml*harga;
       writeln('Total Harga Rp.= ',total:0:2);
  end;

2:begin
       write  ('Input Nama Barang = ');     readln(nama);
       write  ('Input Harga Barang Rp.= '); readln(harga);
                 if harga>= 100000 then
       begin
                 disc:=80/100*harga;
                 total:=harga-disc;
       writeln('Harga Barang Setelah Diskon Rp.= ',total:0:2);
       end
            else
            if harga<100000 then
       begin
                 disc:=10/100*harga;
                 total:=harga-disc;
       end;
       writeln('Harga Barang Setela Diskon Rp.= ',total:0:2);
       end;
3:begin
       write  ('Input Nama Barang = ');     readln(nama);
       write  ('Input Harga Barang Rp.= '); readln(harga);
                  pajak:=harga-pajak;
       writeln('Harga Barang Setelah Kena Pajak Rp.= ',total:0:2);
       end;

4:writeln('>>> Terima Kasih Atas Kunjungan Anda <<<');
end;
write  (' Tekan Y Untuk Melanjutkan Perhitungan= '); readln(Next);
end;
readln;
end.

Related Post

Kolom Komentar