Pascal/Turbo Pascal - Programa Numeros aleatorios en Turbo Pascal

   
Vista:

Programa Numeros aleatorios en Turbo Pascal

Publicado por Edwin (7 intervenciones) el 19/09/2012 18:48:56
Hola necesito un programa en Turbo Pascal que selecione 5 numeros aleatoriamente del 1 al 100, sin incluir el cero, y esto numeros no pueden repetirse, por ejemplo si selecciono el 50 este no puede salir dos veses... ( Por ejemplo si el programa salen estos numeros : 4, 45, 99, 1, 100, Ningun numero debe repetirse, o salir el cero.) Gracias...
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

Programa Numeros aleatorios en Turbo Pascal

Publicado por ramon (2072 intervenciones) el 19/09/2012 22:05:23
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
{Genera cinco números del 1 al 100 sin repetir ni cero}
 
program numeros;
 uses
   crt;
  var
   arraynume : array[1..5] of integer;
   t, p, nu : integer;
   sis, fin : boolean;
   begin
       clrscr;
       fin := false;
       p := 1;
       sis := false;
       randomize;
     repeat
        nu := random(101);
        for t := 1 to p do
        if (arraynume[t] = nu) or ( nu = 0) then
        sis := true;
        if sis = false then
        begin
           arraynume[p] := nu;
           p := p + 1;
           if p > 5 then
           fin := true;
        end;
          sis := false;
     until fin = true;
     for t := 1 to 5 do
     write('   ',arraynume[t]);
     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

Programa Numeros aleatorios en Turbo Pascal

Publicado por Edwin (7 intervenciones) el 21/09/2012 07:11:33
Gracias Ramon pero el programa cuando trato de correrlo en Turbo Pascal me sale [b]Error : Division by Zero, y por tanto no puedo correr el programa, me puedes dar una mano con eso... Gracias..
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

Programa Numeros aleatorios en Turbo Pascal

Publicado por ramon (2072 intervenciones) el 21/09/2012 16:38:48
Me puedes decir que pascal empleas yo uso pascal 7.0 sobre windows 7 y no tengo
problemas e probado con free pascal 2.2 y tampoco sale error que me comentas dime
tu pascal cual es.
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

Programa Numeros aleatorios en Turbo Pascal

Publicado por Edwin (7 intervenciones) el 21/09/2012 20:34:30
Hola.. bueno yo tengo Turbo Pascal 7.0 MS-DOS. y mi computadora tiene Windows XP
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

Programa Numeros aleatorios en Turbo Pascal

Publicado por Edwin (7 intervenciones) el 24/09/2012 19:46:23
Solamente presenta : 0 0 0 0 0 Estoy tratando de arreglarlo pero no funciona, tambien prove con otro pascal ..
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

Programa Numeros aleatorios en Turbo Pascal

Publicado por ramon (2072 intervenciones) el 24/09/2012 22:15:04
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
36
{con esa versión no tienes que tener  problemas puesto que es la correcta revisa bien la copia
 puesto que el programa esta echo con pascal 7.0 también.
Copia esto pegarlo en bloc de notas guárdalo en donde tengas pascal pero pon que te lo
guarde como  [el nombre.pas no como texto o sea no txt  }
 
program numeros;
 uses
   crt;
  var
   arraynume : array[1..5] of integer;
   t, p, nu : integer;
   sis, fin : boolean;
   begin
       clrscr;
       fin := false;
       p := 1;
       sis := false;
       randomize;
     repeat
        nu := random(101);
        for t := 1 to p do
        if (arraynume[t] = nu) or ( nu = 0) then
        sis := true;
        if sis = false then
        begin
           arraynume[p] := nu;
           p := p + 1;
           if p > 5 then
           fin := true;
        end;
          sis := false;
     until fin = true;
     for t := 1 to 5 do
     write('   ',arraynume[t]);
     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

Programa Numeros aleatorios en Turbo Pascal

Publicado por Edwin (7 intervenciones) el 26/09/2012 17:34:24
Gracias... me sirvio de mucho..
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