contoh skrip delphi 7 daftar pesanan menu
program tugasakhir;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
paket,paket2,paket3,paket4,total:integer;
bonus,bonus2,bonus3,bonus4:string;
harga,harga2,harga3,harga4:integer;
begin
Writeln('---->Selamat Datang Di Trisha Resto<---- data-blogger-escaped-br="">
Writeln(' Menu');
Writeln('1. Nasi+Ayam Goreng+Teh Botol Harga:Rp. 14.000,00');
Writeln('2. Nasi+Ayam Bakar+Teh Botol Harga:Rp. 15.000,00');
Writeln('3. Mi Goreng+sosis+Teh Botol Harga:Rp. 12.000,00');
Writeln('4. Mi Goreng+Teh Botol Harga:Rp. 10.000,00');
Write('masukan pesanan pertama anda ? ');readln(paket);
case paket of
1 : bonus := 'I-pad';
2 : bonus := 'leptop';
3 : bonus := 'blackberyy';
4 : bonus := 'nokia';
else bonus := '';
end;
case paket of
1 : harga := 14000;
2 : harga := 15000;
3 : harga := 12000;
4 : harga := 10000;
else harga := 0;
end;
Write('masukan pesanan kedua anda ? ');readln(paket2);
case paket2 of
1 : bonus2 := 'I-pad';
2 : bonus2 := 'leptop';
3 : bonus2 := 'blackberyy';
4 : bonus2 := 'nokia';
else bonus2 := '';
end;
case paket2 of
1 : harga2 := 14000;
2 : harga2 := 15000;
3 : harga2 := 12000;
4 : harga2 := 10000;
else harga2 := 0;
end;
Write('masukan pesanan ketiga anda ? ');readln(paket3);
case paket3 of
1 : bonus3 := 'I-pad';
2 : bonus3 := 'leptop';
3 : bonus3 := 'blackberyy';
4 : bonus3 := 'nokia';
else bonus3 := '';
end;
case paket3 of
1 : harga3 := 14000;
2 : harga3 := 15000;
3 : harga3 := 12000;
4 : harga3 := 10000;
else harga3 := 0;
end;
Write('masukan pesanan keempat anda ? ');readln(paket4);
case paket4 of
1 : bonus4 := 'I-pad';
2 : bonus4 := 'leptop';
3 : bonus4 := 'blackberyy';
4 : bonus4 := 'nokia';
else bonus4 := '';
end;
case paket4 of
1 : harga4 := 14000;
2 : harga4 := 15000;
3 : harga4 := 12000;
4 : harga4 := 10000;
else Harga4 := 0;
end;
Total := harga+harga2+harga3+harga4;
writeln;
writeln;
writeln;
writeln('harga yang harus anda bayar !',total);
writeln('bonus yang anda dapat !',bonus,',',bonus2,',',bonus3,',',bonus4);
readln;
end.