Minggu, 08 April 2012
Deret Fibonacci dengan inputan JavaScript (Tugas4 Alpro)
<html>
<head><title>Deret Fibonacci</title></head>
<body>
<script type="text/javascript">
var angka_pertama = 0;
var angka_kedua = 1;
var angka_ketiga;
var masukan = prompt("Silahkan masukkan angka");
document.write(angka_pertama+", ");
doculent.write(angka_kedua+", ");
for(var i=3; i <= masukan;i++)
{
angka_ketiga = angka_pertama + angka_kedua;
angka_pertama = angka_kedua;
angka_kedua = angka_ketiga;
document.write(angka_ketiga+", ");
}
</script>
</body>
</html>
►
<head><title>Deret Fibonacci</title></head>
<body>
<script type="text/javascript">
var angka_pertama = 0;
var angka_kedua = 1;
var angka_ketiga;
var masukan = prompt("Silahkan masukkan angka");
document.write(angka_pertama+", ");
doculent.write(angka_kedua+", ");
for(var i=3; i <= masukan;i++)
{
angka_ketiga = angka_pertama + angka_kedua;
angka_pertama = angka_kedua;
angka_kedua = angka_ketiga;
document.write(angka_ketiga+", ");
}
</script>
</body>
</html>
Rabu, 21 Maret 2012
Tugas Algoritma dan Pemrograman 2
<HTML>
<head>
<title>
Adi Santoso | 04211039 | SI
</title>
<style>
body, table th, table td
{
font-family: batang,verdana;
font-size: 14px;
}
table td, table th
{
padding: 3px;
}
</style>
</head>
<BODY>
<center><h1><font color="black" >Tugas 2 </font></h1> <h4><font color="black">Adi Santoso (04211039)</font></h4></center>
<p>Ada sebuah biro travel menentukan jumlah armada yang berangkat dengan ketentuan sebagai berikut :<br>
<p>a. 1 Bus Besar berisi 50 penumpang.<br>
<p>b. 1 Bus Kecil berisi 7 penumpang.<br>
<b><p>Pertanyaan :</b><br><br>
1. Buat aplikasi dengan input awal jumlah penumpang.<br><br>
2. Output adalah informasi : <br>
    Penumpang bus besar<br>
    Penumpang bus kecil<br>
    Penumpang ditolak<br>
<br>
<i><font color="red">Syarat : Bus besar berangkat terlebih dahulu dan jika kondisi penumpang penuh</font></i>
<hr>
<center>
<b>.: Jawaban :.<b>
</center>
<hr>
<FORM NAME="frmMyForm">
Masukkan Jumlah Penumpang :   <INPUT name="adi" size="5"> Penumpang<br></br>
<INPUT TYPE=button VALUE="Keperluan Bus" NAME="cek">
<INPUT TYPE=reset VALUE="Reset" ><br><br>
<table border=1 style="border-collapse: collapse" bgcolor="lavender">
<tr><th>Jenis</th><th>   Kebutuhan Bus   </th></tr>
 : <tr>
<td>   Bus besar   </td><td>   <Input name="bus_besar" size="5" /> </td>
</tr>
<tr>
<td>   Bus kecil   </td><td>   <Input name="bus_kecil" size="5" /> </td>
</tr>
<tr>
<td>   Penumpang Ditolak   </td><td>   <Input name="bus_tolak" size="1" /> orang</td>
</tr>
</table></td>
</FORM>
<SCRIPT type="text/vbscript">
Dim max_busbesar,max_buskecil,penumpang,sm,sn,sisa,sisaB
Sub cek_OnClick
max_busbesar = 50
max_buskecil = 7
penumpang = cdbl(frmMyForm.adi.value)
sm = 0
sn = 0
sisa = 0
sisaB = 0
if penumpang < max_buskecil then
sisa = penumpang
frmMyForm.bus_tolak.value = sisa
frmMyForm.bus_besar.value = "0"
frmMyForm.bus_kecil.value = "0"
elseif penumpang >= max_buskecil and penumpang < max_busbesar then
sm = penumpang mod max_buskecil
sisa = int(penumpang / max_buskecil)
if sm = 0 then
frmMyForm.bus_kecil.value = sisa
frmMyForm.bus_tolak.value = "0"
frmMyForm.bus_besar.value = "0"
else
frmMyForm.bus_tolak.value = sm
frmMyForm.bus_kecil.value = sisa
frmMyForm.bus_besar.value = "0"
end if
else
sn = penumpang mod max_busbesar
if sn = 0 then
sisa = int(penumpang/max_busbesar)
frmMyForm.bus_besar.value = sisa
frmMyForm.bus_tolak.value = "0"
frmMyForm.bus_kecil.value = "0"
else
sm = sn mod max_buskecil
sisa = int(penumpang/max_busbesar)
sisaB = int(sn / max_buskecil)
if sm = 0 then
frmMyForm.bus_besar.value = sisa
frmMyForm.bus_kecil.value = sisaB
frmMyForm.bus_tolak.value = "0"
else
if sn < max_buskecil then
frmMyForm.bus_tolak.value = sm
frmMyForm.bus_besar.value = sisa
frmMyForm.bus_kecil.value = "0"
else
frmMyForm.bus_tolak.value = sm
frmMyForm.bus_besar.value = sisa
frmMyForm.bus_kecil.value = sisaB
end if
end if
end if
end if
End Sub
</SCRIPT>
</BODY>
</HTML>
Hasil Running :
Ada sebuah biro travel menentukan jumlah armada yang berangkat dengan ketentuan sebagai berikut :
a. 1 Bus Besar berisi 50 penumpang.
b. 1 Bus Kecil berisi 7 penumpang.
Pertanyaan :
1. Buat aplikasi dengan input awal jumlah penumpang.
2. Output adalah informasi :
Penumpang bus besar
Penumpang bus kecil
Penumpang ditolak
Syarat : Bus besar berangkat terlebih dahulu dan jika kondisi penumpang penuh
.: Jawaban :.
►
<head>
<title>
Adi Santoso | 04211039 | SI
</title>
<style>
body, table th, table td
{
font-family: batang,verdana;
font-size: 14px;
}
table td, table th
{
padding: 3px;
}
</style>
</head>
<BODY>
<center><h1><font color="black" >Tugas 2 </font></h1> <h4><font color="black">Adi Santoso (04211039)</font></h4></center>
<p>Ada sebuah biro travel menentukan jumlah armada yang berangkat dengan ketentuan sebagai berikut :<br>
<p>a. 1 Bus Besar berisi 50 penumpang.<br>
<p>b. 1 Bus Kecil berisi 7 penumpang.<br>
<b><p>Pertanyaan :</b><br><br>
1. Buat aplikasi dengan input awal jumlah penumpang.<br><br>
2. Output adalah informasi : <br>
    Penumpang bus besar<br>
    Penumpang bus kecil<br>
    Penumpang ditolak<br>
<br>
<i><font color="red">Syarat : Bus besar berangkat terlebih dahulu dan jika kondisi penumpang penuh</font></i>
<hr>
<center>
<b>.: Jawaban :.<b>
</center>
<hr>
<FORM NAME="frmMyForm">
Masukkan Jumlah Penumpang :   <INPUT name="adi" size="5"> Penumpang<br></br>
<INPUT TYPE=button VALUE="Keperluan Bus" NAME="cek">
<INPUT TYPE=reset VALUE="Reset" ><br><br>
<table border=1 style="border-collapse: collapse" bgcolor="lavender">
<tr><th>Jenis</th><th>   Kebutuhan Bus   </th></tr>
 : <tr>
<td>   Bus besar   </td><td>   <Input name="bus_besar" size="5" /> </td>
</tr>
<tr>
<td>   Bus kecil   </td><td>   <Input name="bus_kecil" size="5" /> </td>
</tr>
<tr>
<td>   Penumpang Ditolak   </td><td>   <Input name="bus_tolak" size="1" /> orang</td>
</tr>
</table></td>
</FORM>
<SCRIPT type="text/vbscript">
Dim max_busbesar,max_buskecil,penumpang,sm,sn,sisa,sisaB
Sub cek_OnClick
max_busbesar = 50
max_buskecil = 7
penumpang = cdbl(frmMyForm.adi.value)
sm = 0
sn = 0
sisa = 0
sisaB = 0
if penumpang < max_buskecil then
sisa = penumpang
frmMyForm.bus_tolak.value = sisa
frmMyForm.bus_besar.value = "0"
frmMyForm.bus_kecil.value = "0"
elseif penumpang >= max_buskecil and penumpang < max_busbesar then
sm = penumpang mod max_buskecil
sisa = int(penumpang / max_buskecil)
if sm = 0 then
frmMyForm.bus_kecil.value = sisa
frmMyForm.bus_tolak.value = "0"
frmMyForm.bus_besar.value = "0"
else
frmMyForm.bus_tolak.value = sm
frmMyForm.bus_kecil.value = sisa
frmMyForm.bus_besar.value = "0"
end if
else
sn = penumpang mod max_busbesar
if sn = 0 then
sisa = int(penumpang/max_busbesar)
frmMyForm.bus_besar.value = sisa
frmMyForm.bus_tolak.value = "0"
frmMyForm.bus_kecil.value = "0"
else
sm = sn mod max_buskecil
sisa = int(penumpang/max_busbesar)
sisaB = int(sn / max_buskecil)
if sm = 0 then
frmMyForm.bus_besar.value = sisa
frmMyForm.bus_kecil.value = sisaB
frmMyForm.bus_tolak.value = "0"
else
if sn < max_buskecil then
frmMyForm.bus_tolak.value = sm
frmMyForm.bus_besar.value = sisa
frmMyForm.bus_kecil.value = "0"
else
frmMyForm.bus_tolak.value = sm
frmMyForm.bus_besar.value = sisa
frmMyForm.bus_kecil.value = sisaB
end if
end if
end if
end if
End Sub
</SCRIPT>
</BODY>
</HTML>
Hasil Running :
Tugas 2
Adi Santoso (04211039)
Ada sebuah biro travel menentukan jumlah armada yang berangkat dengan ketentuan sebagai berikut :
a. 1 Bus Besar berisi 50 penumpang.
b. 1 Bus Kecil berisi 7 penumpang.
Pertanyaan :
1. Buat aplikasi dengan input awal jumlah penumpang.
2. Output adalah informasi :
Penumpang bus besar
Penumpang bus kecil
Penumpang ditolak
Syarat : Bus besar berangkat terlebih dahulu dan jika kondisi penumpang penuh
.: Jawaban :.
Langganan:
Postingan (Atom)