Program Menu dengan Pascal

Hai lagi semuanya ^_^ ...
Saya mau berbagi lagi nih mengenai program menu pada bahasa pemograman pascal. Langsung liat source code nya ya :)


Source Code :


program hargasusu;
uses crt;

label
balik;

var
pilihan : integer;
harga, kembali, bayar : longint;
ukuran, y : string;

function hrg(x:integer):integer;
begin
case x of
1 : begin
        write('Ukuran B/S/K : ');
        readln(ukuran);
        if ukuran = 'B' then harga := 10000;
        if ukuran = 'S' then harga := 4250;
        if ukuran = 'K' then harga := 2100;
    end;
2 : begin
        write('Ukuran B/S/K : ');
        readln(ukuran);
        if ukuran = 'B' then harga := 8500;
        if ukuran = 'S' then harga := 4000;
        if ukuran = 'K' then harga := 2025;
    end;
3 : begin
        write('Ukuran B/S/K : ');
        readln(ukuran);
        if ukuran = 'B' then harga := 7750;
        if ukuran = 'S' then harga := 3750;
        if ukuran = 'K' then harga := 2200;
    end;
4 : begin
        write('Ukuran B/S/K : ');
        readln(ukuran);
        if ukuran = 'B' then harga := 9600;
        if ukuran = 'S' then harga := 5100;
        if ukuran = 'K' then harga := 2600;
    end;
5 : begin
        write('Ukuran B/S/K : ');
        readln(ukuran);
        if ukuran = 'B' then harga := 17000;
        if ukuran = 'S' then harga := 14500;
        if ukuran = 'K' then harga := 8300;
    end;
6 : begin
        write('Ukuran B/S/K : ');
        readln(ukuran);
        if ukuran = 'B' then harga := 11250;
        if ukuran = 'S' then harga := 6500;
        if ukuran = 'K' then harga := 3250;
    end;
7 : begin
        write('Ukuran B/S/K : ');
        readln(ukuran);
        if ukuran = 'B' then harga := 10500;
        if ukuran = 'S' then harga := 7500;
        if ukuran = 'K' then harga := 4500;
    end;
end;
end;


begin
        balik:
clrscr;
writeln('HARGA SUSU');
writeln('==========');
writeln;
writeln('Merk Susu : ');
writeln;
writeln('1. Dancow');
writeln('2. Indomilk');
writeln('3. Milo');
writeln('4. Suprima');
writeln('5. Sustagen');
writeln('6. Ovaltine');
writeln('7. Dutch Lady');
GoToXY(1,15); write('Pilih nomor susu (1-7) : ');
readln(pilihan);

hrg(pilihan);
writeln('Harga : ', harga);
write('Bayar : '); readln(bayar);
kembali := bayar-harga;
writeln('Kembali : ', kembali);

GoToXY(1,22); write('Transaksi lain (Y/T): ');
readln(y);

if y = 'Y' then Goto balik;
end.
Output Program :