"Case Of" - Algoritma Pascal

Dalam pembahasan kali ini saya akan membahas tentang penggunaan dari 'case - of' dalam program Pascal. Cekidot ....

Pengertian 'Case - of'

Case - of adalah kode / kata kunci dalam bahasa pemrograman seperti Pascal, fungsinya hampir sama dengan kode 'If - Else' yaitu untuk memilih data mana yang akan kita proses dalam berbagai pilihan.

Cara penggunaan 'Case - Of'

program Fotocopy;

uses crt;

var       kode,harga,jumlah:integer;

begin     clrscr;

          writeln('keterangan kode              harga');

          writeln('1=polio                      Rp.150,-');

          writeln('2=hvs                        Rp.100,-');

          writeln('3=hvs berwarna               Rp.200,-');

          writeln('4=hvs glow in the dark       Rp.250,-');

          writeln('kode kertas=');

          read(kode);

          writeln('jumlah kertas=');

          read(jumlah);

          case kode of

                1: harga:= (150*jumlah);

                2: harga:= (100*jumlah);

                3: harga:= (200*jumlah);

                4: harga:= (250*jumlah);

          end;

          writeln('harga=','Rp',harga,',-');

          readkey;

          end.

Beginilah contoh dalam program Pascal :

Tekan Menu "Run > Run" atau "Ctrl+F9"

Jika Terjadi Syntax Eror maka cek lagi penulisan script di atas,

Dan jika sudah selesai maka akan beginilah hasilnya :

Terima kasih sudah mampir di blog saya, sampai jumpa.

Cara Menghitung Sisi Miring Segitiga dengan Program Pascal

Pengertian Pascal

     Pascal yaitu bahasa pemrograman yang pertama kali dibuat oleh Profesor Niklaus Wirth salah seorang anggota International Federation of Information Processing (IFIP) tahun 1971. Dengan mengambil nama dari Matematikawan Perancis, Blaise Pascal, yang pertama kali menciptakan mesin penghitung,Profesor Niklaus Wirth membuat bahasa Pascal ini sebagai alat bantu untuk mengajarkan konsep pemrograman komputer kepada mahasiswanya.

    Berikut adalah bagaimana caranya menghitung 'Sisi Miring' pada Segitiga dengan menggunakan 'alas' dan 'tinggi' segitiga tersebut :

Buka program pascal bisa "Turbo Pascal" atau "Free Pascal" (saya menggunakan "Free Pascal").

Masukan script di pascal      
 program Phytagoras ;   
 uses    crt;    
 var     a,t,m:real;    
 begin   clrscr; 
         write ('alas:');
         readln(a);
         write ('tinggi:');
         readln(t);
         m:=sqrt((a*a)+(t*t));
         write   ('phytagoras:'.m:3:2);
         readln;
 end.

Seperti gambar di bawah ini :

 

Jika sudah selesai di ketik maka, pilih menu "Run > Run" atau tekan "Ctrl+F9"

Jika ada kesalahan pada penulisan maka akan muncul pesan seperti :

 

Ingat untuk menggunakan kurung "( )" bukan "< >" dalam penulisan script...

Jika sudah benar maka program akan berjalan sesuai perintah...

Begitulah cara membuat program untuk mencari sisi miring pada segitiga dalam 

"Program Pascal"