<HTML>
<meta http-equiv="x-ua-compatible" content="IE=10">
<body>
<H3>
<HR>
<script language = "vbs">
indeks_x = 0
do until pilih = 8
pilih = cint(inputbox("1. Input Nilai" & vbcrlf & "2. Hapus Nilai"_
& vbcrlf & "3. Tampilkan Nilai" & vbcrlf & "4. Geser Nilai" &_
vbcrlf & "5. Palindrom" & vbcrlf & "6. Pengelompokkan Nilai" &_
vbcrlf & "7. Acak Nilai" & vbcrlf & "8. Exit"))
if pilih = 1 then
indeks_x = indeks_x + 1
redim preserve x(indeks_x)
x(indeks_x) = cint(inputbox("Nilai Mahasiswa : "))
elseif pilih = 2 then
indeks_y = 0
indeks_hapus = cint(inputbox("Indeks Angka Yang Dihapus : "))
redim y(indeks_x-1)
for i = 1 to indeks_x
if i <> indeks_hapus then
indeks_y = indeks_y + 1
y(indeks_y) = x(i)
end if
next
indeks_x = indeks_x - 1
redim x(indeks_x)
for i = 1 to indeks_x
x(i) = y(i)
next
elseif pilih = 3 then
for i = 1 to indeks_x
document.write x(i) & "<br>"
next
document.write "----------------<br>"
elseif pilih = 4 then
geser = cint(inputbox("Index Pergeseran : "))
redim y(indeks_x)
if geser > 0 then
do while geser > 0
indeks = 2
y(1) = x(indeks_x)
for i = 1 to indeks_x-1
y(indeks) = x(i)
indeks = indeks + 1
next
for i = 1 to indeks_x
x(i) = y(i)
next
geser = geser - 1
loop
else
geserplus = abs(geser)
do while geserplus > 0
indeks = 1
for i = 2 to indeks_x
y(indeks) = x(i)
indeks = indeks + 1
next
y(indeks_x) = x(1)
for i = 1 to indeks_x
x(i) = y(i)
next
geserplus = geserplus - 1
loop
end if
elseif pilih = 5 then
sama = 0
indeks = indeks_x
for i = 1 to indeks_x
if x(i) = x(indeks) then
sama = sama + 1
end if
indeks = indeks - 1
next
if sama = indeks_x then
document.write "Palindrom<br>"
else
document.write "Bukan Palindrom<br>"
end if
elseif pilih = 6 then
redim y(indeks_x)
indeks = 1
minimum = 0
'PROSES SORTING !!!!!!!!!!
for i = 1 to indeks_x
minimum = i
for j = i+1 to indeks_x
if x(j) < x(minimum) then
minimum = j
end if
next
if minimum <> i then
temp = x(minimum)
x(minimum) = x(i)
x(i) = temp
end if
next
'PROSES GANJIL GENAP
for i = 1 to indeks_x
if x(i) mod 2 = 0 then
y(indeks) = x(i)
indeks = indeks + 1
end if
next
for i = 1 to indeks_x
if x(i) mod 2 = 1 then
y(indeks) = x(i)
indeks = indeks + 1
end if
next
for i = 1 to indeks_x
x(i) = y(i)
next
elseif pilih = 7 then
end if
loop
</script>
<HR>
</body>
</HTML>
Screenshot :
Postingan
3 komentar:
blog anda bagaikan harta karun di tengah padang pasir...hahhaahahaha
wah berhasil min sdh saya coba thx bgt yaa
mantap banget source codenya:)
Posting Komentar