array

Menggunakan Array dalam bahasa pempograman pascal dan C++

Array adalaah merupakan jenis data terstruktur yangterdiri dari sejumlah komponen yang mempunyai tipe data yang sama.

Program array pada pascal

Listing program

program array_warnet;

uses crt;

const max=50;

type

Twarnet = record

     NAMA : string [25] ;

     KOMPI : string [8] ;

     JAM : array [1..2] of real;

end;

Tkumpulanwarnet = array[1..max] of Twarnet;

var

A : Tkumpulanwarnet;

i,N: Integer;

NA: real;

durasi:real;

begin

clrscr;

writeln ('=====> PROGRAM DATA WARNET <=====');

writeln ('---------------------------------');

write ('Masukan Data yg ingin diisikan :');

readln(N);

writeln ;

writeln ('=+=+ MASUKAN DATA ANDA +=+=    ');

writeln ('---------------------------');

for i:= 1 to N do begin

writeln('Data Pengunjung ke-',i);

with A[i] do begin

write ('NAMA             :'); readln(NAMA);

write ('Komputer         : KE-'); readln(KOMPI);

write ('Mulai Jam        : '); readln(JAM[1]);

write ('Selsai Jam       : '); readln(JAM[2]);

end;

writeln;

end;

writeln('Menampilkan Data');

writeln('------------------------------------');

writeln('NAMA':5,'':2, 'KOMPI':2, '':2,'BAYAR');

writeln('------------------------------------');

for i:=1 to N do begin

with A[i] do begin

NA:= (JAM[1]*JAM[2])/2 ;

write(NAMA:5, '':2, KOMPI:2, '' :3, NA:0:3);

end;

writeln;

end;

readln;

end.

Input program

Output program

Program array dalam C++

Listing program

 #include <iostream.h>

 #include <conio.h>

 void main()

 {

  int data[3][3];

  int rata, total = 0;

  //input data ke array

  for (int k=0;k<3;k++)

  {

  for (int j=0;j<3;j++)

  {

  cout<<"masukkan data["<<k<<"]["<<j<<"] = ";

    cin>>data[k][j];

    }

    }

    //menghitung total nilai pada array

    for (int m=0;m<3;m++)

    {

     for (int n=0;n<3;n++)

     {

      cout<<data[m][n]<<" ";

      total = total + data[m][n];

      }

      cout<<""<<endl;

      }

      //menghitung rata - rata

     rata = total / 3;

     cout<<"rata - rata data pada array = "<<rata<<endl;

     getch();

     }

 

Input program 

Output program