Консультация № 137036
16.05.2008, 08:50
0.00 руб.
0 1 1
Очень нужно код программы, которая выбирает из одного текстового файла неповторяющиеся строки и записывает в другой.

Обсуждение

давно
Профессор
401888
1232
16.05.2008, 20:24
общий
это ответ
Здравствуйте, Pessimist!
Решение с пояснениями в приложении. Не забудьте создать файл со строками по условию.
Результат увидите в новом файле.

Приложение:
uses crt;var f,g:text; s,s1:array[1..100]of string; n,i,j:integer;beginclrscr;assign(f,‘Stroki_1.txt‘);{связываем наш файл с переменной f и открываем для чтения}reset(f);assign(g,‘Stroki_2.txt‘);{создаем второй файл для записи}rewrite(g);n:=0;while not eof(f)do begin n:=n+1; readln(f,s[n]); {считываем строки из файла в массив} end;s1:=s; {создаем клон массива}for i:=1 to n dofor j:=1 to n doif (s[i]=s1[j])and(i<>j) then begin s[i]:=‘‘; {если строки совпадают, делаем их пустыми (можно присвоить что угодно)} end;for i:=1 to n doif s[i]<>‘‘then {если не пустые} begin writeln(g,s[i]); {записываем в файл} end;writeln(‘Fail Stroki_2 zapisan!‘);readln;close(f);close(g);end.
Форма ответа