Senin, 06 Oktober 2014

Contoh program Array 1 dimensi dalam program pascal

Berikut contoh program array 1 dimensi menggunakan bahasa pemprograman pascal.

program paramarray;
uses crt;
const max = 100;type
bilangan = array [1..max] of integer;
procedure inputarray(A:bilangan; N:integer);
Var
i:integer;
Begin
Writeln ('Memasukkan data :');
For i := 1 to N do
write ('Masukkan nilai A[',i,']:');readln(A[i]);
end;
procedure OutputArray ( A:bilangan; N:integer);
var
i:integer;
begin
writeln ('Menampilkan data :');
for i :=1to N do
write ('A[',i,']=',A[i]);
end;
var
Arr:bilangan;
count:integer;
begin
clrscr;
write ('masukkan banyaknya elemen array:'); readln (count);
writeln;
outputArray (Arr, count);
readln;
End.









 




Inputan Array Sederhana dengan java.

Berikut contoh program java inputan data diri menggunakan array sederhana.



Program inputan data diri KTP.
public class latihan1{
public static void main ( String args [] ) {
String [] [] data = new String [][]
{{"Andriyani Ackatdiyah","Boyolali,25 April 1993","Jl.Damai Rt/Rw 14/01, Kalisari, Pasar Rebo","Muslim","Swasta"}};

System.out.println("Nama :" +data[0][0]);
System.out.println("Tempat, Tanggal Lahir :" +data[0][1]);
System.out.println ("Alamat :" +data[0][2]);
System.out.println("Agama :" +data[0][3]);
System.out.println("Pekerjaan :"+data[0][4]);}
}

 setelah di jalankan programnya seperti berikut.


E-commerce