![CONTOH ARRAY
program Khasus1;
uses wincrt;
var
nama : array [1..3] of string[30];
alamat : array [1..3] of string[10];
umur : array [1..3] of integer;
i : integer;
begin
nama[1] := 'Yusri';
alamat[1] := 'Kuta Blang';
umur[1] := 20;
nama[2] := 'Ikhsan';
alamat[2] := 'Matang ';
umur[2] := 20;
nama[3] := 'Fauzan';
alamat[3] := 'Bireuen';
umur[3] := 20;](https://image.slidesharecdn.com/arraydanrecord-151027054452-lva1-app6891/85/Array-dan-record-4-320.jpg)
![For i := 1 to 3 do
Begin
writeln('nama nya adalah : ', nama[i]);
writeln('alamat nya adalah : ', alamat[i]);
writeln('umur nya adalah : ', umur[i]);
writeln(' ');
End;
end.](https://image.slidesharecdn.com/arraydanrecord-151027054452-lva1-app6891/85/Array-dan-record-5-320.jpg)
More Related Content
Viewers also liked (11)
Similar to Array dan record (20)
Recently uploaded (20)
Array dan record
- 2. Array Dan Record A.Pengertian Array Array adalah sekumpulan variabel yang memiliki tipe data yang sama dan dinyatakan dengan nama yang sama. Array merupakan konsep yang penting dalam pemrograman, karna array memungkinkan untuk menyimpan data maupun referensi objek dalam jumlah banyak dan terindeks. Array menggunakan indeks integer untuk menentukan urutan elemen-elemennya, dimana elemen pertamanya dimulai dari indeks 0,elemen kedua memiliki indeks 1, dan seterusnya.
- 3. B.Pengertian 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).
- 4. CONTOH ARRAY program Khasus1; uses wincrt; var nama : array [1..3] of string[30]; alamat : array [1..3] of string[10]; umur : array [1..3] of integer; i : integer; begin nama[1] := 'Yusri'; alamat[1] := 'Kuta Blang'; umur[1] := 20; nama[2] := 'Ikhsan'; alamat[2] := 'Matang '; umur[2] := 20; nama[3] := 'Fauzan'; alamat[3] := 'Bireuen'; umur[3] := 20;
- 5. For i := 1 to 3 do Begin writeln('nama nya adalah : ', nama[i]); writeln('alamat nya adalah : ', alamat[i]); writeln('umur nya adalah : ', umur[i]); writeln(' '); End; end.