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.

READMORE

Contoh Program Membuat Kalkulator Menggunakan Pascal

Hallo, pada kesemapatan kali ini, Saya akan share sebuah program pascal membuat Kalkulator sederhana. program ini menggunakan fungsi Percabangan If Then dan program ini bisa diulang sesuai keinginan Anda. Berikut ini adalah skripnya. 

program kalkulator;
uses crt;
var
   x,y,hasil:integer;
   hasil2:real;
   Menu,ulang:char;
begin
     repeat
     clrscr;
     writeln('MENU OPERATOR:');
     writeln('      1. Penjumlahan   ');
     writeln('      2. Pengurangan   ');
     writeln('      3. Perkalian   ');
     writeln('      4. Pembagian   ');
     writeln(' ');
     writeln(' ');

     write('Pilihan Menu: ');readln(Menu);

     if Menu='1'then
     begin
     write('Masukkan = ');read(x);
     write('Masukkan = ');read(y);
     hasil:=x+y;
     writeln('Penjumlahan dari x + y = ',hasil);
     end;

     if Menu='2'then
     begin
     write('Masukkan = ');read(x);
     write('Masukkan = ');read(y);
     hasil:=x-y;
     writeln('Pengurangan dari x - y = ',hasil);
     end;

     if Menu='3'then
     begin
     write('Masukkan = ');read(x);
     write('masukkan = ');read(y);
     hasil:=x*y;
     writeln('Perkalian dari x * y = ',hasil);
     end;

     if Menu='4'then
     begin
     write('Masukkan = ');read(x);
     write('masukkan = ');read(y);
     hasil2:=x/y;
     writeln('Pembagian dari x : y = ',hasil2:0:2);
     end;

     write('Apakah Anda Ingin Menghitung Lagi (Y/T) ?'); readln(ulang);
     until upcase (ulang) <> 'Y';

end.

Jika Anda bingung dengan skrip diatas, Anda bisa Downloaad file nya DI SINI

Oke terima kasih sudah berkunjung. Dan semoga ini bermanfaat bagi Anda.

READMORE