Belajar bahasa pascal : Syntax Pascal Membuat Program Kasir Sederhana – Sebenarnya membuat program itu mudah jika kita tahu ilmunya. Membuat sebuah program sebenarnya tidak serumit apa yang dibayangkan, jika sudah tahu dasar-dasarnya maka sangat mudah untuk membuat program.
Pada kesempatan kali ini kita akan belajar membuat syntax pascal dengan baik dan benar. Dan dijamin hasil outputnya benar-benar bekerja dengan semestinya. Sudah saya buktikan sendiri di aplikasi Turbo Pascal dan terbukti program ini berjalan sesuai perintah dalam syntax. Intinya WORK 100%.
Saat ini kita fokuskan untuk membuat program kasir yang mampu menghitung biaya total, uang yang dibayarkan dan jumlah kembalian. Adapun program sederhananya untuk mempermudah pembelajaran bagi yang benar-benar awam dengan bahasa pascal ini.
Daripada bingung terus menerus, berikut adalah contoh dari pembuatan syntax pascalnya...
Membuat Program Penghitung Total Biaya
Soal : Buatlah program kasir untuk menghitung total biaya dari jumlah pembelian makanan dan minuman dengan menggunakan syntax pascal . Serta tentukan harga dari masing-masing menu sesuai keinginanmu !
Jawab :
program Menu_Warung;
uses wincrt;
var soto,teh,a,b : longint;
begin
soto:=5000;
teh:=1500;
write('Beli Soto berapa : ');
read(a);
write('Beli Teh berapa : ');
read(b);
writeln('Anda membeli sejumlah : ',(soto*a)+(teh*b));
end.
Untuk fitur-fiturnya jika sudah jadi, kita dapat memasukkan banyaknya makanan dan minuman yang dibeli. Lalu jika kita tekan enter maka akan tertampil jumlah biaya yang harus dibayar.
Membuat Program Kasir Sederhana
Soal : Buatlah syntax pascal program kasir untuk menghitung total biaya, jumlah uang yang dibayarkan dan jumlah kembalian. Serta tentukan harga dari masing-masing menu sesuai keinginanmu !
Jawab :
program menu_warung ;
uses wincrt ;
var Pizza_Small,Hamburger,Hot_Dog,Ice_Cola,Lemon_Tea,Mineral_Water, a,b,c,d,e,f,bayar,jumlah:longint;
begin
Pizza_Small := 59900 ;
Hamburger := 14900 ;
Hot_Dog := 19900 ;
Ice_Cola := 7900 ;
Lemon_Tea := 4900 ;
Mineral_Water := 3900 ;
writeln('=============================================================');
writeln(' FOOD COURT ');
writeln('=============================================================');
writeln('Menu : ');
writeln('1. Pizza Small Rp 59900');
writeln('2. Hamburger Rp 14900');
writeln('3. Hot Dog Rp 19900');
writeln('4. Ice Cola Rp 7900');
writeln('5. Lemon Tea Rp 4900');
writeln('6. Mineral Water Rp 3900');
writeln('=============================================================');
writeln('Jumlah Pembelian : ');
write('Pizza Small : ');
read(a);
write('Hamburger : ');
read(b);
write('Hot Dog : ');
read(c);
write('Ice Cola : ');
read(d);
write('Lemon Tea : ');
read(e);
write('Mineral Water : ');
read(f);
jumlah:= (Pizza_Small*a)+(Hamburger*b)+(Hot_Dog*c)+(Ice_Cola*d)+(Lemon_Tea*e)+(Mineral_Water*f);
writeln('total pembelian sejumlah :Rp ',jumlah);
write('Anda membayar sejumlah :Rp ');
read(bayar);
writeln('Anda menerima kembalian : Rp ',bayar-jumlah);
writeln('=============================================================');
writeln(' --Terima Kasih, Selamat Menikmati, Anda puas kami selamat-- ');
end.
Untuk hasil outputnya kita akan memperoleh sebuah program dimana terpampang harga dari masing-masing menu. Kemudian menu yang tekah dibeli akan dijumlahkan hingga menghasilkan total biaya yang harus dibayar.
Selanjutnya program kasir akan meminta uang pembayaran dari pembeli. Jika terdapat kembalian, maka akan tertampil jumlah kembalian yang didapat.
Baca juga : Contoh Syntax Case Of
Baca juga : Contoh Syntax Case Of
Kesimpulan...
Inti dari semua syntax di atas adalah perkalian disertai penjumlahan antar variabel yang bersangkutan sehingga dihasilkan output yang mengindikasikan total biaya, jumlah uang pembayaran dan kembalian.
Sebenarnya sangat mudah untuk membuat syntax seperti ini, hanya saja perlu ketelitian agar tidak terjadi kesalahan. Sekian, terimakasih.
Bingung ? Silahkan tanya di komentar :)