record

Sebuah record rekaman disusun oleh beberapa field. Tiap field berisi

data dari tipe dasar / bentukan tertentu. Record mempunyai

kelebihan untuk menyimpan suatu sekumpulan elemen data yang

berbeda-beda tipenya (di banding array).

Cara pendeklarasian dari record adalah sbb:

· Mendefinisikan tipe dari record (jumlah field, jenis tipe data yang

dipakai),

· Mendefinisikan variabel untuk dilakukan operasi.

Syntax

Type

nama_record = record

identifier_1 : tipe_data_1;

:

:

identifier_n : tipe_data_n;

end;

var

variabel : nama_record;

Contoh :

Pernyataan If (If Statement)

-->

Pernyataan if (if statement) akan memeriksa suatu persyaratan dan

menentukan apakah syarat tersebut benar atau salah, kemudian

melakukan pekerjaan sesuai dengan nilai pernyataan tersebut.

Berikut adalah bentuk-bentuk dari pernyataan if yang sering

digunakan :

1. If dengan satu pernyataan (statement)

If (kondisi) then pernyataan ;

contoh program Prosedur dan Fungsi

Perhatikan dan salinlah program di bawah ini :

program P0401;

{ Contoh Program pembuatan Prosedur }

uses Crt;

var

A,B: Integer; { variable global }

{ Prosedur mencari nilai maximum }

procedure Maximum;

var

max : Integer; { variable lokal }

begin

if A > B then

max := A

else

max := B;

PROCEDURE nama(daftar_parameter)

Bagian deklarasi / pengumuman;

Bagian pernyataan;

FUNCTION nama_fungsi(daftar_parameter ): tipe;

Bagian deklarasi / pengumuman;

Bagian pernyataan;

Prosedur dan Fungsi

Program Pascal akan menjadi mudah dibuat jika ditulis dalam

bentuk modul-modul. Sistem modul ini memiliki beberapa

keuntungan, diantaranya :

· untuk langkah-langkah yang sering dilakukan (bukan

perulangan), akan terhindar dari pembuatan pernyataanpernyataan

yang sama.

· Suatu modul program hanya sekali ditetapkan dan dapat

dipanggil dari beberapa tempat dalam program. Sekumpulan

data yang berbeda juga dapat diproses setiap kali modul tersebut

dijalankan.

Dengan menggunakan sistem modul ini panjang program akan dapat

dikurangi. Dalam pascal terdapat dua tipe modul, yaitu prosedur dan

fungsi (procedures and functions). Dua tipe modul program ini sama,

Pernyataan Case (Case Statement)

Pernyataan case (case statement) berisi ungkapan pemilih (selector) dan

sederetan pernyataan yang masing-masing diawali dengan satu

atau lebih tetapan (case constant) atau dengan kata kunci else.

Semua tetapan case harus khas dan tipe berurutan yang digunakan

harus sesuai dengan tipe pemilih.

Sama halnya dengan pernyataan if, pada pernyataan case jika

pernyataan yang akan dijalankan lebih dari satu pernyataan maka

sebelum pernyataan-pernyataan tersebut harus diawali dengan begin

dan diakhiri dengan end.

Berikut bentuk pernyataan case :

contoh program pascal

Setelah mempelajari program pascal tentu ingin menco membuat sebuah percobaan,nah kalau anda berminat silahkan Salinlah program berikut ini :

programgram P0101;

{ program untuk menampilkan data diri }

uses Crt;

var

nama, alamat,hobby: string;

{ program utama }

begin

Program Sederhana dengan Pernyataan Kendali If.

Berikut contoh program sederhana untuk menghitung luas segitiga dan

lingkaran. Yang mana perhitungan luas dua buah bangun tersebut

digabung menjadi satu program, dan pemakai dapat memilih masalah

mana yang akan dipecahkan.

Sebagaimana diketahui untuk menghitung luas segitiga adalah

dengan :

L=1/2 . a . t

Dan luas lingkaran adalah dengan :

L=? . r. r

Untuk lebih jelasnya salin program berikut :

pengenalan pascal

Sebuah program Pascal berisi kepala program, anak kalimat uses (tidak

harus ada), serta blok pengumuman dan pernyataan. Kepala program

menunjukkan nama program. Anak kalimat uses menggunakan unit-unit

yang dipakai oleh program tersebut. Bagian terakhir merupakan blok

yang berisi pengumuman san pernyataan yang akan dijalankan.

Setiap program Pascal mempunyai susunan sebagai berikut:

contoh program array dan penjelasanya

Salinlah program berikut ini :

program P0501;

{Program Array menggunakan 1 dimensi}

uses Crt;

var

a: array[1..10] of byte;{maksimum jumlah elemen=10}

begin

a[1]:=10;

a[2]:=15;

a[3]:=a[1]+a[2];

Writeln(a[1]);

Writeln(a[2]);

Modul 5 – Array 5-31

Writeln(a[3]);

end.

Kompilasi program tersebut dengan menekan Alt+F9 dan jalankan

program tersebut dengan menekan Ctrl+F9, kemudian amati hasilnya

bila dimasukkan masukan tertentu.

Sekarang simpan program tersebut dengan memilih menu File lalu

pilih Save. Simpan dengan nama Prak5_01.PAS.

Berikut ini akan diperkenalkan array 1 dimensi dengan menggunakan

for..do. Salinlah program berikut ini :

struktur perulangan

Pengenalan Pernyataan Perulangan (Loop Statement)

Pernyataan Perulangan memiliki tiga pernyataan, repeat, while, dan for.

Pernyataan perulangan dipakai untuk melakukan proses berulang

terhadap pernyataan sederhana atau pernyataan terstruktur.

Pernyataan Repeat (Repeat Statements)

ernyataan repeat (repeat statements) digunakan untuk melakukan

perulangan terhadap suatu pernyataan, dimana proses pemeriksaan

syaratnya berada pada akhir pernyataan repeat tersebut. Pernyataanpernyataan

yang ada pada repeat akan dijalankan (diulang terus) sampai

kondisi yang diseleksi di until tidak terpenuhi.

Pernyataan While (While Statements)

Program Sederhana dengan Pernyataan Kendali Case

Dengan contoh program yang sama untuk versi penyataan case dapat

dilihat pada program di bawah ini :

program P0202;

var

alas, tinggi, jejari, luas: Real;

pilih: Integer;

begin

Writeln('1. Segitiga 2. Lingkaran');

Readln(pilih);

case pilih of

1: begin

Readln(alas, tinggi);

luas := 1 / 2 * alas * tinggi;

Writeln('Luas Segitiga : ', luas);

End;

2: begin

Readln(jejari);

luas := pi * Sqr(jejari);

Writeln('Luas Segitiga : ', luas);

end;

end;

Readln;

end.

Dari bentuk-bentuk struktur kendali yang telah dijelaskan di atas

dapat terjadi dimana struktur kendali tertentu berada pada struktur

kendali yang lain, yang dikenal dengan struktur kendali bersarang.

Misalnya didalam pernyataan if terdapat pernyataan if lagi atau dalam

pernyataan case terdapat pernyataan if dan seterusnya.

Untuk lebih jelasnya salin program berikut :

contoh program record dan penjelasannya

anda ingin contoh program pascal khususnya penggunaan record

Salinlah program berikut ini :

program P0601;

type

tanggal = record

bulan, hari, tahun: integer;

end;

var

waktu: tanggal;

begin

waktu.hari :=25;

waktu.bulan:=09;

waktu.tahun:= 1983;

Writeln('hari ini adalah

',waktu.hari,':',waktu.bulan,':',waktu.tahun')

end.

Berikut ini akan diperkenalkan record dengan menggunakan array.

Salinlah program berikut ini :

array

Array merupakan struktur data yang statis, yaitu jumlah elemen yang

ada harus ditentukan terlebih dahulu dan tak bisa di ubah saat

program berjalan. Untuk menyatakan array dalam PASCAL kita harus

terlebih dahulu:

· Mendefinisikan jumlah elemen array,

· Mendefinisikan tipe data dari elemen array

Contoh :

const

N=10;

type

A= array [1..N] of integer;

                              

Macam-macam array