Selasa, 26 Juni 2012

Array dan kegunaannya

Array hampir sama dengan tabel, dimana tabel tersebut adalah sekumpulan elemen yang pada setiap isinya dapat diakses/dipanggil dengan memanggil indeksnya saja. Array biasa digunakan untuk menyipan banyak data dalam sebuah tabel tersetruktur.
Array sangat penting dalam hal penyimpanan data pada pemrograman, karena alokasi tempat dalam sebuah array tergantung dari kebutuhan.

Sebagai gambaran, misal seperti ini, disebuah program dibutuhkan tempat untuk menyimpan sepuluh nilai, pakah harus dibuat sepuluh buah variabel? Jika jawabnya ya, maka nanti dalam pengaksesannya akan menjadi sangat rumit.
Berikut adalah sebuah contoh kasus penggunaan Array.

  • Buatlah program untuk menampilkan nama dan nilai ujian dari beberapa mahasiswa yang diinputkan melalui keyboard !
Input:
Banyak Data: ...
Nama : ...
Nilai  : ...
Output:
 NAMA             NILAI
====================
 Edi Winarko     90
 Budi Suwignyo 80
======================
Rata2                  85.00

Disini saya hanya akan membuat langsung programmnya dengan pascal, untuk flowchartnya dipelajari sendiri.

berikut kode programnya :
uses wincrt;
var nama: array[1..10] of string;
    nilai:array[1..10] of integer;
    rata:real;
    jum:integer;
    n:integer;
    i:integer;
begin                                                    
  write('jumlah nilai yang akan diinputkan ? ');readln(n);
  writeln;
  i:=0;
  for i:=1 to n do
  begin
  writeln('data ke - ',i);
  write('masukkan nama : ');readln(nama[i]);
  write('masukkan nilai: ');readln(nilai[i]);
  writeln;
  jum:=jum+(nilai[i]);
  end;
  clrscr;
  writeln('---------------------------------------');
  writeln('| No | Nama                 | Nilai   |');
  writeln('---------------------------------------');
  i:=0;
  for i:=1 to n do
  begin
 
  gotoxy(1,3+i);write('| ',i);
  gotoxy(6,3+i);write('| ',nama[i]);
  gotoxy(29,3+i);write('| ',nilai[i]);
  gotoxy(39,3+i);writeln('|');
    
  end;
  writeln('-------------------------------------');
  rata:=jum/n;
  write('Nilai rata - rata');
  gotoxy(31,5+n);writeln(rata:0:2);
end.

Diprogram tersebut saya hanya menggunakan batasan input data sebanyak 10 data, kalian dapat menambahkan lagi untuk jumlah data yang lebih banyak. 

Tidak ada komentar:

Posting Komentar