Comment

 

Thursday, November 8, 2018

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

0 comments
Program Pascal
(Program Perhitungan Pembayaran Buah) 
 

Assalamualaikum wr.wb.
Disini saya ingin memberikan contoh program Perhitungan Pembayaran Buah, Berikut adalah coding nya :


program perhitunganpembayaranbuah_rizky;
uses crt;
var
        anggur, kelengkeng, langsat, harga, pilihan: longint;
        ulang: string;
label
buliki, keluar;

begin
buliki:
clrscr;

        writeln('Program Perhitungan Pembayaran Buah');
        writeln('***********************************');
        writeln;
        writeln('Pilih Buah: ');
        writeln('==============> 1.Buah Anggur ');
        writeln('                2.Buah Kelengkeng ');
        writeln('                3.Buah Langsat ');
        writeln;
        write('Masukkan Angka Buah Pilihan Anda = ');readln(pilihan);
        writeln;

if pilihan = 1 then
begin
writeln;
writeln('   =========== ');
writeln('   Buah Anggur ');
writeln('   =========== ');
writeln;
writeln('Harga buah anggur per kilo adalah Rp.20000');
write('Berapa kilogram yang ingin anda beli = '); readln(anggur);
harga := 20000 * anggur;
writeln('Total Harga = Rp.',harga);
writeln;
end
else

if pilihan = 2 then
begin
writeln;
writeln('   ===============');
writeln('   Buah Kelengkeng');
writeln('   ===============');
writeln;
writeln('Harga buah kelengkeng per kilo adalah Rp.10000');
write('Berapa kilogram yang ingin anda beli = '); readln(kelengkeng);
harga := 10000 * kelengkeng;
writeln('Total Harga = Rp.',harga);
writeln;
end
else

if pilihan = 3 then
begin
writeln;
writeln('   ============');
writeln('   Buah Langsat');
writeln('   ============');
writeln;
writeln('Harga buah langsat per kilo adalah Rp.13000');
write('Berapa kilogram yang ingin anda beli = '); readln(langsat);
harga := 13000 * langsat;
writeln('Total Harga = Rp.',harga);
writeln;
readln;
end


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


        write ('ULANGI, Tekan y (IYA) / t (TIDAK) = ');
        readln(ulang);
        if ulang='y' then
                begin
                goto buliki
                end

end.



Berikut adalah hasil akhir (program) dari coding diatas



Sekian artikel dari saya, Semoga bermanfaat dan Terima kasih atas kunjungan anda

0 comments:

Post a Comment

 
Rizky Wara | Blog © 2017 .