Паскаль(файлы).

[masterlomaster]

Например:
Создаем два файла (первый и второй) на диске С:\
Нужно чтобы во втором файле сохранялись элементы первого файла (без повторений).
Не подскажите алгоритм?


P.S Времени просто не хватает, задают то чего еше на лекциях не разобрали, успел разобрать ввод файла, как вывести. Из-за не хватки практики в этой области ничего в голову не лезет.

[unbanned]

какого типа элементы в файлах?

[masterlomaster]

тип string

[Serge_Bliznykov]

тут важный момент - помещается ли содержимое файла в памяти.
Если помещается, то самое простое - читаем очередной элемент из файла - ищем его в памяти, если не нашли - то пишем в выходной файл и сохраняем в структуре в памяти, если такой уже есть - то ничего не делаем, просто переходим на следующий элемент.


Если же файл в памяти не помещается, то тут можно предложить тупейший (но крайне малоэффективный в плане производительности) способ — берём очередной элемент входного файла - перебираем ВСЕ элементы от 1 до последнего (пропуская элемент с текущим индексом). Если нашли такой - то игнорируем (и прерываем цикл проверки, разумеется). Если не нашли - пишем в выходной файл.

p.s. я тут пишу больше, чем будет строчек в программном коде...

[masterlomaster]

Переходим в режим чтения и просто организовываем цикл? Или есть какая та процедура(функция) просмотра файла от начала и до конца?

[Serge_Bliznykov]

Переходим в режим чтения и просто организовываем цикл?

точно так.

тип string

текстовые файлы?!
у.. поздравляю, это худший вариант из всех возможных

[unbanned]

var
  f1, f2: text;
  i, j, w: integer;
  s: array [1..10] of string;

begin
  assign(f1, 'C:\1.txt');
  rewrite(f1);
  for i := 1 to 10 do
    writeln(f1, random(10));
  close(f1);
  reset(f1);
  for i := 1 to 10 do
    readln(f1, s[i]);
  close(f1);
  assign(f2, 'C:\2.txt');
  rewrite(f2);
  for i := 1 to 10 do 
  begin
    w := 0;
    for j := 1 to 10 do 
      if (s[i] = s[j]) and (i <> j) then 
        w := 1;
    if w = 0 then writeln(f2, s[i]);
  end;
  close(f2);
end.

не совсем рационально, но под условие подходит))

[Serge_Bliznykov]

я бы добавил прерывание цикла, если совпадение нашлось:

for j := 1 to 10 do 
      if (i <> j) and (s[i] = s[j]) then 
      begin
        w := 1;
        break;
      end;

[unbanned]

еще можно переменную w сделать логической... и заполнение файла не только числами, а символами...

  assign(f1, 'C:\1.txt');
  rewrite(f1);
  for i := 1 to 10 do 
  begin
    for j := 1 to 5 do
      write(f1, chr(1 + random(255)));
    writeln(f1, #13);
  end;
  close(f1);

[masterlomaster]

Всем спасибо.