Pascalban randomszám generálás? (részletek lent)

Ha már van olyan, generálsz helyette másikat.

Esetleg 1-15ig felcserélgeted a számokat, majd a tömb első 4 elemét kiveszed.

program valami;

const max = 4;

var tomb : array[1..max] of integer;

i: byte;

function hasonlit : boolean;

var k, n : byte;

begin

hasonlit := False;

for k := 1 to max - 1 do

begin

for n := k + 1 to max do

if (tomb[k] = tomb[n]) then

begin

hasonlit := True;

Exit;

end;

end;

end;

begin

Randomize;

while hasonlit do for i := 1 to max do tomb[i] := Random(15) + 1;

for i := 1 to max do Write(tomb[i]:5);

end.

Program p0118;

Uses Crt;

Const szam=4;

Var i,j,k: Byte;

tomb: Array[1..szam] of Byte;

Begin

Clrscr; Randomize;

For i:=1 to szam do Begin

IF i>1 Then

Repeat

tomb[i]:=Random(15)+1; k:=0;

For j:=1 to szam-1 do

IF tomb[i]<>tomb[j] Then k:=k+1;

Until k=i-1

Else tomb[i]:=Random(15)+1;

End;

For i:=1 to szam do Write(tomb[i]:4);

Readkey;

End.