beberapa index array dalam pemrogaman PHP

Dalam PHP, indeks untuk array dapat berupa numerik dan dapat pula berupa suatu nilai atau yang sering disebut dengan array assosiatif. 

Array Berindeks Numerik

Sintaks umum untuk menyatakan suatu array berindeks numerik beserta nilainya adalah

$nama_array[$key] = value;

Dalam hal ini $key berupa bilangan bulat mulai dari 0, 1, 2, …

Contoh:

$karyawan[0] = "Bob";
$karyawan[1] = "Sally";
$karyawan[2] = "Charlie";
$karyawan[3] = "Clare";

Sedangkan berikut ini adalah contoh untuk menampilkan nilai dari suatu array berindeks numerik.

<?
$karyawan[0] = "Bob";
$karyawan[1] = "Sally";
$karyawan[2] = "Charlie";
$karyawan[3] = "Clare";

echo "Berikut ini adalah 2 orang karyawan saya, yaitu " . $karyawan[0] . " & " . $karyawan[1];
echo "<br>Dua orang karyawan saya yang lain adalah ". $karyawan[2] . " & " . $karyawan[3];
?>

Array Assosiatif

Untuk array assosiatif, sintaksnya sama dengan array berindeks numerik namun perbedaannya adalah pada $key. Pada array assosiatif, $key dapat berupa suatu string. Berikut ini adalah contohnya.

$gaji["Bob"] = 2000;
$gaji["Sally"] = 4000;
$gaji["Charlie"] = 600;
$gaji["Clare"] = 0;

Dan berikut ini adalah contoh kode untuk menampilkan nilai dari array assosiatif

<?
$gaji["Bob"] = 2000;
$gaji["Sally"] = 4000;

$gaji["Charlie"] = 600;
$gaji["Clare"] = 0;

echo "Bob digaji -$" . $gaji["Bob"] . "<br>";
echo "Sally digaji -$" . $gaji["Sally"] . "<br>";
echo "Charlie digaji -$" . $gaji["Charlie"] . "<br>";
echo "dan Clare digaji -$" . $gaji["Clare"];
?>

Read More

Latihan Pembuatan Array,procedure dan function menggunakan Pascal Part 3

Mungkin banyak yang uda paham m pascal saya cuma ingi share apa yang saya dapat waktu kuliah, ini merupakan praktek jaman semester 3. Jauh sekali dari harapan semester 3 baru dapat pascal sungguh ironis sekali. tapi tak apa yang penting terlambat dari pada tidak sama sekali. berikut ini scrip pascal pembuatan array, procedur dan function.

Program arr_pro_fun;

uses crt;

var

km,mt,wk:array[1..15] of string;

kw:array[1..15] of char;

b1,b2,tl: array [1..15] of longint;

nm,al:string[25];

tb:longint;

i,n:byte;

jwb:char;

procedure garis;

begin

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

end;

procedure input;

begin

tb:=0;

clrscr;

garis;

writeln('                  LPK GLOBAL NETWORK');

garis;

writeln('| Kode | Materi Kursus | Biaya1 | KW | Waktu | Biaya2 |');

garis;

writeln('| MT01 | Visual Basic  | 150.000|  A | Pagi  |   75.000|');

writeln('| MT02 | Visual Foxpro | 175.000|  B | Sore  |  100.000|');

writeln('| MT31 | Internet      | 200.000|----------------------');

garis;

writeln;

write('Masukan Nama          = ');readln(nm);

write('Masukan Alamat        = ');readln(al);

write('Masukan Jumlah Kursus = ');readln(n);

garis;

for i:=1 to n do

 begin

  writeln('Materi Kursus Ke-',i);

  writeln;

  write('Masukan Kode Materi  = ');readln(km[i]);

  if (km[i]='MT01') or (km[i]='mt01') then

   begin

   mt[i]:='Visual Basic';

   b1[i]:=150000;

   end

  else if (km[i]='MT02') or (km[i]='mt02') then

   begin

   mt[i]:='Visual Foxpro';

   b1[i]:=175000;

   end

  else

   begin

   mt[i]:='Internet';

   b1[i]:=200000;

   end;

write('Masukan Kode Waktu   = ');readln(kw[i]);

    writeln;

    if upcase(kw[i])='A' then

     begin

     wk[i]:='Pagi';

     b2[i]:=75000;

     end

    else

     begin

     wk[i]:='Sore';

     b2[i]:=100000;

     end;

 end;

end;

function hitung:longint;

begin

 for i:=1 to n do

 begin

  tl[i]:=b1[i]+b2[i];

 end;

end;

procedure output;

begin

clrscr;

writeln('                  LPK GLOBAL NETWORK');

garis;

writeln('Nama   = ',nm);

writeln('Alamat = ',al);

garis;

writeln('NO MATERI KURSUS WAKTU BIAYA1     BIAYA2     TOTAL');

garis;

for i:=1 to n do

 begin

  gotoxy(2,7+i);writeln(i);

  gotoxy(4,7+i);writeln(mt[i]);

  gotoxy(18,7+i);writeln(wk[i]);

  gotoxy(24,7+i);writeln('Rp.',b1[i]);

  gotoxy(35,7+i);writeln('Rp.',b2[i]);

  gotoxy(46,7+i);writeln('Rp.',tl[i]);

  tb:=tb+tl[i];

 end;

garis;

writeln('Total bayar = ','Rp.':34,tb:4);

writeln;

end;

begin

input;

hitung;

output;

readln;

end.

Read More

Latihan Pembuatan Array menggunakan Pascal Part 3

Latihan ini merupakan latihan ketiga dalam pembuatan array menggunakan Pascal. ( Lihat Part 1 dan Lihat Sebelumnya )

Latihan 3:

program array_loop;

uses crt;

var

nilai:array[1..5] of integer;

i,n:integer;

begin

clrscr;

write('Masukan Jumlah Data = ');readln(n);

for i:=1 to n do

begin

writeln('Data ke-',i);

write('Masukan Nilai ke- ',i, ' = ' );readln(nilai[i]);

end;

clrscr;

   writeln( 'Daftar Nilai ');

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

   writeln('No   Nilai    ');

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

  for i:=1 to n do

  begin

   writeln(i:2, nilai[i]:6);

  end;

readln;

end.

Read More

Latihan Pembuatan Array menggunakan Pascal Part 2

Latihan kedua ini merupakan Latihan pembuatan array pada pascal. ( Lihat Sebelumnya )

L atihan 2:

program contoh_array;

uses crt;

var

bunga:array[1..5] of string;

i:byte;

begin

clrscr;

writeln('Nama Bunga Menggunakan Array');

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

for i:=1 to 5 do

begin

writeln('Nama Bunga ke-',i);

write('Nama Bunga:');readln(bunga[i]);

writeln;

end;

writeln('No    Nama Bunga ');

for i:=1 to 5 do

writeln(i:1,bunga[i]:10);

readln;

end.

Read More

Latihan Pembuatan Array menggunakan Pascal Part 1

Array (Larik) adalah tipe yang terstruktur yang terdiri dari sejumlah komponen yang memiliki tipe data yang sama. Banyaknya komponen dalam sebuah array ditunjukan oleh suatu index untuk membedakan variabel yang satu dengan variabel yang lainnya.

Struktur:

    Nama_array: array [type index] of type data;

Contoh Penulisan:

 Nilai:array [1..10] of integer;

Sebagian dari elemen-elemen nilai adalah:

 Nilai[1]:=11;

 Nilai[2]:=12;

    

Latihan 1:

program array1;

uses crt;

var

nilai:array[1..5] of integer;

begin

clrscr;

Nilai[1]:=11;

Nilai[2]:=12;

Nilai[3]:=13;

Nilai[4]:=14;

Nilai[5]:=15;

writeln(Nilai[1]);

writeln(Nilai[2]);

writeln(Nilai[3]);

writeln(Nilai[4]);

writeln(Nilai[5]);

readln;

end.

Read More