STRUKTUR ORGANISASI DATA 2

Program ' Case of '

uses crt;

var

pilihan : byte;

begin

clrscr;

writeln(' Menu Makanan ');

writeln(' 1. Makanan pagi');

writeln(' 2. Makanan siang');

writeln(' 3. Makanan malam');

writeln(' 4. Selesai');

write(' masukan nomor menu piliahan anda [ 1-4 ] : ');

readln(pilihan);

writeln;

case pilihan of

1: begin

writeln(' roti coklat lapis keju '); writeln(' buah apel '); writeln(' susu ');

end;

2: begin

writeln(' nasi putih '); writeln(' ayam bakar/goreng '); writeln(' sayur bayam '); writeln(' es jeruk ');

end;

3: begin

writeln(' nasi goreng seafood '); writeln(' buah jeruk '); writeln(' es teh manis/teh manis hangat ');

end;

readln;

end.