record

Record
Kumpulan elemen-elemen data yang digabungkan menjadi satu kesatuan. Masing-masing elemen data tersebut dikenal dengan sebutan field. Field data tersebut memiliki data yang sama atapun berbeda.

Field-field tersebut digabungkan menjadi satu dengan tujuan untuk memudahkan. Misalnya ingin mencatat data-data pegawai atau mahasiswa atau pelajar dalam sebuah program. Record mahasiswa terdiri dari field-field NIM,Nama, alamat,IPK.Record Pelajar terdiri dari field-field nama, nomorurut,alamat,jumlahnilai.

Bentuk umum:
    type
    <namarecord>=record
                <datafield1>:<tipe1>;
                <datafield2>:<tipe2>;
End;
Contoh:
    type     mahasiswa = record
            Nim : string[10];
            nama:string[20];
            alamat:string[30];
            IPK : real;
    end;
    var
        mhs:mahasiswa;           
       

Untuk lebih jelasnya saya akan menampilkan contoh sederhana scrtip program penggunaan record dalam pascal yang mana untuk menampilkan table biodata.

program record;
uses wincrt;
type
    isi=record
              nama:string[30];
              nip:string[10];
              umur:integer;
     end;
var data:array[1..10] of isi;
   k,l:integer;
    m,n:byte;
   ulang:char;

begin
k:=0;
while ulang<>'t' do
      begin
      k:=k+1;

writeln('       form identitas ');
writeln('       ============== ');
      write('Nama : ');readln(data[k].nama);
      write('Nip : ');readln(data[k].nip);
      write('Umur : ');readln(data[k].umur);
      writeln;writeln;
      write('ulangi! y/t: ');readln(ulang);
       clrscr;
      end;
gotoxy(10,1);writeln('TABEL BIODATA');
gotoxy(1,2);write('+==========+=======+========+');
gotoxy(1,3);write('| Nama');
gotoxy(12,3);write('| NIP');
gotoxy(20,3);write('| Umur');
gotoxy(29,3);write('|');
gotoxy(1,4);write('+==========+=======+========+');
for l:=1 to k do
begin
gotoxy(1,4+l);write('| ',data[l].nama);
gotoxy(12,4+l);write('| ',data[l].nip);
gotoxy(20,4+l);write('| ',data[l].umur);
gotoxy(29,4+l);write('|');
end;
gotoxy(1,5+l);write('===========+=======+========+');
end.

bentuk run:

membuat grafik dengan array

Array:
    Merupakan suatu tipe data terstruktur yang terdiri dari sejumlah elemen (tempat) yang mempunyai  data yang sama.
Nama lain array adalah larik,tabel atau vektor.
Array dapat berupa satu dimensi, dua dimensi, tiga dimensi ataupun banyak dimensi
contoh penggunaan array

Membuat grafik dengan pascal
    Diini saya akan membuat sebuah grafik, yang mana dari grafik tsb menggunakan type array. alasan digunakannay array karena dalam sbuah grafik tentunya
yang di data adalah jenis data yang sama, dari data pertama hingga berikutnya dengan ini data yang berbeda. contohnya grafik tingkat penduduk. dari thn 1 hingga selanjutnya tentunya tidak mesti nilainya sama.


program grafik1;
uses wincrt;
var data               :array[1..10]of integer;
    a,pnddk            :integer;
    b,c,x              :byte;
begin
writeln('Tingkat Kependudukan');
gotoxy(20,3);writeln('Skala 1:100');
gotoxy(3,4);write('Y');
for b:=0 to 10 do
begin
gotoxy(0,15-b);
write(b);
end;
for a:=1 to 10 do
begin
gotoxy(3,15-a);
write('|');
end;
for c:=1 to 9 do
begin
gotoxy(4*c,15);
write('========');
end;
write('X');writeln;writeln;
gotoxy(25,17);writeln('tahun');
writeln;writeln;writeln('PERINGATAN!!');
write(' Bila input >10 maka grafik tidak membacanya');
for c:=1 to 8 do
begin
gotoxy(4*c,16);
write('0',c);
end;
for pnddk:=1 to 8 do
begin
    
gotoxy(45,4+pnddk);write(pnddk,'.Tingkat penduduk pd thn ke',pnddk,':');
readln(data[pnddk]);
if (data[pnddk]>10) then
   begin
   data[pnddk]:=0;
   end;

     {batang grafik}
     for x:=1 to data[pnddk] do
     begin
     gotoxy(4*pnddk,15-x);write('|',x,'|');
     end;
end;
end.

dari program diatas Maka didapat run seperti ini.