<HTML>
<HEAD>
<TITLE> array multi dimensi </TITLE>
</HEAD>
<BODY>
<H3><B><blink><FONT SIZE="5" COLOR="#6600FF">DAFTAR HARGA HEWAN</blink></H3></B></FONT>
<FORM METHOD=POST>
<table border=1>
<tr><td>TOKO SETIA</td>
<td colspan=3 align=center>Harga Hewan/Jenis</td></tr>
<tr><td>Nama Hewan</td>
<td>Biasa</td>
<td>Sedang</td>
<td>Spesial</td>
</tr>
<?php
$NamaHewan=array(
"Anjing"=>array(100000,1200000,1500000),
"Monyet"=>array(60000,90000,120000),
"Kodok"=>array(900000,1000000,1350000),
"Kambing"=>array(1200000,1100000,1500000),
"Nyamuk"=>array(800000,1150000,1300000),
"Komodo"=>array(1200000,1100000,1500000),
"Kucing"=>array(300000,500000,700000),
"Ayam"=>array(6500000,4600000,8000000),
"Badak"=>array(7500000,6600000,5000000),
"Hamster"=>array(3500000,8600000,2000000));
while(list($Nh,$nilai1)=each($NamaHewan)){
echo("<tr><td>$Nh</td>");
while(list($indeks2,$nilai2)=each($nilai1)){
echo("<td>Rp. $nilai2</td>");
}
echo("</tr>");
}
?>
</table>
<FORM METHOD=POST>
TOKO Setia<br>
NAMA Hewan :
<select name="Nh">
<option selected value="Pilih">--Pilih--</option>
<option value="Anjing">Anjing</option>
<option value="Monyet">Monyet</option>
<option value="Kodok">Kodok</option>
<option value="Kambing">Kambing</option>
<option value="Nyamuk">Nyamuk</option>
<option value="Komodo">Komodo</option>
<option value="Kucing">Kucing</option>
<option value="Ayam">Ayam</option>
<option value="Badak">Badak</option>
<option value="Hamster">Hamster</option>
</select><br>
Jenis :
<select name="Jenis">
<option selected>--Pilh--</option>
<option value="0">Biasa</option>
<option value="1">Sedang</option>
<option value="2">Spesial</option>
</select><br>
<INPUT TYPE="submit" name="proses" value="Proses">
</FORM><br>
TOKO SETIA<br>
<?php
$Nh=$_POST['Nh'];
$MEREK=$_POST['Jenis'];
echo "NAMA Hewan : ".$Nh."<br>";
echo "Jenis Yang : ";
switch ($Jenis){
case 0:echo"Biasa";break;
case 1:echo"Sedang";break;
case 2:echo"Spesial";break;
}
echo "<br>Harga : ".$NamaHewan[$_POST['Nh']][$_POST['Jenis']];
?>
</table>
</BODY>
</HTML>
Web II Teori
Naruto shippuden 273 Subtitle Indonesia
Naruto Shippuden Episode: 272
subtitle: Indonesia
Sub by: Naruminato
Title: Mifune vs Hanzo!
Sinopsis :
Kankuro yg terdesak oleh pasukan hanzo dan asap nya membuat mereka tak berdaya. Untunglah Mifune dan pasukan samurainya datang membantu. Hanzo yg juga seorang samurai merasa tidak terima karena
Tugas Pemrograman Web
<html>
<head>
<title> Java Script</title>
</head>
<body>
<form name="form1" method="post">
<table border="0" cellpadding="10" align=center>
<tr><td>INPUT NILAI (0 s/d 100)</td><td> :</td><td> <input type="text" size="25" name="nilai"></td></tr>
<tr><td>NILAI HURUF </td><td> : </td><td> <input type="text" size="25" name="nh" readonly></td></tr>
<tr><td>PREDIKAT </td><td> : </td><td> <input type="text" size="25" name="predikat" readonly></td></tr>
<tr><td colspan="3" align="center"><input type="button" value="Proses" onclick="hitung();"><Input type="reset" value="Cancel"></td></tr>
</table>
</form>
<script>
function hitung()
{
var nilai=document.form1.nilai.value;
if (document.form1.nilai.value.length==0)
{
const elemen = 255;
type s255 = string[elemen];
tumpukan = record
isi:s255;
atas: 0..elemen;
end;
var t: tumpukan;
i: integer;
kalimat: s255;
procedure awalan(var t: tumpukan);
begin
t.atas:=0;
end;
procedure push (var t:tumpukan; x: char);
begin
t.atas:=t.atas+1;
t.isi[t.atas]:= x;
end;
function pop(var t:tumpukan):char;
begin
Tugas Prak.Struktur Data
uses crt;
const elemen = 255;
type s255 = string[elemen];
tumpukan = record
isi:s255;
atas: 0..elemen;
end;
var t: tumpukan;
i: integer;
kalimat: s255;
procedure awalan(var t: tumpukan);
begin
t.atas:=0;
end;
procedure push (var t:tumpukan; x: char);
begin
t.atas:=t.atas+1;
t.isi[t.atas]:= x;
end;
function pop(var t:tumpukan):char;
begin
Cara Membuat Tombol twitter Bergerak
- Login ke Blogger
- Kemudian Pilih Tata Letak
- Selanjutnya Klik tab Elemen Halaman dan Klik Tambah Gadget
- Pilih Yang HTML/JAVASCRIPT
- Masukkan kode yang telah dibuat tadi kedalam kolom HTML/JAVASCRIPT
- Terakhir klik simpan
___000000_____000000___0000000000000
___000000_____000000____00000000000
___000000_____000000______0000000
___000000_____000000________000
___000000_____000000_________0
___00000000000000000___0000000000000
___00000000000000000___0000000000000
___00000000000000000______0000000
___00000000000000000______0000000
___000000_____000000______0000000
___000000_____000000______0000000
___000000_____000000______0000000
___000000_____000000______0000000
___000000_____000000______0000000
___000000_____000000___0000000000000
__**********______**********_____
__***________***__***________***___
_***___________****___________***__
***_____________**_____________***_
***____________________________***_
***___________THANKS__________***_
_***____________FOR__________***__
__***_________JOINING________***___
___***__________Our_________***____
_____***______GROUP______***______
_______***______________***________
_________***__________***__________
____________***____***_____________
______________**__**_______________
________________**_________________
╔♫═╗╔╗ ♥
╚╗╔╝║║♫═╦╦╦╔╗║♫╝╠═╦╦╗
╔╝╚╗♫╚╣║║║║╔╣╚╗╔╣║♫║♥
╚═♫╝╚═╩═╩♫╩═╝♫╚╝╚═╩═╝
☆┌─┐─┐☆
│▒│ /▒/
│▒│/▒/
│▒ /▒/─┬─┐
│▒│▒|▒│▒│
┌┴─┴─┐-┘─┘ ●●BEST group●●
│▒┌──┘▒▒▒│
└┐▒▒▒▒▒▒┌┘
└┐▒▒▒▒┌┘
_____________@_______@ @_____
_____________@@__@_@@@_____
_____________@__@@_____@_____
____________@@_@__@_____@_____
___________@@@_____@@___@@@@@_____
__________@@@@______@@_@____@@_____
_________@@@@_______@@______@_@_____
_________@@@@_______@_______@_____
_________@@@@@_____@_______@_____
__________@@@@@____@______@_____
___________@@@@@@@______@_____
__@@@_________@@@@@_@_____
@@@@@@@________@@_____
_@@@@@@@_______@_____
__@@@@@@_______@@_____
___@@_____@_____@_____
____@______@____@_____@_@@_____
_______@@@@_@__@@_@_@@@@@_____
_____@@@@@@_@_@@__@@@@@@@_____
____@@@@@@@__@@______@@@@@_____
____@@@@@_____@_________@@@_____
____@@_________@__________@_____
_____@_________@_____
_______________@_____
Mencari Nilai Mata Uang
uses crt;
var uang : longint;
begin
write('Nilai uang : ');readln(uang);
if uang div 100000 > 0 then begin
writeln(uang div 100000, ' lembar seratus ribuan');
uang := uang mod 100000;
end;
if uang div 50000 > 0 then begin
writeln(uang div 50000, ' lembar lima puluh ribuan');
uang := uang mod 50000;
end;
if uang div 20000 > 0 then begin
writeln(uang div 20000, ' lembar dua puluh ribuan');
uang := uang mod 20000;
end;
if uang div 10000 > 0 then begin
writeln(uang div 10000, ' lembar sepuluh ribuan');
uang := uang mod 10000;
end;
if uang div 5000 > 0 then begin
writeln(uang div 5000, ' lembar lima ribuan');
uang := uang mod 5000;
end;
if uang div 1000 > 0 then begin
writeln(uang div 1000, ' lembar ribuan');
uang := uang mod 1000;
end;
if uang div 500 > 0 then begin
writeln(uang div 500, ' lembar lima ratusan');
uang := uang mod 500;
end;
if uang div 100 > 0 then begin
writeln(uang div 100, ' ratusan');
uang := uang mod 100;
end;
if uang div 50 > 0 then begin
writeln(uang div 50, ' limapuluhan');
uang := uang mod 50;
end;
if uang > 0 then begin
writeln(uang, ' satuan');
end;
end.













