CONTOH PROGRAM MENGGUNAKAN CASE OF DI BAHASA PEMROGRAMAN PASCAL

Sebelumnya terimakasih banya telah mengunjungi blog sederhana ini, karena setiap kunjungan dari teman-teman akan terus memberikan semangat kepada penulis untuk mmbuat artikel yang bermanfaat dan dapat menambah wawasan baru. kunjungi terus blog ini dikarenakan setiap hari akan update artikel yang tidak kalah menarik dari sebelumnnya.

Pada kesempatan kali ini, di artikel ini penulis akan memberikan contoh program dengan menggunakan case of dibahasa pemrograman pascal. jika diartikel sebelumnya telah membahas membuat menu makanan atau kasir sederhana untuk penjualan makanan dengan menggunakan bahasa pascal, diartikel tersebut dibahas contoh program menu makanan dengan menggunakan fungsi if,walaupun ada 1 program mengenai case of.

Bahasa pemrograman pascal dimata sebagian orang mungkin adalah bahasa pemrograman yang sudah tua dan jarang digunakan, namun menurut saya bahasa pemrograman pascal bagus digunakan untuk belajar dan membuat progam sederhana yang betujuan untuk belajar memahami algoritma, bahasa pemrograman ini saya dapat ketika kuliah semester 1 dengan mata kuliah "Logika dan algoritma" dosen saya berkata tujuan setiap belajar bahasa program bukan dilihat dari bahasa program yang digunakan namun dilihat dari bagaimana seseorang mampu menguasai atau paham sedikit mengenai algoritma.

CONTOH PROGRAM MENGGUNAKAN CASE OF DIPASCAL

Program diartikel ini sangat sederhana namun jika teman-teman membutuhkanya silahkan digunakan. disini bukan berarti saya paham tentang pascal, disini kita hanya berbagi satu samalain. dan program ini adalah tugas saya diwaktu kuliah. daripada program ini hanya saya simpan dilaptop saya, lebih baik saya share siapa tau ada yang membutuhkan. silahkan teman-teman ambil, tiru , kemudian modifikasi contoh coding dibawah ini. nahh berikut dibawah ini contoh program menggunakan case of dibahasa pemrograman pascal

CONTOH PROGRAM MENAMPILKAN NAMA BULAN DENGAN MENGGUNAKAN CASE OF DIPASCAL

Silahkan copy coding dibawah ini, atau bisa minta langsung dari penulis.

contoh coding:

program case_of;

uses crt;

var

angka : string;

bulan : string;

begin

clrscr;

write('masukkan angka : '); readln(angka);

case angka of

'1' :Bulan:='JANUARY';

'2' :Bulan:='FEBRUARI';

'3' :Bulan:='MARET';

'4' :Bulan:='APRIL';

'5' :Bulan:='MEI';

'6' :Bulan:='JUNI';

'7' :Bulan:='JULI';

'8' :Bulan:='AGUSTUS';

'9' :Bulan:='SEPTEMBER';

'10' :Bulan:='OKTOBER';

'11' :Bulan:='NOVEMBER';

'12' :Bulan:='DESEMBER';

End;

Writeln;

writeln(angka, ' = ' ,Bulan);

readln;

end.

ketika teman-teman menjalankan program diatas maka yang akan tampil seperti gambar dibawah ini. jika teman-teman perhatikan pada gambar, yang ditampilkan ketika anda mengetikkan angka maka yang muncul adalah nama bulan. itulah case of sederhana.

CONTOH PROGRAM MENAMPILKAN GRADE ATAU HASIL NILAI MENGGUNAKAN PASCAL

Silahkan copy coding dibawah ini, atau bisa minta langsung dari penulis.

contoh coding:

program case_of_2;

uses crt;

var

nama, grade, ket : string;

mtk, bing, algoritma : integer;

rata2: real;

jumlah, hasilrata2: longint;

begin

clrscr;

write('Masukkan Nama : ');readln(Nama);

write('Masukkan Nilai matematka : ');readln(mtk);

write('Masukkan Nilai B.inggris : ');readln(bing);

write('Masukkan NIlai Algoritma : ');readln(algoritma);

jumlah:= mtk+bing+algoritma;

rata2 := jumlah/3;

hasilrata2 := round(rata2);

case hasilrata2 of

85..100 : Grade:='A';

70..84 : Grade:='B';

55..69 : Grade:='C';

45..54 : Grade:='D';

0..44 : Grade:='E';

end;

case Grade of

'A' : Ket:='SANGAT BAIK';

'B' : Ket:='BAIK';

'C' : Ket:='CUKUP';

'D' : Ket:='KURANG';

'E' : Ket:='BURUK';

end;

writeln;

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

WRITELN;

writeln('Nama = ' ,nama);

writeln('Nilai Matematika = ' ,mtk);

writeln('Nilai B.Inggris = ' ,bing);

writeln('Nilai Algoritma = ' ,algoritma);

writeln('Nilai Rata-Rata = ' ,rata2:0:2);

writeln('Grade = ' ,Grade);

writeln('Keterangan = ' ,ket);

readln;

end.

ketika teman-teman menjalankan program diatas maka yang akan tampil seperti gambar dibawah ini.

silahkan teman-teman bisa modifikasi coding tersebut sesuai keinginan anda, misalnya nama pelajaran, ketentuan nilai, dan masih banyak lagi yang bisa diubah

CONTOH PROGRAM MENU MAKANAN ATAU KASIR SEDERHANA MENGGUNAKAN PASCAL

Silahkan copy coding dibawah ini, atau bisa minta langsung dari penulis.

contoh coding:

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.

ketika teman-teman menjalankan program diatas maka yang akan tampil seperti gambar dibawah ini.

Demikian tadi beberapa contoh program dipascal dengan menggunakan case of. jika teman-teman mengalami kesulitan mengenai artikel diatas silahkan berkomentar dibawah. semoga artikel ini bermanfaat dan menambah wawasan baru.

WASSALAM