TYPE DATA ARRAY YANG
DIGUNKAN PADA PROGRAM PASCAL.
DEFENISI ARRAY.
Array adalah suatu tipe data terstruktur,
yang berisi lebih dari satu data dan
merupakan kumpulan data-data yang sejenis.
Var
Variabel : array[1..max] of
TipeData ;
{TipeData dapat berupa string,
integer, real}
contoh :
Var Nama : array[1..100] of string;
Usia : array[1..100] of integer;
Upah : array[1..100] of real;
Dengan melihat deklarasi variabel array
maka dapat dibayangkan bahwa dalam data
akan dapat menampung/ disusun sebagai
berikut :
Nama[1] Usia[1] Upah[1]
Nama[2] Usia[2] Upah[2]
Nama[…] Usia[…] Upah[…]
Nama[100] Usia[100] Upah[100]
Mengapa harus memakai Array ?
Karena dalam proses data
perulangan yang diinputkan berulang-ulang jika akan
dimunculkan/ ditampilkan kembali
maka data yang terakhir sajalah yang akan muncul.
Jika menggunakan Array maka data
yang diinputkan berulang-ulang akan disimpan
dalam array sehingga jika
dimunculkan kembali akan tampil data dari 1 sampai ke sekian.
Misalkan kalau kita memprogram dengan perulangan:
Kasus 3.1 tidak menggunakan ARRAY
:
Uses crt,dos;
Var Nama : string;
I,N:integer;
Begin
N:= 3
For I := 1 to n do
begin
Write(‘Masukkan Nama :‘);
Readln(nama);
End;
For I := 1 to n do
begin
Writeln(‘Nama :‘,nama);
End;
End.
Run
Masukkan Nama : IPTTI
Masukkan Nama : Yogyakarta
Masukkan Nama : School
Nama : School
Nama : School
Nama : School
Sehingga untuk input IPTTI, Yogyakarta akan
tidak tampil dan yang tampil hanya
School semua sehingga seolah-olah data nama
1, data nama 2, dihapus dalam memori.
Untuk mengatasinya maka kita menggunakan
program ARRAY.
Penyelesaian Kasus 3.1 maka menggunakan ARRAY :
Uses crt,dos;
Var Nama : array[1..100] of string;
I,N:integer;
Begin
N:= 3
For I := 1 to n do
begin
Write(‘Masukkan Nama :‘);
Readln(nama[I]);
End;
For I := 1 to n do
begin
Writeln(‘Nama :‘,nama[I]);
End;
Readln;
End.
Run
Masukkan Nama : IPTTI
Masukkan Nama : Yogyakarta
Masukkan Nama : School
Nama : IPTTI
Nama : Yogyakarta
Nama : School
Contoh 3.2 :
Program hari;
Var
Hari :
K: integer;
Begin
Hari[1] := ’SENIN’; Hari[2] :=
’SELASA’; Hari[7] := ‘ MINGGU’;
Hari[3] := ‘RABU’; Hari[4] :=
‘KAMIS’;
Hari[5] := ‘JUM’AT’; Hari[6] :=
‘SABTU’;
Repeat
Write(‘Hari ke berapa ? ‘);
Readln(K);
If ( K>0) and (K<8) then
Writeln(‘Hari : ‘,Hari[K]);
Until K=0;
End.
Run
Hari ke berapa ? 1 <enter>
Hari : SENIN
Contoh berikut akan membaca nama mahasiswa
dan nilai dalam suatu array. Nilai >55 lulus.
Dan program ditampilkan semua berupa nama
mahasiswa dan nilai serta kelulusan.
Contoh 3.3 :
Program nilai;
Const max=100;
Var
Nama : array[1..max] of string[20];
Nilai : array[1..max] of real;
Hasil : array[1..max] of
string[10];
N,j : integer;
Begin
Write(‘Jumlah Siswa : ‘);
Readln(N);
Writeln(‘Memasukkan Data’);
For J := 1 to N do
Begin
Write(‘Nama Siswa : ’);
Readln(Nama[J]);
Write(‘Nilai Angka : ‘);
Readln(Nilai[J]);
If Nilai[J]>55 Then Hasil[J] :=
‘LULUS’
Else Hasil[J] := ‘GAGAL’;
End;
Writeln(‘Hasil Daftar Nilai‘) ;
Writeln(‘--------------------------------------------------‘);
Writeln(‘ Nama Nilai Hasil ‘);
Writeln(‘--------------------------------------------------‘);
For J := 1 to N do
Begin
Writeln(Nama[J]:15,Nilai[J]:10:2
,Hasil[J]:15);
Writeln(‘--------------------------------------------------‘);
End;
End.
Run
Jumlah Siswa : 2 <enter>
Memasukkan Data
Nama Siswa : Herdiansyah
Nilai Angka : 80 <enter>
Nama Siswa : Arman
Nilai Angka : 44 <enter>
Hasil Daftar Nilai
------------------------------------------------------
Nama Nilai Hasil
------------------------------------------------------
Herdiansyah 80 LULUS
Arman 44 GAGAL
0 Response to "TYPE DATA ARRAY YANG DIGUNKAN PADA PROGRAM PASCAL."
Post a Comment