FajarYusuf

Pada pemantapan PASCAL saya akan mengshare ke anda contoh-contoh pemrograman pascal yang bisa untuk kalian explore lebih dalam.  Contoh Program PASCAL mencari bilangan biner : KALIAN BISA MENGODING DISINI PROGRAM binary_search; {Program to search a number using binary search} USES crt; TYPE index=1..100; VAR arr:ARRAY[1..100] OF index; VAR mid,low,high,search:integer; i,n:index; found:boolean; BEGIN clrscr; writeln('BINARY SEARCH'); writeln('Enter the array size'); readln(n); writeln('Enter the array elements'); FOR i:=1 TO n DO BEGIN readln(arr[i]); END; writeln('Enter the search element'); readln(search); low:=1; high:=n; found:=false; REPEAT mid:=trunc(low+high) DIV 2; IF (search<arr[mid]) THEN high:=mid-1; IF (search>arr[mid]) THEN low:=mid+1; ...

Rekursif  Rekursif adalah fungsi atau prosedur yang digunakan untuk dapat memanggil dirinya sendiri.  Berikut ini adalah sebuah contoh coding program pascal fungsi dan prosedur yang  menggunakan fungsi rekursif.  Contoh Coding Rekursif ,program faktorial : KALIAN BISA MENCOBANYA KLIK DISINI Program Recursif; Var num, f : Integer; Function fact (x : Integer): Integer;(*penjumlahan factorial of x-x!*) Begin If x=0 Then fact := 1 Else fact := x * fact(x-1); (*pemanggilan rekursif *) End; { end of function fact} Begin Writeln (' Enter a number: '); Readln (num); f := fact (num); Writeln (' Factorial ', num, ' is: ' , f); End. hasil coding Contoh Program Coding rekursif yang lain ,Program Fibonanci urut angka :  Program rekursifFibonacci; Var I : Integer; Function fibonacci(n : Integer) : Integer; Begin If n = 1 Then fibonacci := 0 Else If n=2 ...

FUNCTION Function hampir sama dengan blok pada procedure, hanya pada function harus dideklarasikan dengan tipe dari function tersebut yang merupakan tipe hasil dari function itu sendiri.  Sehingga dapat dikatakan function dapat mengembalikan nilai. Perbedaan fungsi dengan prosedur adalah:  Pada fungsi, nilai yang dikirimkan balik terdapat pada nama fungsinya(kalau pada prosedur parameter yang dikirimkan secara acuan).  Karena nilai balik berada di nama fungsi tersebut, maka fungsi tersebut dapat langsung digunakan untuk dicetak hasilnya. Atau nilai fungsi tersebut dapat juga langsung dipindahkan ke pengenal variabel yang lainnya.  Pada prosedur, nama prosedur tidak dapat digunakan langsung, yang dapat langsung digunakan adalah parameternya yang mengandung nilai balik.  Hal ini dapat dilihat dari bentuk headernya yang menyebutkan jenis data dari kuantitas yang dihasilkan.Secara umum bentuk header suatu function adalah :  FUNCTION nama:je...

Procedure  Procedure dan Function merupakan suatu program yang terpisah dalam blok sendiri yang berfungsi sebagai subprogram yang merupakan sebuah program kecil untuk memproses sebagian dari pekerjaan program utama.   Prosedur harus diawali dengan kata cadangan Procedure di dalam bagian pendeklarasian prosedure. Prosedure dapat dipanggil dan digunakan di dalam blok program yang lainnya dengan menyebutkan judul prosedurnya.  Prosedur banyak digunakan pada program yang terstruktur, itu dikarenakan procedure :  Merupakan penerapan konsep program modular, yaitu memecah-mecah program yang rumit menjadi program-program bagian yang lebih sederhana dalam bentuk prosedur-prosedur.  Untuk hal-hal yang sering dilakukan berulang-ulang, cukup dituliskan sekali saja dalam prosedur dan dapat dipanggil atau dipergunakan sewaktu-waktu bila diperlukan.  Sebagaimana halnya sebuah program yang utuh, suatu procedure juga harus memiliki header dan bl...

ARRAY Terhadap RECORD  Array juga bisa digunakan untuk record data dengan ketentuan sebagai berikut:  Record harus merupakan tipe data yang terstruktur yang harus dideklarasikan sendiri  Record harus terdiri dari beberapa field dimana pada setiap field harus dinyatakan namanya dan tipe dari field tersebut  Deklarasi pada record dapat dinyatakan pada bagian isian atau blok dari TYPE dan pada blok VAR  Untuk dapat melakukan pengolahan terhadap field dapat dilakukan dengan 2 cara seagai berikut : 1.perintah titik  2.statement WITH  Dibawah ini adalah contoh pendeklarasian record pada pascal :  TYPE mahasiswa = RECORD Nama : string [15] ; BP : string [8] ; Umur : integer ; END; VAR mhs : mahasiswa; { hanya untuk 1 orang mahasiswa } Membaca field array dengan menggunakan cara pertama yaitu dengan perintah titik :  Write ('Nama : '); readln (mhs.nama); Write ('Nobp : '); readln (mhs.nobp); Write ...

Larik / Array Array merupakan tipe data bentukan yang terdiri dari berbagai kumpulan tipe data lain yang diwakili oleh 1 nama variabel. Dalam satu nama variabel ini dapat menampung banyak nilai/value dengan tipe dan panjang datanya yang sama. Silakan simak contoh contoh program array pascal dibawah berikut . Contoh pertama untuk array silakan kalian buat program sederhana berikut tanpa array : KALIAN BISA MENCOBANYA DISINI Program tanpa_array; Uses Crt; Var nilai1, nilai2, nilai3, nilai4 : Integer; Begin Clrscr; nilai1 := 17; nilai2 := 12; nilai3 := 5; nilai4 := 40; Writeln ('nilai1: ', nilai1); Writeln ('nilai2: ', nilai2); Writeln ('nilai3: ', nilai3); Writeln ('nilai4: ', nilai4); End. hasil coding Tipe data nilai pada Program diatas mari kita ubah kedalam bentuk Array. Pengisian dan menampilkan data dapat dilakukan secara acak, tetapi harus disesuaikan dengan batasan...

Perintah loncat ( Goto ) Perintah loncat pada Pascal adalah statement Goto. Peintah ini berfungsi untuk loncat ekseksi ke sebuah pernyataan yang dideklarasikan oleh Label. Bentuk penulisan goto : Goto Label; Label harus berada didalam blok yang sama dengan pernyataan Goto. Karena goto tidak bisa digunakan untuk melompat keluar dari dalam procedure atau function. Suatu Label harus dideklarasikan pada bagian deklarasi Label. Bentuk Penulisan label: Label identifier, ... identifier; Contoh program goto atau loncat yang pertama bisa dicoba program sederhana menghitung nilai rata-rata berikut : Program penggunaan_GoTo_Label; Uses Crt; Label atas; Var nil1, nil2 : Integer; nilRata : Real; Lagi : Char; Begin atas: ClrScr; WriteLn ('Program Hitung Nilai'); WriteLn ('--------------------'); WriteLn; Write ('Masukan Nilai 1 : '); ReadLn (nil1); Write ('Masukan Nilai 2 : '); ReadLn (nil2); nilR...