Program Pascal if else "Menu makanan"

Halo sobat watershare..
Oke dalam kesempatan kali ini saya akan berbagi lagi tentang program pascal..
Jika sebelumnya saya berbagi tentang menentukan channel TV, sekarang saya akan berbagi tentang program menentukan menu makanan..
Sebenarnya syntaxnya masih sama dengan yang sebelumnya tetapi hanya berbeda nama dan isinya ..
mungkin kalo ada yang ditugaskan membuat program if else di pascal dengan isi yang berbeda nah tidak usah perlu repot-repot mengganti isinya karena kami telah menyediakan banyak contoh program yang dapat anda unduh/copy

Oke langsung saja ini adalah syntaxnya..
program menu;
uses crt;
var
p,m,m1    :char;
begin
clrscr;
write('1. Nasi Soto');readln(p);
write('2. Nasi Rames');readln(p);
write('3. Nasi Rawon');readln(p);
write('4. Nasi Uduk');readln(p);
write('5. Nasi Goreng');readln(p);
write('menu pilihan anda:');readln(m1);
m:=upcase(m1);
if(m='1') then
begin
write('anda memilih nasi soto');
end
else if(m='2') THEN
BEGIN
WRITE('anda memilih nasi rames');
end
else if(m='3') then
begin
write ('anda memilih nasi rawon');
end
else if(m='4') then
begin
write('anda memilih nasi uduk');
end
else if(m='5') then
begin
write('anda memilih nasi goreng');
end
else write('Ma"af permintaan anda tidak ada di MENU....:(');
readln;
end.

Hasil programnya



Penjelasan :
  1. DI program nanti akan muncul tulisan1. Nasi Soto, 2. Nasi Rames, 3. Nasi Rawon, 4. Nasi Uduk, 5. Nasi Goreng dan Menu pilihan anda: karena ada perintah write disitu, jika ada perintah write/writeln maka yang berada dalam tanda kurung dan petik akan ditampilkan pada program
  2. Di program tersebut kita hanya perlu menuliskan kode-kodenya saja(Nomor 1-5), lalu otomatis jika di tekan enter nanti akan mucul hasilnya, itu karena kita menggunakan syntax if / bisa juga disebut sebagai pengambilan keputusan

ya mungkin hanya itu penjelasanya semoga berguna untuk anda ..
Jika ingin copas sertakan sumber dari kami..
Jika ada yang tidak jelas bisa di tanyakan di komentar .. dan jika ada yang mau request tutorial pemrograman lain bisa request di grup facebook kami yaitu:


Tetap kunjungi blog kami dan nantikan tutorial-tutorial berikutnya..

1 komentar:

Author
avatar

jadi teringat dengan pelajaran dulu, ane malam bisa membuat ramalan gan, mantap dah infonya kali ini gan.

Balas