Problema Informatica...

[Fabio68]

Program alexprog;
VAR V:array [1..20] of string ;
L:array [1..5] of string;
i,j:integer;
Begin
For i:=1 to 20 do
begin
writeln('Inserisci caratteri');
readln(V[i]);
end;
For i:=1 to 5 do
begin
writeln('Inserisci 5 caratteri');
readln(L[i]);
end;
For i:=1 to 20 do
begin
For j:=1 to 5 do
begin
IF (V[i]=L[j])
then V[i]:='*'
end;
end;
For i:=1 to 20 do
begin
writeln('NUOVI CARATTERI' ,V[i]);
end;
readln;
end.

ok, ma come ti avevo scritto nel programma cobol, se per caso hai trovato i 2 elementi uguali è inutile che continui ad iterare perchè oramai trovi su V[i] solo l'asterisco: porta l'indice al valore max che può assumere la seconda tabella, così risparmi tempi di elaborazione.

mi spiego meglio: se tu avessi i 2 vettori di milioni di righe ciascuno e trovassi che il primo elemento del secondo vettore è identico ad una qualsiasi occorrenza del primo vettore tu metti l'occorrenza del primo vettore uguale ad asterisco. Quindi è inutile che ti spazzoli la parte rimanente del secondo vettore confrontandoli sempre con quell'occorrenza ormai asteriscata. A quel punto chiudi il secondo ciclo di lettura e passi alla successiva occorrenza del primo vettore. L'elaboratore ti ringrazierà

[PC_fanatic]

Ok grazie