Aljan Array dan Record
Apr 15, 2009 No Comments
ARRAY
Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama.
LISTING PROGRAM:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | program aljan; Uses winCrt; Var nil1 : Array[1..100] of Integer; n,i,j,dum : Integer; Begin ClrScr; Write('mau isi berapa data acak (integer) ='); readln(n); For i := 1 to n Do Begin Write('Data Ke ',i,':');Readln(nil1[i]); End; {* penyapuan proses} for i:= 1 to n-1 do begin for j:= i to n do begin if nil1[j] begin dum:=nil1[j]; nil1[j]:=nil1[i]; nil1[i]:=dum; end; end; end; writeln; writeln('Hasil Sortir'); for i := 1 to n do write(nil1[i]:3); readln; end. |
RECORD
Record adalah kumpulan elemen-elemen data yang digabungkan menjadi satu kesatuan.
LISTING PROGRAM :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | uses wincrt; type Mahasiswa = Record Nama :string[30]; NIM :string[10]; Alamat :string[50]; end; var mhs:Mahasiswa; Begin clrscr; write('Nama : ');readln(Mhs.Nama); write('NIM : ');readln(Mhs.NIM); write('Alamat : ');readln(Mhs.Alamat); writeln; writeln('Nama Anda : ',Mhs.Nama); writeln('NIM Anda : ',Mhs.NIM); writeln('Alamat Anda : ',Mhs.Alamat); end. |