Contoh Program Percabangan Case Of Menggunakan Bahasa Pascal

Hai, pada kesempatan kali ini Saya akan membagi sedikit dari tugas Saya kuliah. Mungkin banyak orang-orang disana yang membutuhkan, hehehe. Pada kali ini Saya akan posting tentang Contoh Program Percabangan Case Of Menggunakan Bahasa Pascal. Oke langsung aja ya ke skripnya.

program CaseOf;

uses crt;

var

   mask:integer;

   jual,harga,jumlah:real;

const

   grs='-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-';

   abc=' * * * * * * * * * * * * * * * * * * * * * * * * * * ';

   xyz='- - - - - - - - - - - - - - - - - - - - - - - - - -';

begin

clrscr;

   textcolor(blue); writeln('                 PASURUAN MASK STORE');

   textcolor(white); writeln(grs);

   textcolor(yellow); writeln('   *-= Pusat Jual Beli Berbagai Topeng Lengkap =-*');

   textcolor(white); writeln(abc);

   writeln(' ');

   writeln('               Jenis-Jenis Topeng :');

   writeln(xyz);

   writeln(' Kode                Topeng               Harga');

   writeln('  01          Anonymous PVC China         35000');

   writeln('  02          Anonymous PVC Turkey        40000');

   writeln('  03       Anonymous Original Denmark     80000');

   writeln('  04             Jabbawockeez             50000');

   writeln('  05                Scream                50000');

   writeln(xyz);

   writeln(' ');

   begin

   write('Masukkan Kode Topeng Pilihan Anda : '); readln(mask);

   case mask of

   01 : harga:=35000;

   02 : harga:=40000;

   03 : harga:=80000;

   04 : harga:=50000;

   05 : harga:=50000;

   end;

   textcolor(white); writeln(xyz);

   textcolor(green); write('Masukkan Jumlah Topeng yang Akan di Order :  '); readln(jumlah);

   jual:=jumlah*harga;

   textcolor(white); writeln(xyz);

   textcolor(cyan); write('Total Harga Pembelian Topeng : '); writeln(jual:0:0);

   writeln(' ');

   writeln(' ');

   textcolor(yellow); writeln('Terima kasih telah membeli Topeng di PASURUAN MASK STORE');

   end;

   readln;

end.

Jika Anda masih bingung dengan skrip diatas, Anda bisa Download filenya DI SINI

Oke Saya kira cuma sekian saja postingnya. Semoga ini bermanfaat bagi Anda. Dan terima kasih sudah berkunjung ke blog ini.

Penulis : ENDs ~ Sebuah blog yang menyediakan berbagai macam informasi

Artikel Contoh Program Percabangan Case Of Menggunakan Bahasa Pascal ini dipublish oleh ENDs pada hari Thursday, 8 October 2015. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar.sudah ada 0 komentar: di postingan Contoh Program Percabangan Case Of Menggunakan Bahasa Pascal