Comment

 

Thursday, November 8, 2018

Contoh Program Pascal (Program Perhitungan Pembayaran Minuman) - Pemrograman Dasar

0 comments
Program Pascal
(Program Perhitungan Pembayaran Minuman Botol SoftDrink) 
 

Assalamualaikum wr.wb.
Disini saya ingin memberikan contoh program Perhitungan Pembayaran Minuman Botol SoftDrink, Sama seperti Program Perhitungan Buah hanya saja coding nya diedit sedikit, hehe.
Berikut adalah coding nya :

 program perhitunganpembayaranminuman_rizky;
uses crt;
var
        fanta, sprite, pepsi, harga, pilihan: longint;
        ulang: string;
label
buliki;

begin
textbackground (15);
textcolor (0);

buliki:
clrscr;
        writeln('           ======================================================');
        writeln('           Program Perhitungan Pembayaran Minuman Botol Softdrink');
        writeln('           ======================================================');
        writeln;
        writeln('Pilih Minuman: ');
        writeln('==============> 1.Fanta ');
        writeln('                                   2.Sprite ');
        writeln('                                   3.Pepsi ');
        writeln;
        write('Masukkan Angka Minuman Pilihan Anda = ');readln(pilihan);
        writeln;

if pilihan = 1 then
begin
writeln;
writeln('   ============================= ');
writeln('             Fanta ');
writeln('   ============================= ');
writeln;
writeln('Harga Fanta per botol adalah Rp.4000');
write('Berapa botol yang ingin anda beli = '); readln(fanta);
harga := 4000 * fanta;
writeln('Total Harga = Rp.',harga);
writeln;
readln;
end
else

if pilihan = 2 then
begin
writeln;
writeln('   ============================');
writeln('              Sprite');
writeln('   ============================');
writeln;
writeln('Harga Sprite per botol adalah Rp.7000');
write('Berapa botol yang ingin anda beli = '); readln(sprite);
harga := 7000 * sprite;
writeln('Total Harga = Rp.',harga);
writeln;
readln;
end
else

if pilihan = 3 then
begin
writeln;
writeln('   ===========================');
writeln('              Pepsi');
writeln('   ===========================');
writeln;
writeln('Harga Pepsi per botol adalah Rp.10000');
write('Berapa botol yang ingin anda beli = '); readln(pepsi);
harga := 10000 * pepsi;
writeln('Total Harga = Rp.',harga);
writeln;
readln;
end


else
                writeln;
                writeln('         ===============================================================');
                writeln('         TERIMAKASIH SUDAH MENGGUNAKAN APLIKASI PEMBAYARAN MINUMAN RIZKY');
                writeln('         ===============================================================');
                writeln;


        write ('Apakah anda ingin mengulang nya lagi?, Tekan y (IYA) / t (TIDAK) = ');
        readln(ulang);
        if ulang='y' then
                begin
                goto buliki
                end

end.



Berikut adalah Hasil akhir dari Program Coding Diatas



Oke sekian artikel dari saya, Semoga Bermanfaat :)
Terima kasih telah berkunjung...

0 comments:

Post a Comment

 
Rizky Wara | Blog © 2017 .