CARA MEMBUAT DAFTAR MENU MAKANAN DENGAN MENGGUNAKAN PROGRAM PASCAL

Sebelumnya terimakasih banyak telah mengunjungi blog sederhana ini, setiap kunjungan dari teman-teman akan memberikan semangat kepada saya untuk terus menulis hal-hal menarik lainnya yang tentu akan bermanfaat dan menambah wawasan baru. Pada kesempatan kali ini saya akan memberikan atau menulis artikel yang tidak kalah menarik dari sebelumnya yakni membuat daftar menu makana dengan menggunakan program pascal. Materi pascal ini saya dapatkan dibangku kuliah dengan tujuan untuk memahami logika dan algoritma. Pascal bagi sebagian orang memahami bahwa pascal adalah bahasa program yang lama dan mungkin jarang digunakan sebagian orang.

Namun tujuan dari pembelajaraan mengenai suatu program bukan terletak pada bahasa program yang digunakan tetapi bertujuan untuk memahami yang namanya logika dan algoritma. Dikampus saya sendiri menggunakan bahasa pascal pada mata kuliah logika dan algoritma. Ohhh iya nama kampus saya adalah STMIK HANDAYANI salah satu kampus di makassar yang bergerak di bidang IT . Di kampus sendiri saya tidak begitu banyak praktek dalam menggunakan bahasa pascal ini, namun saya masuk di salah satu UKM di STMIK HANDAYANI yakni nama UKM adalah "CEOTECH" teman-teman bisa search di google apa itu CEOTECH ?. UKM ini merekrut anggota dan kemudian diajar sesuai mata kuliah maupun di luar mata kuliah misalnya salah satunya tadi pascal, web, desain grafis dan masih banyak lagi.heheheh sekedar perkenalan.

CARA MEMBUAT KASIR PENJUALAN MAKANAN DENGAN MENGGUNAKAN PASCAL

Lanjut ke inti artikel cara membuat daftar menu makanan dengan menggunakan program pascal. Cara ini sangat sederhana namu saya rasa mungkin saja akan bermanfaat bagi teman-teman yang ingin mencobanya. Ada banyak bahasa program yang bisa membuat daftar menu, silahkan teman-teman mencari sesuatu yang baru. Di artikel ini sayak akan membuat daftar menu makanan dengan menggunakan dua metode dalam program pascal, yakni metode pertama adalah dengan menggunakan metode IF, Sedangkan metode kedua adalah menggunakan metode CASE OF, tujuan dari metode ini yang saya gunakan untuk membuat daftar menu makanan sama.sama-sama bertujuan untuk membuat daftar menu makanan, cuman perbedaanya adalah terletak padah coding yang digunakan, dalam artian dengan menggunakan coding IF maka coding akan terlihat panjang, namun berbeda dengan menggunakan CASE OF, yang codingnya terlihat singkat, tergantung teman-teman menggunakan metode yang mana. Langsung saja berikut ini cara membuat daftar menu makanan dengan menggunakan program pascal :

CARA MEMBUAT DAFTAR MENU MAKANAN DENGAN MENGGUNAKAN IF DI PASCAL

Jalankan program pascal, jika tidak ada, silahkan download terlebih dahulu. atau bisa berkomentar di bawah jika ingin dikirimkan program pascal tersebut.

Kemudian copy script dibawah ini ke pascal jika malas untuk mengetik:

program if_banyak_pertanyaan;

uses crt;

var

NP, menu, mg, telur, ab, ap, teh, kue :string;

JB: LONGINT;

paket, harga1, harga2 :integer;

begin

clrscr;

writeln( ' DAFTAR MENU MAKANAN ');

writeln('--------------------------');

writeln(': MENU : ISI MENU : HARGA:');

writeln(' ------ ---------- ------ ,');

writeln(': : mie goreng: :');

writeln(':PAKET1: telur :10000 :');

writeln(': Air putih :');

writeln('---------------------------');

writeln(': : ayam bakar: :');

writeln(':PAKET2:Teh manis : 25000:');

writeln(': : kue : :');

writeln('-------- ---------- -------');

writeln;

mg:='mie goreng';

telur:='telur';

ap:='air putih';

ab:='ayam bakar';

teh:='teh manis';

kue:='kue';

harga1:=10000;

harga2:=25000;

writeln('input');

write('masukkan nama pelanggan :');readln(np);

write('masukkan paket pesanan anda [1/2] :');readln(paket);

writeln;

writeln('output :');

if paket=1 then

begin

writeln('pesanannya adalah : paket 1');

writeln('isi menunya adalah:',mg ,' + ',telur,' + ',ap);

writeln('harga paketnya :',harga1);

writeln;

write('masukkan jumlah uang anda :');readln(JB);

write('jumlah kembali uang anda :',JB-harga1);

end

else if paket=2 then

begin

writeln('pesanannya adalah : paket 2');

writeln('isi menunya adalah:', ab,' + ',teh,' + ',kue);

writeln('harga paketnya :', harga2);

writeln;

write('masukkan jumlah uang anda :');readln(JB);

write('jumlah kembali uang anda :',JB-harga2);

end;

readln;

end.

pada coding diatas anda bisa menganti daftar menu makan dan haraga seseui keingina teman-teman, anda bisa juga ganti nama program, variabel, input dan masih banyak lagi. intinya silahkan berkreatifitas sekeren mungkin. atau teman-teman bisa juga menambahkan atau mengurangi script yang menurut anda tidak dibutuhkan atau ingin di tambah.

BACA JUGA : "CARA TEMBAK CEWEK DENGAN PROGRAM PASCAL"

Kemudian jalankan program tersebut, maka akan muncul input yang akan ditampilkan. namun yang harus teman-teman ketahui program tidak akan berjalan jika ada salah satu kode yang eror, silahkan perbaiki kode yang eror terlebih dahulu jika anda sudah merubah kode diatas. lalu jalankan.lebih detailnya silahkan lihat gambar dibawah ini.

CARA MEMBUAT DAFTAR MENU MAKANAN DENGAN MENGGUNAKAN CASE OF DI PASCAL

Jalankan program pascal, jika tidak ada, silahkan download terlebih dahulu. atau bisa berkomentar di bawah jika ingin dikirimkan program pascal tersebut atau menghubungi saya melaui gmail.

Kemudian copy script dibawah ini ke pascal jika malas untuk mengetik:

program warung_makan;

uses crt;

var

nama: string ;

kode_menu : char;

total_harga, total_bayar, harga,jumlah_menu : real;

diskon : real;

begin

clrscr;

writeln( ' DAFTAR MENU MAKANAN ');

writeln('------------------------------');

writeln('| KODE | DAFTAR MENU | HARGA:');

writeln(' ------ ----------- ---- ,');

writeln('| 1 | Sate ayam | 10000|');

writeln('------------------------------');

writeln('| 2 | Coto | 18000|');

writeln('------------------------------');

writeln('| 3 | Ayam goreng | 15000|');

writeln('------------------------------');

writeln('| 4 | Nasi goreng | 10000|');

writeln('-------- ------------- ------');

writeln;

write('Masukkan nama pelanggan : ');readln(nama);

write('Masukkan kode menu [1/2/3/4] : ');readln(kode_menu);

write('Jumlah menu yang di inginkan : ');readln(jumlah_menu);

case kode_menu of

'1' :harga :=10000;

'2' :harga :=18000;

'3' :harga :=15000;

'4' :harga :=10000;

end;

total_harga:= jumlah_menu * harga;

if jumlah_menu >=20 then diskon:=20/100 * total_harga

else if jumlah_menu >=10 then diskon:=5/100 * total_harga;

total_bayar:= total_harga-diskon;

writeln;

writeln('---------------------------------HASIL--------------------------');

writeln('Nama pelanggan : ', nama);

writeln('Kode menu yang di pilih pelanggan : ', kode_menu);

writeln('Jumlah menu yg di inginkan pelangan: ', jumlah_menu:0:0);

writeln('Total harga : ', total_harga:0:0);

writeln('Total yang harus di bayar pembeli : ', total_bayar:0:0);

writeln(' diskon yang didapatkan ',diskon);

readln;

end.

Pada script yang diatas tidak jauh berbeda dengan yang pertama, namun discript yang kedua saya hanya menambahkan diskon, jika misalnya teman-teman ingin menambahkan diskon dalam pembelian anda bisa menggunakan script diatas, kemudian modifikasi atau ganti sesuai dengan diskon yang anda inginkan.

Kemudian jalankan program tersebut, maka akan muncul input yang akan ditampilkan. namun jika anda sudah merubah script diatas dan ada eror silahkan perbaiki eror tersebut dan jalankan.jika sudah jalan makan ajan muncul output , sesuai yang anda inginkan. namun diskon hanya akan ada jika sesuai dengan jumlah menu yang anda ingin berikan diskon.

demikian dari artikel ini, cara diatas juga bisa diterapkan selain tentang makanan. jika ada masalah yang teman-teman hadapi dalam mencoba cara diatas misalnya code yang eror, silahkan berkomentar dibawah, atau ingin bertanya-tanya boleh, mari kita belajar bersama-sama dengan tujuan menambah wawasan baru. jika menurut teman-teman artikel ini bermanfaat silahkan dishare. semoga artikel ini bermanfaat.

WASSALAM

Baca Juga