Programación Delphi: eliminar archivos de texto con datos duplicados
var a, b: matriz[1...50001]de entero largo;
i, j, k, s: entero largo
función panduan(c, d: entero largo): boolean;
var n: longint;
comenzar
panduan:=true;
for n:=1 to c do
si b[n]=a[d] entonces comienza
panduan：=false;
sale
final; p>
p>
end;
end;
comenzar
para i：=1 a 50000 leer(a[i]
k：=1;
para i：=1 a 50000 comience
si panduan(k, i) entonces comience
b[ k]：=a[i ];
inc(k);
fin
fin; > para i: = 1 a k-1 do
writeln(b[i]);
end.
El tamaño de los datos depende de 50.000
Revisado, no hay problema
Por favor adopte