Program sangat sangat sederhana Pascal (Menu Harga) :D

Sekedar share aja untuk yang baru belajar Pascal [ like me :') ] . Maap-maap kalo ada yang salah

Listing Program

uses crt;

label

10;

var

hasil,harga,diskon : Real;

pilih : byte;

begin

10:

clrscr;

writeln ('           DAFTAR HARGA         ')    ;

writeln (' 1. Harga Mahasiswa             ')     ;

writeln (' 2. Harga Dosen                 ')   ;

writeln (' 3. Harga Umum                  ')  ;

writeln (' 4. Selesai                     ') ;

write (' Pilih nomor (1-4) : '); Readln(pilih);

case pilih of

1 : Begin

    write  ('harga normal    = '); Readln(harga);

    diskon := harga * 0.2;

    writeln('diskon          = ', diskon:5:2);

    hasil := harga - diskon;

    writeln('harga Mahasiswa = ', hasil:5:2);

    End;

2 : Begin

    write ('harga normal     = ');Readln (harga);

    diskon := harga * 0.1;

    writeln ('diskon         = ' , diskon:5:2);

    hasil := harga - diskon;

    writeln ('harga Dosen    = ', hasil:5:2);

    End;

3 : Begin

    write ('harga normal     = ');Readln (harga);

    diskon := harga * 0.1;

    writeln ('Pajak          = ' , diskon:10:2);

    hasil := harga + diskon;

    writeln ('harga Umum     = ', hasil:10:2);

    End;

4 : writeln ('Terimakasih telah menggunakan program ini ');

else

goto 10;

End;

readln;

End.

Output Yang dihasilkan :

Output untuk pilihannya (1-4), silahkan dicoba sendiri :D