ciao a tutti
so che il pascal non è più in uso ma magari qualcuno si ricorda qualcosa. Sto lavorando con gli array, e volevo creare un programma che simulasse l'estrazione dei numeri alla tombola (quindi creare 99 numeri diversi random nell'array).
il fatto è che all'inizio i numeri che escono sono tutti diversi, ma circa dopo i primi 15 esconoi solo 0... l'errore è percaso nella procedura RIEMPI?(che riempe l'array di numeri diversi)
è quest'ultima un'ipotesi probabile perchè è una procedura improvvisata sul momento
ecco il codice:
codice:
program tombola;
uses crt;
var vet:array[0..99] OF integer; i , j , num:integer; inter1 , inter2:boolean;
procedure riempi; begin
for i:=1 to 90 do
repeat
num:=(random(89))+1;
for j:=0 to i-1 do
if vet[j]=num then inter1:=true;
if inter1=false then begin inter2:=true; vet[i]:=num; end;
until inter2;
end;
corpo del programma....
non so, questa procedura mi puzza di bruciato, che ne pensate?