Privacidad: Recuerde que la información escrita en los foros de programación es 100% pública y que su ip será registrada asociada a su mensaje. Si encuentra un mensaje fuera de lugar, por favor, notifiquelo para su revisión y eliminación.
Ayuda con valores de variables
Enviado por TheSphinx el día 2 de diciembre de 2005
Hola a todos.
Les habla un principiante de la programación en Delphi y quiero hacerles una consulta. Quiero declarar diez variables integer y que de esas diez se escojan dos al azar y se le ponga el valor 1. y que las otras ocho que sobren tengan el valor 2. Cómo lo hago?
Enviado por devs.com.ar el día 2 de diciembre de 2005
Olvidé algo...
Random puede devolver el mismo numero las dos veces, por lo que no conseguirias tu objetivo.
Solución:
var
enteros: array [0..9] of integer;
i, j: integer;
begin
for i := 0 to 9 do
enteros[i] := 2;
j := random(10);
enteros[j] := 1;
repeat
i:=random(10);
until i <> j;
enteros[i] := 1;
end;
Foros de debate
Delphi / Kylix / C++ Builder
