Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » Números aleatorios dentro de un array

Pascal/Turbo Pascal - Números aleatorios dentro de un array

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Números aleatorios dentro de un array

Publicado por Leandro (1 intervención) el 06/11/2013 21:57:42
Hola, tengo la siguiente consulta. Estoy realizando un programa que es para colocar números aleatorios entre 1 y 100 dentro de un array y mostrarlos, el problema es que cuando genero los números, siempre genera el mismo para cada "espacio" del arreglo. Espero me puedan decir si me falta algo, porque debe ser algún error básico el que estoy haciendo y no me doy cuenta, les dejo hasta donde llegue en el programa

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program prueba;
var l: array[1..5] of integer
i,h,n: integer;
begin
Writeln('Ingresa un número');
readln(n);
h:= trunc(random*100 +1);
for i:= 1 to 5 do
begin
l[i]=h;
end;
for i:= 1 to 5 do
begin
Writeln('El valor del array', ' ',  i,  ' ',   'es=',  ' ',  l[i]);
end;
readln;
end.
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

Números aleatorios dentro de un array

Publicado por ramon (2158 intervenciones) el 07/11/2013 23:24:17
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
{Mira esto para free pascal wincrt}
 
 program prueba;
 uses
    crt;
 var
    l : array[1..100] of integer;
    t, i, h, n : integer;
    nuevo : boolean;
  begin
     clrscr;
     Write('Ingresa el tama¤o de array 1 a 100 : ');
     readln(n);
     if n > 100 then
     n := 100;
     i := 1;
     randomize;
    repeat
       h := random(100) + 1;
       nuevo := false;
       for t := 1 to i do
       if h = l[t] then
       nuevo := true;
       if nuevo = false then
       begin
          l[i] := h;
          i := i + 1;
       end;
    until i > n;
    writeln;
    writeln('  Los Numeros Son ');
    for t := 1 to n do
    write('  ',l[t]);
   readln;
  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