Cara membangkitkan angka acak yang berbeda dengan delphi

(how to generate unique random numbers using delphi)

Assalamu'alaikum,

Terimakasih buat rekan-rekan yang telah mengunjungi blog saya,,

Berikut ini adalah skrip yang saya buat dengan bahasa delphi untuk membangkitkan 8 angka acak yang berbeda. Angka yang terbangkitkan mulai dari angka 1 sampai dengan 8, kode selengkapnya dapat dilihat dibawah ini :


program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  math;

var
    nilai:array[0..20] of integer;
    i,j  :integer;
begin

    writeln('Membangkitkan nilai acak yang berbeda dari 1 s/d 8');
    for i:=1 to 4 do
    begin
    nilai[i]:=0;
    end;

    for i:=1 to 9 do
    begin
       randomize;
       nilai[i]   :=math.RandomRange(1,9);
       j          :=1;
       //menangani nilai yang sama
       repeat
          if j<>i then
              if nilai[i]=nilai[j] then
              begin
                  nilai[i]:=randomrange(1,9);
                  j:=1;
              end;
           j:=j+1;
       until j=9;
    end;
    for i:=2 to 9 do
    begin
        writeln('  nilai ke '+inttostr(i-1)+' = '+inttostr(nilai[i]));
    end;
    readln;
end.

Bila ingin mengubah rentang angka yang dibangkitkan, tinggal mengubah batas angka loopingnya saja.
Untuk pertanyaan, keritik dan saran yang membangun, sangat saya harapkan.

Penyelesaian persamaan kuadrat dengan software

Assalamu'alaikum,,, salam semangat. !

        Di Minggu pagi yang cuacanya mulai panas ini, saya akan posting 'Penyelesaian persamaan kuadrat dengan software'.

        Masih ingatkah anda, cara mencari akar penyelesaikan dari persamaan kuadrat ?

Yah..... Bila persamaan tersebut mempunyai akar - akar bilangan  riil dengan bentuk yang sederhana akan mudah kita selesaikan dengan perhitungan matematis, tetapi bila akar tersebut agak rumit dan terdiri dari akar - akar bilangan kompleks akan lebih mudah kita selesaikan dengan menggunakan program'pencari akar persamaan kuadrat'.

contoh permasalahannya seperti ini misalnya : 

Permasalahan Pelanggan Telepon Genggam

        Dari tahun 1995 sampai 2002, banyaknya pelanggan telepon genggam N (dalam juta orang) dapat dimodelkan oleh persamaan N = 17.4x²+ 36,1x + 83,3, dengan x = 0 merepresentasikan tahun 1995 .
[Sumber: Data dari 2005 Statistical Abstract of the United States, Tabel 1.372, hal. 870]. Pada tahun berapa banyaknya pelanggan telepon genggam mencapai angka 3.750 juta?

        Pembahasan Dari soal diketahui bahwa N = 17,4x2 + 36,1x + 83,3 dan kita diminta untuk menentukan tahun ketika banyaknya pelanggan telepon genggam mencapai 3.750 juta. Dengan kata lain, kita diminta untuk menentukan nilai 1995 + x ketika N = 3.750.dan kita diminta untuk menentukan tahun ketika banyaknya pelanggan telepon genggam mencapai 3.750 juta. Dengan kata lain, kita diminta untuk menentukan nilai 1995 + x ketika N = 3.750.

Persamaanya dapat dituliskan menjadi

                                3.750 = 17.4x² + 36.1x + 83.3
                                0         = 17.4x² + 36.1x -3.6667

Nilai x adalah tahun ke-x setelah tahun 1995 
cara yang paling cepat dan paling gampang adalah menyelesaikannya menggunakan program(software), untuk download software gratisnya klik disini.

Cara penggunaannya :

setelah program terinstall pada PC anda kemudian klik ikon ini

Sehingga tampil running program seperti gambar dibawah ini

Masukan konstanta a, b, dan c dari ax2, bx, dan c dalam kotak text

Misalkan akar yang kita cari adalah dari persamaan

                                                  0         = 17,4x² + 36,1x -3.6667

Maka const x²     diisi : 17.4

         const x      diisi : 36.1

         c               diisi : -3666.7

(catatan: penulisan tanda koma harus dianti dengan tanda titik).

sehingga  tampilannya menjadi

Klik Ok untuk menemukan nilai akar-akarnya.

Untuk menampilkan bentuk grafik dari persamaan kuadrat klik ‘graph’, dan untuk menyembunyikannya klik ‘Hide’.

Bila ingin memperjelas posisi titik yang memotong y=0, maka kita ubah interval nilai x₀ dan ­x₁ dengan mengklik tombol Chge Scle. kemudian ganti skala axis awal dan akihirnya.

untuk menampilkan grafik dengan skala baru, klik ‘graph’. maka skala x pada grafik baru akan berubah dari x₀ = -6 sampai dengan ­x₁ =15.

Dari software diketahui :

x1 = -15,5909123545045
x2 = 13,5161997108263

Karena waktu tidak pernah negatif, maka kita ambil akar positifnya adalah 13,52. 

sehingga 1995+13,52=2008,  tahun 2008 banyaknya pelanggan telepon genggam mencapai angka 3.750 juta. 

Semoga bermanfaat, ~~~Ahmad Aris

Untuk yang Lagi Gagal dan Sakit Hati

Assalamu’alaikum Warahmatullahi Wabaroktuh..

Sebelumnya saya ucapkan teriakasih untuk temen-temen yang telah mampir diblog saya, ..

Posting kali ini, saya spesialkan buat rekan-rekan yang lagi gagal dan sakit hati... (wihhh miris banget kata-katanya).

Saya percaya , tentunya rekan-rekan pernah mengalami hal seperti ini, dan saat mengalaminya tentu rekan-rekan ingin cepet menemukan solusinya...

Ungkapan  yang muncul saat kita gagal atau sakit hati adalah

Mengapa aku harus mengalami seperti ini ????

                Yah menurutku simpel aja.. karena Allah bersifat Al Qaabidh yang artinya maha menyempitkan hati makhluknya, juga Allah bersifat Ad Dhaaru yang artinya Maha menimpakan kemudharatan pada makhluknya. Jadi dapat kita fahami ,sakit hati juga merupakan kehendak Allah dan bukti kekuasaannya maka dari itu kita ikhlaskan sajalah sakit hati ini untuk sementara ada pada kita. Semakin kita berontak ,juga malah semakin sakit

                Dan yang penting kita ketahui, dalam asma’ul husna setelah asma Al Qaabidh adalah Al Bassith,dan setelah Ad Dhaaru adalah An Nafi’. Allah lah yang menjadikan kesempitan hati kita dan Allah jugalah yang maha melapangkan hati kita. Maka saat hati terasa sempit, pikiran terpuruk, masalah terasa semakin berat cepat-cepat kembalilah kepada Allah, karena hanya Dia pemegang kunci kebebasan hati.

                Begitu juga saat kita diberikan musibah, kekhawatiran dan marabahaya maka pertama yang kita lakukan tetap meminta pertolongan pada Dzat yang memberikan kemanfaatan, Dzat yang berkehendak memberikan kemanfaatan setelah menimpakan cobaan.... An Nafi’u .. Al  Mughitsu.. Al Waduud..As Sami’u.. Al Mujib, Al Mujib, Al Mujib..

                

               Jika gundah hati mulai reda,  mulailah menyusun niat..

Sebaiknya jangan sepelekan niat, mengingat keberhasilan suatu usaha berdasarkan pada niatnya.

Kenapa demikian?? . 

Karena didalam niat berbuat baik, selain me-sugesti diri memantapkan tujuan juga allah akan bercampur tangan memberikan pertolonganNya.

Umar bin Abdul ‘Aziz seorang salafu sholih pernah menerima surat dari sahabatnya : “Ya Umar,, perbaikilah niatmu, karena pertolongan Allah kepada hambanya berdasarkan pada besar kecilnya niat hamba, saat niat seorang hamba itu besar, maka pertolongan Allah-pun juga besar dan saat niat hamba itu berkurang maka pertolongan Allah-pun juga berkurang sebesar kekurangan dari niatnya”.

             Jadi niatlah untuk lebih memperbaiki kualitas diri kita, usaha kita dan jalan hidup kita. Bila kita gagal dengan usaha kita, niatilah belajar lebih baik dan temukan solusi yang tepat, bila kita gagal dalam masalah cinta (ditinggal tanpa alasan misalnya), niatlah untuk menjadikan diri ini lebih baik dari sekarang....

Jangan lupa ucapkan selamat tinggal pada kegagalan...

“ hay kegagalan... aku  berdiri disini karena masih mempunyai seribu alasan untuk tidak putus asa dan berhenti ditempat ini, karena aku masih mampu berjuang dan membawa keberhasilanku”.

Nah.. bila semua yang diatas telah tertanam pada hati kita juuuuuuh didalam inti hati, sekarang waktunya  beraksi kembali di lapangan... kaki yang patah bukan alasan untuk berhenti main surfing, tapi menyambungnya kembali dan.... next level is begin.

Banner

Terimakasih telah mampir di blog saya.

Dibawah ini contoh banner yang sudah selesai saya buat, silahkan dilihat, dinilai dan mohon masukannya  untuk hasil yang lebih baik.

file dengan format *cdr, beritipe vector sehingga bisa di resize dengan ukuran berapapun. 

ukuran gambar default 1m x 3m..

untuk download contoh file jpeg,png klik di sini.

Untuk file yang bisa dicetak(*cdr) sementara belum saya postkan dulu menunggu saran dan konfirmasi dari rekan semua. 

Kalau model, bentuk dan ukuran sudah OK, tolong konfirmasi dikotak komentar atau sms di nomer saya.

Teimakasih dan saya tunggu konfirmasinya.