♣ CONTOH PROGRAM ♣

Program 1 : menghitung luas/keliling bangunan

Yup... sekarang kita buat program yang pertama, menghitung luas dan keliling bangunan. Bangunan yang dijadikan contoh adalah segitiga. Perhatikan contoh di bawah ini:

  1: Program Menghitung_Luas_dan_Keliling;

  2: var alas, tinggi, sisimiring, luas, keliling: real;

  3: Begin

  4:   writeln('MENGHITUNG LUAS DAN KELILING SEGITIGA');

  5:   writeln('-------------------------------------');

  6:   write('Masukkan alas : ');readln(alas);

  7:   write('Masukkan tinggi : ');readln(tinggi);

  8:   luas:= 0.5*alas*tinggi;

  9:   sisimiring:=sqrt(sqr(alas)+sqr(tinggi));

10:   keliling:= alas+tinggi+sisimiring;

11:   writeln;

12:   writeln('luas segitiga : ', luas:0:2);

13:   writeln('keliling segitiga : ', keliling:0:2);

14:   readln;

15: end.

Pada baris 6 dan 7 adalah tempat memasukkan alas dan tinggi segitiga yang akan diproses di baris 8 sampai 10. Ingat kan rumus menghitung sisi miring segitiga? yaitu akar dari jumlah kuadrat sisi-sisinya. Fungsi "sqrt" adalah untuk mengakarkan dan sqr untuk mengkuadratkan.

Sekarang kebaris 12 dan 13. Apa yang beda hayoo...? betul.. setelah variabel luas dan keliling dicetak ke layar ada tambahan ":0:2". Itu artinya :banyaknya alokasi angka:jumlah desimal.

Gampangkan? iya donk, kan tinggal maen logika... :D

♣ DATABASE ♣

Rasanya gak lengkap kalo buat program tapi gak bisa nyimpen data. Yang bakal dijelasin di sini adalah file bertipe, artinya harus disebutkan dulu tipe file tersebut, apakah integer, long integer, string, char atau bahkan record. Berikut ini adalah daftar prosedur dan fungsi yang berhubungan dengan program database file bertipe (no 12 sampai 16 hanya untuk file teks).

Procedure Assign (var f, NamaFile: string);

Procedure Rewrite (var f);

Procedure Reset(var f);

Procedure Close(var f);

Procedure Write(var f, var1 [, var2, ..., varn]);

Procedure Read(var f, var1 [, var2, ..., varn]);

Function Eof(var f): Boolean;

Function FilePos(var f): longint;

Function FileSize(var f): longint;

Procedure Seek(var f, N: longint);

Procedure Truncate(var f);

Function Eoln(var f:text):boolean;

Function SeekEoln(var f:text):boolean;

Function SeekEof(var f:text):boolean;

Procedure Flush(var f:text);

Procedure SetTextBuf(var f:text, var buf[, ukuran: word]);

♣ ARRAY DAN RECORD ♣

Pernahkah kamu membayangkan bila kita mau membuat program toko buah-buahan. Jika ada 3 jenis buah-buahan (melon, duku dan mangga) berarti kita harus mempunyai tiga variabel untuk masing-masing jenis buah. Tetapi betapa sulitnya jika toko itu punya 10 atau 20 jenis yang berbeda. Solusinya adalah gunakan array. Array itu adalah tipe data terstuktur yang berguna untuk menyimpan sejumlah data yang bertipe sama. Bagaimana cara kerjanya? yaitu dengan menggunakan index (semacam penanda). Perhatikan contoh:

  1: Program Tutorial5_Array;

  2: var buah: array [1..3] of string;

  3:     i: integer;

  4: Begin

  5:   For i:=1 to 3 do

  6:     begin

  7:       write('Masukkan buah-buahan ke ',i , ' : ');readln(buah[i]);

  8:     end;

  9:   writeln;writeln('Isi buah-buahan yang dimasukkan tadi adalah : ');

10:   For i:= 1 to 3 do

11:     writeln('buah ke', i ,' : ', buah[i]);

12: End.

Lihat pada baris ke 7. Dengan hanya menggunakan satu nama variabel yaitu buah, kita bisa menyimpan 3 nilai yang berbeda. Misalkan yang kita masukkan adalah melon, duku dan mangga. maka buah[1] bernilai melon, buah[2] bernilai duku dan buah[3] bernilai mangga. Untuk mencetak isi variabel yang sudah disimpan di array tadi caranya bisa dilihat di baris ke 11.

♣ PROSEDUR DAN FUNGSI ♣

Misalnya kita punya rumus menghitung luas segita, apa yang kamu lakukan bila rumus itu ingin kamu tulis ditiga tempat yang berbeda? apa kamu akan ccp (copy, cut dan paste)? emang bisa sih diperbanyak dengan yang gituan, tapi boros memori dan berabe kalo rumus yang kita tulis ternyata salah, berarti kita harus betulin di tiga tempat juga. Untuk mempermudahnya gunakan Prosedur atau Fungsi.

  1: Program Tutorial4_Prosedur;

  2:

  3: Procedure Tampil;

  4: begin

  5:   writeln('Hi...');

  6:   writeln('Apakabar');

  7: end;

  8: Begin

  9:   Tampil;

10:   writeln('yang di atas menggunakan prosedur loohh...');

11: End.

Apa yang dilakukan program di atas? Coba lihat baris ke-3 sampai 7. Itulah yang disebut prosedur. Program utamanya mulai dari baris ke 8 sampai 11. Pada baris ke 9 prosedur yang kita buat sebelumnya dipanggil dan dieksekusi. Ini outputnya

♣ LOOPING ♣

Looping? apa hayoo...? masih ingatkan pelajaran fisika SMU, adakan pelajaran tentang looping dirangkaian elektronik. Looping adalah proses pengulangan hingga kondisi syarat yang ditentukan tercapai. Sekarang kita ngebahas 3 jenis looping, for, while dan repeat. Perhatikan contoh di bawah ini:

1: Program Tutorial3_for;

2: var i: Integer;

3: Begin

4:   For i:=1 to 5 do

5:     writeln('ini yang ke ', i);

6: End.

Perhatikan baris 4 dan 5. Di sana ada satu persyaratan, yaitu baris ke-5 akan dieksekusi bila nilai i antara 1 sampai 5. Apa output yang tercetak dilayar?

ini yang ke 1

ini yang ke 2

ini yang ke 3

ini yang ke 4

ini yang ke 5

♣ MENCETAK KE LAYAR DAN PENGGUNAAN VARIABEL ♣

Ok, sekarang kita bakal belajar cara menampilkan teks di layar dan penggunaan variabel. Perhatikan contoh dibawah ini:

1: Program KaryaPertamaku;

2: uses crt;

3: var nama: string;

4: Begin

5:   write('Masukkan nama anda: '); readln(nama);

6:   clrscr;

7:   write('Hi ', nama, 'apa kabar?');

8: End.

Pada baris ke-3 dideklarasikan variabel nama dengan tipe string. Karena berupa string, variabel nama bisa menampung input dari user berupa kata dan angka. Untuk lebih jelas tentang jenis tipe data lihat tabel di bawah. Jangan sampai salah mendeklarasikan jenis variabelnya loohh...

Sekarang perhatikan baris ke-5. Fungsi write adalah mencetak kalimat atau isi variabel yang ada ke layar. Jadi yang tercetak adalah "Masukkan nama anda: ". Selanjutnya ada perintah readln. Apa fungsinya? readln itu berfungsi untuk menampung (menyimpan hasil input user) dan disimpan pada variabel nama. Jadi sekarang variabel nama bernilai sama yang kamu ketikan.

Pada baris ke-7 di layar akan tercetak " Hi dijas apa kabar?" (itu kalo nama yang dimasukan dijas). Untuk menampilkan isi variabel cukup ditulis: "write(nama);". Sedangkan bila berupa teks yang fixed, contohnya sama seperti baris ke-5 (mengunakan ' (kutip) ).

♣ PENGENALAN PASCAL ♣

Pada bagian ini cuman ngejelasin secara garis besar tentang pascal dan tips penulisan program. Kita mulai, ok?

Rasanya gak lengkap kalo gak tahu sejarah pascal. Pascal adalah bahasa tingkat tinggi yang orientasinya pada segala tujuan, dirancang oleh Prof. Niklaus Wirth dari Technical University di Zurich, Switzerland. Nama pascal diambil sebagai penghargaan terhadap Blaise Pascal, ahli matematik dan philosiphi terkenal abad 17 dari Prancis.

Profesor Niklaus Wirth memperkenalkan kompiler bahasa Pascal pertama kali untuk komputer CDC 6000 (Control Data Corporation) yang dipublikasikan pada tahun 1971 dengan tujuan untuk membantu mengajar program komputer secara sistematis, khususnya pemrograman terstruktur. Pada perkembangannya banyak versi-versi pascal yang beredar, MS-Pascal, Apple Pascal, Turbo Pascal, dll. aku pernah baca kalo pascal itu di buat karena bahasa C terlalu sulit untuk di pelajari untuk pemula.

Sekarang kita ngeliat bagaimana struktur program pascal. Pascal terdiri dari 2 bagian utama, yaitu pendeklarasian variabel dan programnya. Perhatikan contoh:

1: Program KaryaPertamaku;

2: uses crt;

3: var nama: string;

4: Begin

5:   write('Masukkan nama anda: '); readln(nama);

6:   clrscr;

7:   write('Hi ', nama, 'apakabar?');

8: End.