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.
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