Arsip: Coding bangkitkan himpunan data acak
more 16 years ago
agnes
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 : )
more 16 years ago
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...
more 16 years ago
yusdi
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
more 16 years ago
agnes
@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
more 16 years ago
yusdi
@agnes: Makasi banyak Mas Yusdi Akhirnya bisa juga :)sama-sama. berarti kita boleh kenalan donk....
more 16 years ago
agnes
Mas yusdi...tanya lagi
tuh kan hasilnya tertampil secara vektor (1 kolom)
gimana caranya biar tampilannya dalam 1 baris?
Makasi
:D
more 16 years ago
mas_kofa
ganti
memo1.Lines.Add(inttostr(m))
dengan
memo1.Lines.Text := memo1.Lines.Text + IntToStr(m) + ' ';
more 16 years ago
agnes
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
more ...
- Pages:
- 1
- 2
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- Bikin Installan Software pake serial number/ teregister
by ecka in Tip n Trik Pemrograman more 18 years ago - frekuensi komputer
by takumi in Hal umum tentang Pascal Indonesia more 16 years ago - Tform dinamis
by delphicode in Tutorial & Community Project more 14 years ago - Mengganti nama CLASS saat Runtime
by ondelphi in Hal umum tentang Pascal Indonesia more 18 years ago - ada yang tau error ini gak???
by alvonz in OOT more 15 years ago - SQL statement untuk quickreport !
by defran_raja in MySQL more 14 years ago - [Tutorial] Teknik Sprite Based dengan Delphi
by ZeAL in Tutorial & Community Project more 18 years ago - Delphi di FreeBSD
by _aa_ in onLinux more 16 years ago - Borland Technology Day, ada yg ikut?
by LuriDarmawan in OOT more 17 years ago - txt to database
by simple_code in Lain-lain more 15 years ago