Kali ini aku akan memmberikan contoh membuat program penjualan sederhana menggunakan if dengan Turbo Pascal 7.1. dulu aku membuat program ini buat tugas kuliah pemrograman terstruktur. :) ga' perlu banyak basa-basi karna emang udah basi sich.. :D let's do!! pertama tulis programnya kayak gini ya... uses crt; var napem,nb:string[15] ; hrg,jb,jh,disc,tot:real; begin clrscr; writeln; writeln('----------------------------------------'); writeln(' DATA PENJUALAN BUAH SEGAR /KG'); writeln('----------------------------------------'); writeln; write('Nama Pembeli = '); readln(napem); writeln; write('Buah Yang Dibeli = '); readln(nb); writeln('.............................'); if nb='jeruk' then hrg:=5000 else if nb='mangga' then hrg:=7000 else if nb='apel' then hrg:=9000 else if nb='duren' then hrg:=11000; begin end; writeln; write('Harga Buah =','Rp&#
Komentar