Contoh program pascal - PROGRAM PULSA (GRATIS)

Contoh program pascal - PROGRAM PULSA (GRATIS)

program pascal perhitungan pulsa

uses wincrt;
var nama:string;
pa,pb,pc,pd,pe,pf,pg,ph:integer;
hpa,hpb,hpc,hpd,hpe,hpf,hpg,hph:integer;
j:integer;
jumlah_bayar:integer;
x:char;
begin;
repeat
clrscr;
writeln('===============================SELAMAT DATANG===================================');
writeln('program hitung pulsa www.dunianaeta.com');
writeln('================================================================================');
writeln('>HARGA PAKET STANDAR<                  |            >Paket manual<');
writeln('Paket    5 =  6.500                    |                           ');
writeln('Paket   10 = 11.500                    |                                    ');
writeln('Paket   15 = 16.500                    |   *Harga Paket Anda Yang Menentukan');
writeln('Paket   20 = 21.500                    |                                    ');
writeln('Paket   25 = 26.500                    |                                    ');
writeln('Paket   30 = 31.500                    |                                    ');
writeln('Paket   50 = 52.000                    |                                    ');
writeln('Paket   100= 100200                    |                                    ');
writeln('================================================================================');
write('1. Paket Standar 2. Paket Manual ==>');readln(j);

case (j) of
1: begin
clrscr;
writeln('MASUKAN JUMLAH PAKET');

writeln('*bila tidak membeli paket tertentu,isi dengan nol(0)==>contoh jumlah paket 10:0');
writeln('================================================================================');
   write(' >jumlah paket 5   :');readln(pa);
   write(' >jumlah paket 10  :');readln(pb);
   write(' >jumlah paket 15  :');readln(pc);
   write(' >jumlah paket 20  :');readln(pd);
   write(' >jumlah paket 25  :');readln(pe);
   write(' >jumlah paket 30  :');readln(pf);
   write(' >jumlah paket 50  :');readln(pg);
   write(' >jumlah paket 100 :');readln(ph);
   writeln('========================================');
   jumlah_bayar:=(pa*65)+(pb*115)+(pc*165)+(pd*215)+(pe*265)+(pf*315)+(pg*520)+(ph*1002);
   writeln('TOTAL :Rp.',jumlah_bayar,'00');
end;
2: begin
clrscr;
writeln('>isi yang tidak perlu dengan angka 0');
writeln('*Cukup masukan angka singkat, misal 6500 ==>65 |25000==>250|100000 ==>1000');
writeln('Tekan Enter Untuk Memulai');readln;
writeln('===============================================================================');
   write('>masukan harga paket 5   :');readln(hpa);write('banyaknya:');readln(pa);
   write('>masukan harga paket 10  :');readln(hpb);write('banyaknya:');readln(pb);
   write('>masukan harga paket 15  :');readln(hpc);write('banyaknya:');readln(pc);
   write('>masukan harga paket 20  :');readln(hpd);write('banyaknya:');readln(pd);
   write('>masukan harga paket 25  :');readln(hpe);write('banyaknya:');readln(pe);
   write('>masukan harga paket 30  :');readln(hpf);write('banyaknya:');readln(pf);
   write('>masukan harga paket 50  :');readln(hpg);write('banyaknya:');readln(pg);
   write('>masukan harga paket 100 :');readln(hph);write('banyaknya:');readln(ph);
   writeln('=======================================');
   jumlah_bayar:=(hpa*pa)+(hpb*pb)+(hpc*pc)+(hpd*pd)+(hpe*pe)+(hpf*pf)+(hph*pg)+(hph*ph);
   writeln('TOTAL:Rp.',jumlah_bayar,'00');
end;
end;
write('apakah anda ingin menghitung lagi?[Y/T]');readln(x);
until upcase (x)<>'Y';
if x='t' then
begin
writeln ('silakan klik exit (X)');
end;
end.