Pascal/Turbo Pascal - Ayuda con Programa utilizando Random

   
Vista:

Ayuda con Programa utilizando Random

Publicado por Edy (7 intervenciones) el 18/08/2010 03:29:38
Hola mi nombre es Edy, estudio programacion y tengo un gran problema, y es que me asignaron un programa en Pascal utilizando Randomize, bueno es asi : es un programa que lanza 20 numero aleatoriamente, pero que no se repitan nigunos, por ejemplo de 100 numeros el programa tiene que seleccionar 20 numeros aleatoriamente pero que no se repitan nigunos. Por ayuda con este programa... Please........
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda con Programa utilizando Random

Publicado por Pablo (1 intervención) el 22/08/2010 05:37:58
var cant,x,numero:integer;
aNumeros:array [1..20] of integer;
fAgregar:boolean;
begin
Randomize;
cant:=0;
While cant<=20 do {Finaliza cuando genera 20 numeros}
Begin
numero:=random(25); {Genera numeros entre 0 y 25}
fAgregar:=true;
If cant<>0 then {Verifica que no sea el primer numero generado}
For x:=1 to cant do {Verifica que no este entre los numeros ya generados}
If numero = aNumeros[x] then
fAgregar:=false;
{Si no esta generado todavia agrega el numero a un vector que contiene
los numeros ya generados y se lo imprime en pantalla}
If fAgregar = True then
Begin
Inc(cant);
aNumeros[cant]:=numero;
Writeln(numero);
end;
end;
readkey
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar