malem gan.. nie anne buat program bersama 3 temen anne :D
cobain dh gan.. kritik dan saran nya anne tunggu.. nie prigram di turbo pascal..eittz... tpi comment & like dlu ni program.a :) nie hasil buatan 2 lho gan,, biasalah tugas dari dosen awalnya :) okeh dh d tunggu ya kritik dan saran yg membangun.a..
program wedding ;
uses wincrt;
var a: integer;
b,y,ket,h,i,k : string;
c,d,e,f,tot,z,p : longint;
procedure mewah;
begin
writeln(' Paket Wedding Magazine');
writeln(' harga : Rp.20.000.000 ');
writeln(' pasilitas :');
writeln(' Video Shooting live');
writeln(' Camera');
writeln(' Akrilik');
writeln(' X banner');
writeln(' Gold Album');
end;
procedure sedang;
begin
writeln(' Paket Wedding Taxco');
writeln(' harga : Rp.15.000.000 ');
writeln(' pasilitas :');
writeln(' Video Shooting live');
writeln(' Camera');
writeln(' Akrilik');
writeln(' X banner');
writeln(' Silver Album');
end;
procedure sederhana;
begin
writeln(' Paket Wedding Suntour');
writeln(' harga : Rp.10.000.000 ');
writeln(' pasilitas :');
writeln(' Video Shooting not live');
writeln(' Camera');
writeln(' X banner');
writeln(' Silver Album');
end;
procedure dangdut;
begin
writeln(' Paket hiburan Dangdut Live');
writeln(' harga : Rp.5.000.000 ');
end;
procedure marawis;
begin
writeln(' Paket hiburan Marawis');
writeln(' harga : Rp.3.000.000 ');
end;
procedure electon;
begin
writeln(' Paket hiburan electon');
writeln(' harga : Rp.2.000.0000');
end;
begin
repeat
clrscr;
writeln('=======================================================================');
writeln(' ***** STUDIO PHOTO MALISHNA ***** ');
writeln('=======================================================================');
writeln;
writeln(' "Enjoy and Elegant your wedding party with MALISHNA"');
writeln;
write('Nama Pelanggan : '); readln (b);
writeln;
writeln('MALISHNA screen : ');
writeln(' 1. Paket Magazine ');
writeln(' 2. Paket Taxco');
writeln(' 3. Paket Suntour');
write('pilih no paket yang anda inginkan (1/2/3) ! '); readln (a);
begin
if a=1 then
mewah
Else if a=2 then
sedang
Else if a=3 then
sederhana
Else
write ('pilih 1,2 atau 3 !');
writeln;
end;
writeln('MALISHNA entertaiment : ');
writeln(' A. Dangdut Live ');
writeln(' B. Marawis');
writeln(' C. Electon');
write('pilih hiburan yang anda inginkan (A/B/C) ! '); readln (h);
begin
if h='A' then
dangdut
Else if h='B' then
marawis
Else if h='C' then
electon
Else
write ('pilih A,B atau C !');
writeln;
end;
write('pilih paket yang ingin anda tambahkan (A/B/C) !'); readln (i);
begin
if i='A' then
dangdut
Else if i='B' then
marawis
Else if i='C' then
electon
Else
write ('pilih A,B atau C !');
writeln;
end;
write('pilih paket yang ingin anda tambahkan (A/B/C) !'); readln (k);
begin
if k='A' then
dangdut
Else if k='B' then
marawis
Else if k='C' then
electon
Else
write ('pilih A,B atau C !');
writeln;
end;
writeln('=======================================================================');
writeln(' ***** STUDIO PHOTO MALISHNA ***** ');
writeln('=======================================================================');
writeln('Nama Pelanggan : ',b);
write('Masukan Harga Paket Wedding : '); readln (c);
write('Masukan Harga Paket Entertaint : '); readln (f);
write('Masukan Harga Paket Entertaint tambahan 1 : '); readln (z);
write('Masukan Harga Paket Entertaint tambahan 2 : '); readln (p);
tot:=c+f+z+p;
writeln('Total yang harus di bayar : ',tot);
write('Uang Pembayaran : '); readln (d);
e :=d-tot;
writeln('Uang Kembalian : ',e);
write('mau mengulangi lagi (Y/N)?');readln(y);
until(y)<>'Y';
end.
