tugas array

contoh program array dalam pascal

A.    Program Pascal

program array_wartel;

uses crt;

const max=50;

type

Twartel = record

     NAMA : string [25] ;

     KOMPI : string [8] ;

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

end;

Tkumpulanwartel = array[1..max] of Twartel;

var

A : Tkumpulanwartel;

i,N: Integer;

NA: real;

durasi:real;

begin

clrscr;

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

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 ('Telpon         : KE-'); readln(KOMPI);

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

write ('Selsai Menit       : '); 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.

Listing program pascal.

 

output

 

C++ aray

#include <stdio.h>

#include <conio.h>

#include <iostream.h>

#include <iomanip.h>

main()

{

char   nim[8][10],nm[20][10],jwb;

int    i,j;

float   n1[10],n2[10],na[10];

isi:

clrscr();

cout<<"Masukan Jumlah Data     : ";cin>>j;

for (i=1;i<=j;i++)

{

cout<<"Data Ke -  : "<<i<<endl;

cout<<"Masukan NIM\t : ";cin>>nim[i];

cout<<"Masukan Nama\t : ";gets(nm[i]);

cout<<"Nilai 1 \t : ";cin>>n1[i];

cout<<"Nilai 2 \t : ";cin>>n2[i];

na[i]=(n1[i]+n2[i])/2;

cout<<endl;

}

cout<<"                     DATA MAHASISWA"<<endl;

cout<<"=============================================="<<endl;

cout<<"No.    NIM           Nama            Nilai    "<<endl;

cout<<"                                              "<<endl;

cout<<" "<<endl;

for (i=1;i<=j;i++)

{

cout<<setiosflags(ios::right)<<setw(3)<<i;

cout<<setprecision(3)<<"   "<<nim[i];

cout<<setprecision(4)<<"        "<<nm[i];

cout<<setprecision(5)<<"              "<<na[i]<<endl;

}

cout<<"============================================"<<endl;

cout<<"Mau Input Data Lagi [Y/T] : ";jwb=getche();

if (jwb=='Y'||jwb=='y')

goto isi;

getch();

}

Listing program c++

Ouputnya.