Case Of (Algoritma Pascal)

Oke, kali ini saya akan membahas tentang penggunaan dari 'case - of' dalam program Pascal.

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"

example:

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.

Nah Ini Contoh Diprogram Pascalnya:

Sekarang Tinggal Tekan menu "Run > Run" atau "Ctrl+F9" 

Dan jika sudah selesai maka akan beginilah hasilnya :

 

SELAMAT MENCOBA :)

 

Pascal (Cara Menghitung Sisi Miring Segitiga dengan Program Pascal)

Pascal merupakan bahasa pemrograman yang terstruktur , artinya bahasa pemrogramnnya dapat dipecah menjadi fungsi - fungsi kecil yang dapat digunakan berulang - ulang kali . Pascal pertama kali diperkenalkan oleh Niklaus Wirth pada tahun 1971 . Bahasa pemrograman ini penting untuk dipelajari karena banyak bahasa pemrograman lainnya menggunakan bahasa dasar Pascal , semisal Delphi . Oleh karena itu jika mempelajari bahasa pemrograman pascal akan sangat mudah mempelajari delhi , karena Delphi sendiri merupakan visual dari pascal sama halnya seperti Visual Basic .

     Bahasa Pemrograman pascal merupakan bahasa yang digunakan sebagai standar bahasa pemrograman bagi  tim nasional olimpiade ( TOKI ) . Oleh karena itu sangat penting mempelajari bahasa pemrograman pascal . Versi Pascal yang sangat dikenal oleh orang banyak adalah Turbo Pascal buatan Borland International yang bekerja di lingkungan sistem operasi DOS . Sampai saat ini Turbo Pascal sudah mengeluarkan TurboPascal-7.0 sedangkan Pascal sendiri sudah mencapai versi 2.4.0 . Bahasa pemrograman ini juga dapat digunakan di banyak sistem operasi seperti , Windows , Linux , Mac OS , dll .


(Contoh Aplikasi Paskal)

.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 Dibawah ini: 

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

maka program akan berjalan sesuai perintah:  

Begitulah cara membuat program untuk mencari sisi miring pada segitiga dalam 

"Program Pascal"