Minggu, 21 Oktober 2012

PASCAL ARRAY 1DIMENSI



Pengertian Array

Array adalah sistem data terstruktur yang berguna untuk menyimpan sejumlah data yang bertipe sama. Bagian yang menyusun array disebut element array, yang masing-masing element dapat di akses tersendiri melalui indeks array.  Banyaknya komponen dalam array ditunjukkan oleh suatu index, dimana tiap komponen di array dapat diakses dengan menunjukkan nilai indexnya atau subscript. Array dapat bertipe data sederhana seperti byte, word, integer, real, bolean, char, string dan tipe data scalar atau subrange.  Tipe array mengartikan isi dari aray atau komponen- komponenya mempunyai nilai dengan tipe data tersebut.

 Macam-macam Array yaitu :

 1.       Array Dimensi Satu

 Bentuk umum array dimensi satu yaitu :

 ARRAY [1..10] of tipe_data ; Contohnya yaitu : VarNilai : ARRAY[1..10] Of Integer;

Pada contoh Array dengan nama Nilai telah dideklarasikan dengan tipe integer, dengan jumlah elemen maksimum 10 elemen, nilai dari elemen array tersebut diatas harus bertipe integer.
Untuk memberikan nilai kedalam variabel array berdimensi satu, nama variabel diikuti dengan index yang berada didalam kurung siku. Seperti contoh dibawah ini :

Nilai[1] := 75;Nilai[2] := 85;Nilai[3] := 74;......dan seterusnya Contoh lain Array Dimensi Satu adalah : Buat nama program “ Program Penggunaan Array Dimensi Satu ”

Ketikan codingan seperti ini :
PROGRAM PENGGUNAAN_ARRAY_DIMENSI_SATU;
Uses Crt;
VAR
A,N, Jml_Nilai : Integer;
Nilai : ARRAY[1..10] Of Integer;
Nil_Rata : Real;
BEGIN
ClrScr;
WriteLn('Program Latihan Array');
WriteLn('=====================');
WriteLn;
{Memasukan Nilai}
Write('Masukan Banyak Data : ');
ReadLn(N);
FOR A := 1 TO N DOBegin
Write('Nilai Ke- ',A,' = ');
ReadLn(Nilai[A]);
End;
{Membaca Nilai Array}
Nil_Rata := 0;
Jml_Nilai := 0;
FOR A := 1 TO N DOBegin
Jml_Nilai := Jml_Nilai + Nilai[A];
Write('Nilai Ke- ',A,' = ',Nilai[A]);
End;
Nil_Rata := Jml_Nilai / N;
WriteLn('');
WriteLn('Jumlah Nilai    : ',Jml_Nilai);
WriteLn('Nilai Rata-Rata : ',Nil_Rata:5:2);
readLn;
end.  


Contoh lain Array dimensi satu dengan input Nama, NPM , nilai tugas , nilai uts , dan nilai uas adalah seperti ini :


uses crt;
var nama,NPM:array[1..10]of string;
tugas,uts,uas,absen:array[1..30]of integer;
rata:array[1..30]of real;
x,jd:byte;
begin
clrscr;
write(' masukan jumlah data:' );readln (jd);
for x := 1 to jd do
begin
writeln (' -------------------------------');
writeln (' PENILAIAN UJIAN MAHASISWA GUNADARMA');
writeln ('--------------------------------');
write ('input nama:');readln(nama[x]);
write ('input NPM:');readln(NPM[x]);
write ('input nilai tugas:');readln(tugas[x]);
write ('input nilai absen:');readln(absen[x]);
write ('input nilai uts:');readln(uts[x]);
write ('input niali uas:');readln(uas[x]);
rata[x]:=(0.1*tugas[x])+(0.2*absen[x])+(0.3*uts[x])+(0.4*uas[x]);
end;
clrscr;
for x := 1 to jd do
begin
writeln ('----------------------------------');
begin
writeln ('PENILAIAN UJIAN MAHASISWA GUNADARMA');
writeln ('----------------------------------');
writeln ('nama:',nama[x]);
writeln ('NPM:',NPM[x]);
writeln ('nilai tugas:',tugas[x]);
writeln ('nilai absen:',absen[x]);
writeln ('nilai uts:',uts[x]);
writeln ('nilai uas:',uas[x]);
writeln ('-----------------------------------');
writeln ('rata rata :',rata[x]:2:0);
readln;
end;
end.
Memberikan Nilai ke Array Dimensi Satu
 


Tidak ada komentar:

Poskan Komentar