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

7 manusia tertinggi

1.Robert Wadlow,8′ 11.1″

Pasti sudah pada tahu dong dengan raksasa satu ini,pernah disiarin di salah satu televisi swasta di indonesia,Robert Wadlow adalah manusia raksasa tertinggi dalam sejarah. Dia sering disebut sebagai Alton raksasa karena ia datang dari Alton, Illinois. Pada saat kematiannya ia ditimbang 440 pon dan tidak menunjukkan tanda-tanda berhenti berkembang. Dia lahir tahun 1918, tertua dari lima bersaudara. Dia meninggal pada usia 22 tahun akibat infeksi yang disebabkan oleh lecet pada ankle. Peti mati-Nya ditimbang setengah ton dan 12 pallbearers diperlukan untuk melaksanakan. Dia telah dikuburkan dalam sebuah kubah solid beton, keluarganya memiliki ketakutan bilamana tubuhnya akan Diintervensi dengan rasa ingin tahu oleh para pencari berita.


2.Johan Aason,8′ 9-1/4″

memberi translator pada blogger

anda tentu tidak ingin visitor dari negara lain kecewa,,,,nah kalau begitu anda bisa memberi translator pada blog anda,,,caranya cukup mudah,,,tinggal ikuti langka-langkah di bawah ini:
1. Seperti biasa bukalah Akun Blog anda kawan.
2. Masuklah ke Rancangan / Design Blog anda.
3. Pilihlah Add Widget / Tambah Gadget pada rancangan.
4. Pilih lagi Add HTML/JavaScript
5. Copylah Script berikut di bawah ini.

<style>

.google_translate img {

filter:alpha(opacity=100);

-moz-opacity: 1.0;

opacity: 1.0;

border:0;

}

cara memberi translator pada blog

Anda memiliki sebuah blog???Tentu anda ingin memberi TRANSLATOR pada blog annda untuk berjaga-jaga kalua ada visitor dari negara lain tidak kecewa,,,,nah...kalau anda ingin memberi translator pada blog anda antum punya scripnya nih,,,,,
cara cukup mudah kok,,,,tinggal ikuti langkah-langkah di bawah ini,,,
1. masuk / log in ke blog anda
2. pilih setelan
3. tambah gadget
4. pilih HTML/JavaScript
5. masukkan scrip di bawah ini

7 orang teraneh di dunia

penampilan orang yang bermacam-macam kadang mebuat orang lainmerasa aneh,,,,
inilah beberapa orang teraneh versi saya:

1.  Mr. Michel Lotito: Tuan Pemakan Segala



Michel Lotito (1950), penghibur serba bisa dari Prancis,dilahirkan di Grenobel dan terkenal atas kemampuannya untuk memakan barang yang tidak dapat dicerna, dan membuatnya dikenal sebagai Monsieur Mangetout (tuan Pemakan Segala).
Penampilan Lotito termasuk dalam mengkonsumsi logam, kaca, karet dan lain sebagainya dari beberapa barang seperti sepeda, tv, pesawat Cessna 150, dan beberapa barang yang di bongkar dan dipotong kecil2 untuk kemudian ditelan. Pesawat Cessna 150 butuh dua tahun untuk sepenuhnya dimakan, mulai 1978 sampai 1980. Ia mulai makan barang2 aneh semenjak kecil dan mulai makan untuk hiburan mulai 1966. Ia jarang mengalami sakit akibat makanan yang dikonsumsinya, bahkan makan makanan yang dianggap beracun. Diperkirakan semenjak 1959 sampai 1997, Lotito telah makan 9 ton logam. Ada-ada aja nih orang ya gan...

2. [ Dr. Nakamatsu: Memfoto dan menganalisa semua makanannya selama 34 tahun.

7 tempat teraneh di dunia

inilah 7 tempat teraneh di dunia versi saya :

1.Pamukkale- Turki

Kolam aneh bertingkat yang indah, Pamukkale menjadi pusat perhatian selama hampir 2 milenium, namun masih belum juga termasuk dalam keajaiban dunia. Kolam yang berisi air panas ini terbentuk akibat gempa yang terjadi 2 ribu tahun lalu di Turki. Pamukkale berarti Kastil dari katun. Tepat di bagian atas permukaan tempat ini, Greco-Romans membangun sebua kota, Heirapolis yang berarti kota suci. Pamukkale sekarang telah ditetapkan sebagai salah satu warisan budaya dunia dari UNESCO. Tempat ini sudah ditutup umum, demi menjaga dari kerusakan.

2.Moeraki- Selandia Baru

Batu indah besar, bulat dan aneh ini terdapat di Pantai Koekohe, bagian dari pesisir Otago, Selandia Baru. Dikenal dengan Moeraki Boulders, terbentuk di dasar laun akibat sendimen yang bertambah. Pembentukannya hampir sama dengan pembentukan mutiara.

Legendanya, Maori dibawa oleh nenek moyang yang datang mengunakan perahu besar Araiteuru yang tenggelam karena gelombang besar dekat Matakaea.

3.Nine Hells od Beppu Jepang

 

Beppu terletak di pulau Kyushu, Jepang. Beppu merupakan penghasil air geothermal kedua terbesar di dunia. Di tempat ini terdapat “Nine Hells” atau kolam yang memiliki karakter dan warna yang berbeda. “Hells” ini merupakan tempat wisata terkenal di Jepang.

4.Las Caadas Tenerife

Pada puncak Gunung Teide, salah satu gunung berapi di Pulau terbesar di dunia, terdapat  Kaldera Las Caadas. Kawahnya terlihat seperti Neraka yang tidak terlalu panas. Dinding-dinding kawah terbentuk dari reruntuhan kaldera. Las Caadas merupakan tempat kering dan asing, terletak di Tenefire, Kepulauan Canary.

5.Great Blue Hole of Bezile

Great Blue Hole terletak di Light House Reef sekitar pertengahan antara panjang Caye dan Sandbore Caye. Great Blue Hole terletak 60 mil timur dari daratan Belize (kota). Pada tahun 1997 ia ditetapkan sebagai situs Warisan Dunia.

6.Pintu Neraka Turkmenistan

Di Gurun Kara-Kum, Turkmenistan, terdapat desa Darvaza. Desa ini dekat dengan tempat pengeboran gas alam yang dilakukan tim prospector Soviet. Akibat penggalian ini, atap dari sebuah gua besar rubuh dan meninggalkan sebuah kawah berdiameter 25 meter dengan kedalaman kira-kira 60-70 meter. Dan dari dalam kawah yang terbentuk ini selalu keluar gas alam panas yang beracun. Penduduk lokal menamakan kawah ini sebagai “pintu neraka”. Tetapi ada juga yang mengatakan, bahwa ini merupakan sebuah petunjuk dari Tuhan, dan mengklaim bahwa ini sepenuhnya fenomena alam.

7.Sanqingshan China

Sanqinshan merupakan taman nasional dekat dengan kota Shangrao, Provinsi Jiangxi, China. Taman Nasional ini resmi menjadi salah satu site warisan dunia yang ditunjuk China. Daerah ini merupakan kombinasi granit geologi yang luar biasa, membentuk singkapan aneh dan pilar-pilar yang dikombinasikan dengan iklim musiman. Sehingga menyebabkan kabut, asap dan matahari terbenam yang mencolok. Perasaan damai langsung terasa jika kita ke tempat ini, karena di sini kita dapat melihat empat elemen bumi (air, api, bumi, udara) secara bersamaan.(hh)