Pascal/Turbo Pascal - Ayuda Programa TPW

   
Vista:

Ayuda Programa TPW

Publicado por Mario (1 intervención) el 25/11/2011 03:49:53
en Clase de programacion estructurada me dejaron hacer un programa con las siguentes caracteristicas:

un arreglo de 1 a 6 que se poble con un random(33) y que sea ordenado automaticamente! pero! a la hora de escojer los numeros para poblarlo ninguno debe repetirse.

no tengo ni idea de como lograr que no se repitan los numeros. AYUDA!
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

Ayuda Programa TPW

Publicado por ramon (2072 intervenciones) el 26/11/2011 16:23:57
{Esto te puede valer}

program asigrand;
uses
crt;
var
p, nume : integer;
num : array[1..6] of integer;

procedure asignanum;
var
i, t : integer;
si : byte;
begin
randomize;
i := 1;
repeat
nume := random(33);
si := 0;
t := 1;
repeat
if num[t] = nume then
begin
si := 1;
end;
t := t + 1;
until (t > 6) or (si = 1);
if si = 0 then
begin
num[i] := nume;
i := i + 1;
end;
until i > 6;
end;

procedure ordena;
var
tem : integer;
y, x : integer;
begin
for y := 1 to 5 do
for x := 6 downto y do
begin
if num[y] > num[x] then
begin
tem := num[y];
num[y] := num[x];
num[x] := tem;
end;
end;
end;

begin
clrscr;
asignanum;
ordena;
for p := 1 to 6 do
writeln(num[p]);
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