O que é que falta neste procedimento (ou está a mais) que faz com que tenha números repetidos...?
║type ArrayInt = array [1..16] of integer; ║var Array1 : ArrayInt; ║ i : integer; ║ ║Procedure PreencheArray(var A : ArrayInt); ║var i, j : integer; ║ b : boolean; ║Begin ║ randomize; ║ for i := 1 to 16 do ║ begin ║ A[i] := random(24); ║ for j := 1 to i-1 do begin ║ repeat ║ if A[i] = A[j] then ║ begin ║ writeln(i, ' ', j,' ', A[i]); ║ A[i] := random(24); ║ b := false; ║ writeln(b); ║ end ║ else b := true; ║ until b; ║ end; ║ end; ║End;
3 comentários:
isto já é o teste 6 ou 7 mas nao importa...
O que é que falta neste procedimento (ou está a mais) que faz com que tenha números repetidos...?
║type ArrayInt = array [1..16] of integer;
║var Array1 : ArrayInt;
║ i : integer;
║
║Procedure PreencheArray(var A : ArrayInt);
║var i, j : integer;
║ b : boolean;
║Begin
║ randomize;
║ for i := 1 to 16 do
║ begin
║ A[i] := random(24);
║ for j := 1 to i-1 do begin
║ repeat
║ if A[i] = A[j] then
║ begin
║ writeln(i, ' ', j,' ', A[i]);
║ A[i] := random(24);
║ b := false;
║ writeln(b);
║ end
║ else b := true;
║ until b;
║ end;
║ end;
║End;
mmm a endentação não aparece meuito bem, pede-se desculpa =/
quem e que fica na parte pratica e na parte teorica?
Enviar um comentário