Vc tá querendo tirar água de pedra. Estas funções Random e Randomize
geram numeros aleatórios. o que vc tá querendo é gerar 10 numeros
diferentes de 10 possíveis.
Estes numeros que vc apresentou já indica um ótimo funcionamento desta
função. Pois existe a probabilidade de 10% na repetição de
Tiago de Assis Pimenta wrote:
> Galera, para desenvolver um soft que preciso, tive que aprender a usar o
> random e o randomize, só que tem coisa errada no meu projeto. Fiz um
> simplesinho, que me gerasse 10 numeros aleatórios, de 0 a 9, só que ele
> repeti os numeros, tipo fica 2-2-1-3-5-4-6-7-9-
Bom dia...
var
s:string;
i:integer;
begin
s:='';
while length(s)<>10 do
begin
i:=randon(0,9); << Não me lembro se é assim que se usa
if pos(intToSt(i),s)=0 then
s:=s+intToSt(i)+ '-';
end;
end;
Um abraço!
>
> Galera, para desenvolver um soft que preciso, tive que aprender
Olha, aqui funciona, posta o código ai pra gente dar uma analisada.
Tiago de Assis Pimenta escreveu:
>
>
> Galera, para desenvolver um soft que preciso, tive que aprender a usar o
> random e o randomize, só que tem coisa errada no meu projeto. Fiz um
> simplesinho, que me gerasse 10 numeros ale
4 matches
Mail list logo