array dan record

    ARRAY

            Array adalah variable yang dapat menyimpan lebih dari satu nilai sejenis, dan juga terdapat dua bagian penting yaitu elemen array yang merupakn nilai dan indeks array yang merupakan nilai urut untuk mengakses nilai pada array.

    RECORD

            Record adalah suatu struktur data yang berisi sejumlah komponen yang dinamakan field, setiap field bisa berbeda tipenya, setiap field harus memiliki nama yang berbeda untuk memungkinkan field secara acak.

Ø CONTOH ARRAY:

Uses wincrt;

Const

Max=5;

Type

Kartun=array [1…max] of string[10];

Var

Jnskartun: kartun;

I:integer;

Begin

For i:=1 to max do

Jnskartun[1]:=’naruto’;

Jnskartun[1]:=’avatar’;

Jnskartun[1]:=’oscar’;

Jnskartun[1]:=’doraemon’;

Jnskartun[1]:=’dora expoler’;

Ø CONTOH RECORD:

Uses wincrt;

Var nama,npm,alamat,tempat_lahir,tanggal_lahir,jenis_kelamin,no_telepon:string;

Begin

Write(‘masukkan nama : ‘ );readln(nama);

Write(‘masukkan npm   : ‘);readln(npm);

Write(‘masukkan alamat : ‘);readln(alamat);

Write(‘masukkan tempat lahir : ‘);readln(tempat_lahir);

Write(‘masukkan tanggal lahir : ‘);readln(tanggal_lahir);

Write(‘masukkan jenis kelamin : ‘);readln(jenis_kelamin);

Write(‘masukkan no telepon : ‘);readln(no_telepon);

Writeln;

Writeln(‘mahasiswa’);

End.