Arsip: Membuat random angka tanpa ada data kembar


by EkoIndri in Serba Neka more 13 years ago 2316
Berikut ini saya temukan trik untuk membuat random angka dari situs www.infojet.cz

Ada sesuatu yang menarik dari tips yang diberikan oleh karya Simon J Stuart, dimana data random yang dihasilkan bisa menghindari terjadinya data kembar. Mungkin ini sangat bermanfaat sekali ketika kita ingin menghasilkan data random tanpa nilai yang kembar.
Buat temen-temen yang mungkin memerlukan trik ini, silahkan anda copy paste potongan kode program berikut ini untuk menambah wawasan serta ilmu anda dalam dunia programming terutama yang berhubungan dengan bahasa pemrograman Delphi.

Berikut ini tanpa menambah dan mengurangi potongan kode program dari Simon J Stuart

procedure Shuffle(var aArray; aItemCount: Integer; aItemSize: Integer);
var
Inx: Integer;
RandInx: Integer;
SwapItem: PByteArray;
A: TByteArray absolute aArray;
begin
if (aItemCount > 1) then
begin
GetMem(SwapItem, aItemSize);
try
for Inx := 0 to (aItemCount - 2) do
begin
RandInx := Random(aItemCount - Inx);
Move(A[Inx  aItemSize], SwapItem^, aItemSize);
Move(A[RandInx   aItemSize],
A[Inx  aItemSize], aItemSize);
Move(SwapItem^, A[RandInx   aItemSize],
aItemSize);
end;
finally
FreeMem(SwapItem, aItemSize);
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
a: array[1..10] of Integer;
i: Shortint;
begin
Randomize;
for i := Low(a) to High(a) do a[i] := i;
Shuffle(a, High(a), SizeOf(Integer));
for i := 1 to High(a) - 1 do
ListBox1.Items.Add(IntToStr(a[i]));
end;
Syntax Highlighted with https://pascal-id.org/syntax


Anda juga bisa mengunjungi situs www.infojet.cz untuk mendapatkan trik-trik yang lainnya.

semoga tips dan trik serta link diatas bisa memberikan banyak manfaat buat temen-temen yang berkunjung ke forum ini.

salam hormat, apabila ada salah kata saya minta maaf.


Eko Indriyawan
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com