Jump to content


Photo

Random(x)... Sem Repetir Numeros...


  • Faça o login para participar
13 replies to this topic

#1 Operador

Operador

    12 Horas

  • Usuários
  • 228 posts
  • Sexo:Masculino
  • Localidade:Picos - PI

Posted 02/06/2007, 09:50

A função random eu sei utilizar a dúvida é somente saber como fazer para que num sorteio de seis numeros eles não se repitam.

Usei assim

for i:=1 to 6 do
begin
randomize;
sorteio:=random(60);
delay(1000);
writeln(sorteio,´ ´);
end;

Aguardo um ajuda ae galera...

Valeu...

Edição feita por: Operador, 08/06/2007, 09:10.

----------------------------------------------------------------------------
Não sei assinar... ehehehe
----------------------------------------------------------------------------

#2 Felipe Pena

Felipe Pena

    O temor do Senhor é o princípio da sabedoria

  • Ex-Admins
  • 6441 posts
  • Sexo:Masculino

Posted 02/06/2007, 16:39

Guarde os números sorteados na array, mas antes disso verifique se o número já existe na mesma.

Edição feita por: Eclesiastes, 02/06/2007, 16:39.

Felipe Pena
[...] ó terra, terra, terra; ouve a palavra do Senhor. — Jeremias 22:29

#3 Operador

Operador

    12 Horas

  • Usuários
  • 228 posts
  • Sexo:Masculino
  • Localidade:Picos - PI

Posted 03/06/2007, 14:57

Nao entendi poderia me explicar melhor, com algum exemplo.

seria guardar numa array tipo a variavel sorteio?

seria sorteio[i] e depois faria uma verificacao pelo while?

seria isso ou nada haver, tira essa dúvida ai...

blza?
----------------------------------------------------------------------------
Não sei assinar... ehehehe
----------------------------------------------------------------------------

#4 faeLinho

faeLinho

    Novato no fórum

  • Usuários
  • 14 posts
  • Sexo:Não informado

Posted 08/12/2008, 13:25

Opa Operador, não sei se esse é o 'melhor' algoritmo para fazer isso, mas, ai vai:

Program Pzim ;
Var
sorteio : array[1..6] of integer;
i, j: integer;
proximo: string;
Begin
randomize;
proximo := 'sim';
for i:=1 to 6 do
BEGIN
repeat
BEGIN
sorteio[i] := random(60);
for j:=i downto 1 do
BEGIN
if (j <> i) then
BEGIN
if (sorteio[j] = sorteio[i]) then
BEGIN
proximo := 'nao';
END;
END;
END;
END;
until (proximo = 'sim');
END;
for i:=1 to 6 do
BEGIN
write(sorteio[i],' ');
END;
End.


Explicando: Esse algoritmo faz exatamente o que o Eclesiastes sugeri; sorteia o número e verifica se esse número já existe nas posições anteriores do vetor, se existe; sorteia de novo, se não existe; sorteia o próximo número!

#5 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 15385 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 18/09/2017, 17:03

Best Price 100mg Viagra cialis price Viagra Temps Effet Tadacip 20 Online Viagra Delivered In Ontario Canada Healthy Man Viagra Radio Where To Buy Amoxicillin Vancouver cialis Citrate Generic Sildenafil Viagra
Meinungen Zu Priligy generic cialis Propecia Uno De 50
Cialis 20 Mg Costo Farmacia Where To Buy Cefixime 400 Mg
free shipping isotretinoin for sale legally <a href=http://cialtobuy.com>cialis price</a> Allergy To Keflex

#6 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 02/10/2017, 14:58

Levitra Generique Avion cialis price Canadain Phamacry Can Amoxicillin Be Taken When Expired
Buy T4 Online Come Comprare Cialis viagra prescription Vendita Cialis Farmacie San Marino

#7 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 15385 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 04/10/2017, 21:34

Buy Propecia In Canada buy cialis Side Effects Of Amoxicillin In Cat Discount Fedex Shipping Macrobid Furadantin Website Low Price Want To Buy Amoxicilina Overseas

#8 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 15385 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 12/10/2017, 07:22

Northwestern Pharmacy Canada Cialis Tu Medico European Pharmacy cialis online Dove Comprare Viagra Cialis Levitra Quando Prenderlo Propecia Para Alopecia
Viagra Achat Online Cialis Information viagra Tretinoin
Viagra Foros viagra online prescription Brand Viagra 100mg Zithromax For Babies Cialis O Levitra

#9 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 24/10/2017, 18:15

Keflex Topical Application viagra Furosemide 100 Mg

#10 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 15385 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 29/10/2017, 15:38

Propecia Produce Impotencia Who Makes Generic Viagra Cialis Cuanto Dura El Efecto viagra online pharmacy Doxycycline On Line Order Meds No Acript

#11 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 15385 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 17/11/2017, 10:26

How To Buy Cialis Online Safely Amoxicillin Rash Pics Results Months Generic Propecia cialis Levitra Acquisto Farmaci Cephalexin Overdose Kamagra Mal De Altura
Viagra Levitra Cialis Comparison Buy Antibiotics Online Uk Prix Kamagra Marseille buy vardenafil online cheap Us Pharmacy Selling Toradol
Isotretinoin Find Cialis Online Canada Reviews Priligy Interacciones viagra Viagra Stl Buy Online Kamagra Criticas Clomid Diamicron
Comprare Cialis In Contrassegno Propecia Itch Skin generic cialis Fedex Shipping Secure Ordering Levaquin Amex Accepted Website Overseas Levitra 5 Mg Compresse Generika Cialis Kaufen

#12 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 15385 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 09/12/2017, 20:08

Furosemide Vs Otc Keflex 500mg 3 Times A Day viagra online prescription Cialis 10 Mg Opinioni
Amoxicillin Dosage And Administration Cheapest Viagra Online cialis and levitra Propranolol Sale
Direct Progesterone Mexico Medicine Online Zithromax For Gastric Emptying online pharmacy Find Acticin Low Price With Overnight Delivery
Cialis Y Priligy What Are The Dosage Of Propecia buy viagra Water Pills For Bloating Tadapox Pills With Out Prsciption Allopurinol 300 Mg

#13 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 15385 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 14/09/2022, 21:55

tamoxifen weight gain Published 2017 May 16.

#14 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 15385 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 04/11/2022, 14:49

stromectol 3mg tablets Together, these data suggest that although all CAF subtypes are capable of responding to tumor derived SHH and IHH ligands based on SMO, GAS1, CDON, and BOC expression, Hedgehog signaling is upregulated in myCAFs in murine and human PDAC




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq