skip to main | skip to sidebar

jazz "blog bayu dwiputra"

  • Entries (RSS)
  • Comments (RSS)
  • Home
  • Posts RSS
  • Comments RSS
  • Edit

Selasa, 22 Juni 2010

short

Diposting oleh a bayu dwi p di 18.54
<html>

<head>

<script LANGUAGE = "Javascript">



function Urutkan (form)

{

  DataKosong= false;

  DataInputan = form.Data.value;

  inputData = DataInputan.split (",");

  for (var i = 0; i<inputData.length; i++)

    {

      inputData [i] = parseInt (inputData[i], 10);

      if (isNaN (inputData [i]) )

         {

            DataKosong = true;

            break;

         }

    }



inputData = bubbleSort (inputData, 0, inputData.length-1);

if (DataKosong)

  {

   alert ("Silakan Entri Dulu Data, Pisahkan dengan tanda Koma");

   form.Data.focus();

  }

   else

   form.Hasil.value = DataString (inputData,0);

}



function DataString (ArrayData, Angka)

{

  if ( (ArrayData.length - 1) >= Angka)

    return (ArrayData[Angka] + "," + DataString (ArrayData, (Angka + 1) ) );

  else

    return "";

}



function bubbleSort (ArrayData, Mulai, MulaiBaru)

{

  for (var i=MulaiBaru-1; i>=Mulai; i--)

  {

    for (var j=Mulai; j<=i; j++)

    {

      if (ArrayData[j+1] > ArrayData [j] )

      {

        var DataTemporer = ArrayData [j];

        ArrayData [j] = ArrayData [j+1];

        ArrayData[j+1] = DataTemporer;

      }

    }

  }

return ArrayData;

}

</script>

</head>



<body>

<center>

<form>

 Masukan Deretan Angka, Pisahkan denga Koma :

<hr>

<input type = text  name=Data size=30 Value="5,6,8,5,12,4,8,4,20">

<br>

  <br>

  <input type=button value="Urutkan" onClick="Urutkan (this.form)">

  <br>

  <br>

  <br>

    Hasil Pengurutan :

  <hr>

  <input type=text name=Hasil size=30>

</form>

</center>

</body>

</html>


                                                    gambar hasil short

                                                             
Kirimkan Ini lewat EmailBlogThis!Bagikan ke XBerbagi ke FacebookBagikan ke Pinterest

0 komentar:

Posting Komentar

Posting Lebih Baru Posting Lama Beranda
Langganan: Posting Komentar (Atom)

Sponsored

  • banners
  • banners
  • banners
  • banners

alert

Tv bayu On line

Live TV (Mivo TV-RCTI-TRANS TV-SCTV-GLOBAL TV):


Labels

  • musik jazz (1)
  • sejarah musik (1)

Blog Archive

  • ►  2011 (2)
    • ►  Februari (2)
  • ▼  2010 (19)
    • ►  November (2)
    • ►  Juli (2)
    • ▼  Juni (1)
      • short
    • ►  Mei (1)
    • ►  April (12)
    • ►  Maret (1)
  • ►  2009 (6)
    • ►  November (1)
    • ►  Oktober (4)
    • ►  September (1)

Bayuu Trovalds jazz

love u tamiee

Followers

About Me

Foto saya
a bayu dwi p
be-your self.. (jangan Stres dan ikuti Proses
Lihat profil lengkapku

Pengikut

HTML Color from Quackit.com

Blog Archive

  • ►  2011 (2)
    • ►  Februari (2)
  • ▼  2010 (19)
    • ►  November (2)
    • ►  Juli (2)
    • ▼  Juni (1)
      • short
    • ►  Mei (1)
    • ►  April (12)
    • ►  Maret (1)
  • ►  2009 (6)
    • ►  November (1)
    • ►  Oktober (4)
    • ►  September (1)

 

© 2010 My Web Blog
designed by DT Website Templates | Bloggerized by Agus Ramadhani | Zoomtemplate.com