Pascal/Turbo Pascal - pascal/ turbo pascal

   
Vista:

pascal/ turbo pascal

Publicado por araceli (1 intervención) el 15/04/2012 00:33:48
hola mi nombre es araceli, y necesito saber como es el codigo fuente utilizando el randomize para un programa que de 10 preguntas tiene que seleccionar 5 aleatoriamente sin repetirse.. necesito la respuesta porfavor....
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

pascal/ turbo pascal

Publicado por ramon (2072 intervenciones) el 16/04/2012 19:08:23
{A qui tienes un ejemplo ajusta lo a tus necesidades.


uses
crt;
var
n, nume : integer;
num : array[1..5] of integer;

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

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