1. Program Sederhana Array Menggunakan Bahasa Pascal
Listing Program
program Array_nilaiminmaks;
uses crt;
var
n,i,j,temp,min,maks:integer;
nilai:array[1..20] of integer;
nama:array[1..20] of string;
begin
clrscr;
write('Masukkan banyaknya data (maksimal 20) : ');
readln(n);
{mengisi data ke array}
writeln('Memasukkan Data ke Array');
for i:=1 to n do
begin
writeln('Data ke :',i
);
write('Masukkan nama
:');
readln(nama[i]);
write('Masukkan nilai :
');
readln(nilai[i]);
end;
writeln;
writeln('Menampilkan isi array');
{menampilkan isi array}
for i:=1 to n do
begin
writeln('Data ke :',i);
writeln('Nama
:',nama[i]);
writeln('Nilai
:',nilai[i]);
end;
min:=nilai[i];
maks:=nilai[i];
for i:=1 to n do
begin
if nilai[i]<min then
min :=nilai[i];
if nilai[i]>maks
then maks :=nilai[i];
end;
writeln;
writeln;
writeln('Nilai Minimum sebelum diurutkan : ',min);
writeln('Nilai Maksimum sebelum diurutkan : ',maks);
{mengurutkan isi array}
for i:=1 to n do
begin
for j:=i+1 to n do
begin
if nilai[i]>nilai[i] then
begin
temp:=nilai[i];
nilai[i]:=nilai[j];
nilai[j]:=temp;
end;
end;
end;
{menampilkan isi array}
writeln;
writeln('Isi array setelah diurutkan');
for i:=1 to n do
write(nilai[i]:3);
{menampilkan min nd maks }
writeln;
writeln;
writeln('Nilai Mins : ',nilai[1]);
writeln('Nilai Maks : ',nilai[n]);
readln;
end.
Output Program
2. Program Sederhana Array Menggunakan Bahasa C++
Listing Program
#include
<iostream.h>
int
a[5]={6,7,8,9,10},jumlah=5;
void
input(int data,int i) {
a[i]
= data;
}
void
tampil(int nElemen) {
for(int
i=0; i<nElemen; i++)
cout
<< a[i] << " ";
cout
<< endl;
}
void
main() {
int
data;
cout
<< "Belum ada perubahan data array" << endl;
tampil(jumlah);
for(int
i=0; i<jumlah; i++){
cout
<< "a[" << i << "] = ";
cin
>> data;
input(data,i);
}
cout
<< "Setelah ada perubahan data array" << endl;
tampil(jumlah);
}
Output Program