Mas/mbak. ada yang bisa bantuin saya ga? Saya mau bangkitkan himpunan data acak dengan n anggota dan range 0 sampai 15. Misalnya nih saya mau bangkitkan 10 data acak Misal hasilnya jadi begini 2 4 6 1 8 3 5 2 9 5 Ada yang bisa kasi gambaran sintaksnya ga? Makasi : )

untuk jumlah n anggota gunakan perulangan for i:=1 to n do.......(atau yg lainnya juga bisa) trus untuk membangkitkan data acak gunakan fungsi Random...

ini saya coba menggunakan sebuah input dan hasilnya ditampilkan ke memo

procedure TForm1.Button1Click(Sender: TObject);
var m,n,i:integer;
begin
  i:=1;
  n:=strtoint(edit1.Text); //input jumlah data yg akan ditampilkan
  for i:=1 to n do
    begin
    m:=random(15); //membangkitkan nilai random 0-15
    memo1.Lines.Add(inttostr(m));
    end;
end;

semoga membantu

@yusdi: untuk jumlah n anggota gunakan perulangan for i:=1 to n do.......(atau yg lainnya juga bisa) trus untuk membangkitkan data acak gunakan fungsi Random...

Maap, saya baru aja belajar delphi Bisa lebih dijelaskan lagi ga ?klo boleh dengan urutan codingnya Makasi

Makasi banyak Mas Yusdi Akhirnya bisa juga :)

@agnes: Makasi banyak Mas Yusdi Akhirnya bisa juga :)

sama-sama. berarti kita boleh kenalan donk....

Mas yusdi...tanya lagi tuh kan hasilnya tertampil secara vektor (1 kolom) gimana caranya biar tampilannya dalam 1 baris? Makasi :D

ganti

   memo1.Lines.Add(inttostr(m))

dengan

   memo1.Lines.Text := memo1.Lines.Text + IntToStr(m) + ' ';

wah aku keduluan lagi,,(gara2 V day)...

tenang Mas Yusdi...ni ada banyak pertanyaan lagi ga usa takut keduluan :) aq mau ubah himpunan data jadi biner dimana 1 digit diubah jadi 4 digit biner(ex: 4 jadi 0100) udah berhasil tapi kok untuk digit 0 selalu menjadi 00000000 knp ya? trus biar hasil biner tertampil dengan procedur buttonclick, synthax nya gmn ya? soalnya aq ga pakai array nih aq sertain codingny. Diubah dimana ya? procedure TFormDua.BangkitkanDataClick(Sender: TObject); var i,x,M: Integer; bin: string; Result:string; begin M:=strtoint(editPanjangData.Text); //input jumlah data yg akan ditampilkan for i:=1 to M do begin masukan:=random(15); //membangkitkan nilai random 0-15:integer MemoData.Lines.text:=MemoData.lines.Text+inttostr(masukan)+' '; begin bin := ''; for x := 1 to 4 SizeOf(masukan) do begin if Odd(masukan) then bin := '1' + bin else bin := '0' + bin; masukan := masukan shr 1; Delete(bin, 1, 4 ((Pos('1', bin) - 1) div 4)); Result := bin; end; MemoBiner.Lines.text:=MemoBiner.lines.Text+result+' '; end; end; end; Makasi