Ĺadny brzuch
Witam ;)
Szukałem na forum, podobnego tematu, ale nie znalazłem. Zwracam się do profesionalistów o profesionalną pomoc.
Otoż, chciałbym wylosować w delphi 3 znaki. Mogą to być cyfry od 0-100 i litery od a-z. Prosiłbym też o przedstawienie mi sposobów losowania więcej niż 3ech znaków, np. 6 :).
Prosze o, odpowiedzi zawierające kody, lub kody źródłowe programów.
Z góry, bardzo dziękuje i pozdrawiam forumowiczów.
Wasz "Ukochany" Szuterek. :P
Edit:
Czy mogę prosić o kod, który losuje 6 cyfr od 1 - 48 ?
Przepraszam, zapomnialem dodac, liczby nie moga sie powtarzac :)
Użytkownik Shooter edytował ten post 15 grudzień 2005, 13:42
cyfry od 0-100 Że co? Ja myśłałem, że cyfry są od 0 do 9 :>
Moj wspanialy kolega (nick: nie_podam) zapodal mi taki kodzik:
var i:byte; begin for i:= 1 to 6 do begin randomize; memo1.Lines.Add(inttostr(random(49))); Oczywiscie dziala :)
Jak losowac litery ?? :)
Użytkownik Shooter edytował ten post 15 grudzień 2005, 13:55
Twój wspaniały kolega zrobił błąd: random(48)+1, no i liczby mogą się powtarzać :P
Litery:procedure TForm1.Button1Click(Sender: TObject); var i, j:integer; s:string; begin s:=''; for i:=0 to 5 do begin repeat j:=random(ord('z'))+1; until ((chr(j) in ['A'..'Z'])or(chr(j) in ['a'..'z']))and (pos(chr(j),s)=0); s:=s+chr(j); end; Memo1.Lines.Add(s); end;lubprocedure TForm1.Button1Click(Sender: TObject); var i:integer; s:string; begin s:=''; repeat i:=random(ord('z'))+1; if ((chr(i) in ['A'..'Z'])or(chr(i) in ['a'..'z']))and(pos(chr(i),s)=0) then s:=s+chr(i); until length(s)=6; Memo1.Lines.Add(s); end;
Użytkownik Cyrkiel edytował ten post 15 grudzień 2005, 14:15
:roll1: co za koleś, napisałem mu tylko jak sie losuje :roll1:
Macie tylko poczekajcie na kumulacje :lol:
var i,r,rozmiar,ilosc,j,k: integer; tablica: array of integer; begin rozmiar:=49; ilosc:=6; SetLength(tablica,rozmiar+1); for i:=1 to rozmiar do tablica[i]:=i; for k:=1 to StrToInt(Edit1.Text) do begin randomize; for j:=1 to ilosc do begin r:= random(rozmiar)+1; memo1.lines.add(inttostr(tablica[r]));; if r<>rozmiar then begin for i:=r+1 to rozmiar do tablica[i-1]:=tablica[i]; end; rozmiar:=rozmiar-1; end; end; end;
Jak losowac litery ?? :)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Szukałem na forum, podobnego tematu, ale nie znalazłem. Zwracam się do profesionalistów o profesionalną pomoc.
Otoż, chciałbym wylosować w delphi 3 znaki. Mogą to być cyfry od 0-100 i litery od a-z. Prosiłbym też o przedstawienie mi sposobów losowania więcej niż 3ech znaków, np. 6 :).
Prosze o, odpowiedzi zawierające kody, lub kody źródłowe programów.
Z góry, bardzo dziękuje i pozdrawiam forumowiczów.
Wasz "Ukochany" Szuterek. :P
Edit:
Czy mogę prosić o kod, który losuje 6 cyfr od 1 - 48 ?
Przepraszam, zapomnialem dodac, liczby nie moga sie powtarzac :)
Użytkownik Shooter edytował ten post 15 grudzień 2005, 13:42
cyfry od 0-100 Że co? Ja myśłałem, że cyfry są od 0 do 9 :>
Moj wspanialy kolega (nick: nie_podam) zapodal mi taki kodzik:
var i:byte; begin for i:= 1 to 6 do begin randomize; memo1.Lines.Add(inttostr(random(49))); Oczywiscie dziala :)
Jak losowac litery ?? :)
Użytkownik Shooter edytował ten post 15 grudzień 2005, 13:55
Twój wspaniały kolega zrobił błąd: random(48)+1, no i liczby mogą się powtarzać :P
Litery:procedure TForm1.Button1Click(Sender: TObject); var i, j:integer; s:string; begin s:=''; for i:=0 to 5 do begin repeat j:=random(ord('z'))+1; until ((chr(j) in ['A'..'Z'])or(chr(j) in ['a'..'z']))and (pos(chr(j),s)=0); s:=s+chr(j); end; Memo1.Lines.Add(s); end;lubprocedure TForm1.Button1Click(Sender: TObject); var i:integer; s:string; begin s:=''; repeat i:=random(ord('z'))+1; if ((chr(i) in ['A'..'Z'])or(chr(i) in ['a'..'z']))and(pos(chr(i),s)=0) then s:=s+chr(i); until length(s)=6; Memo1.Lines.Add(s); end;
Użytkownik Cyrkiel edytował ten post 15 grudzień 2005, 14:15
:roll1: co za koleś, napisałem mu tylko jak sie losuje :roll1:
Macie tylko poczekajcie na kumulacje :lol:
var i,r,rozmiar,ilosc,j,k: integer; tablica: array of integer; begin rozmiar:=49; ilosc:=6; SetLength(tablica,rozmiar+1); for i:=1 to rozmiar do tablica[i]:=i; for k:=1 to StrToInt(Edit1.Text) do begin randomize; for j:=1 to ilosc do begin r:= random(rozmiar)+1; memo1.lines.add(inttostr(tablica[r]));; if r<>rozmiar then begin for i:=r+1 to rozmiar do tablica[i-1]:=tablica[i]; end; rozmiar:=rozmiar-1; end; end; end;
Jak losowac litery ?? :)