Pengikut

Minggu, 06 Oktober 2013

SYNTAK PROGRAM DARI TURBO PASCAL

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.

4 komentar:

  1. ini maksudnya gmana sist ?? :D *gaptek

    BalasHapus
    Balasan
    1. he, sorry bradh baru sempet buka" lagi blog, dah lama gx interntan, itu program yang dibuat di turbo pascal bradh. ;)
      sama bradh rahmat bikin.a ;)

      Hapus
  2. Balasan
    1. iiya ka ;)
      coba ajjah,, seru kox meski agak puyeng awalnya. he

      Hapus