|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.01.2007, 13:47 | #1 |
Новичок
Джуниор
Регистрация: 21.01.2007
Сообщений: 2
|
Задача с текстовыми файлами
Всем привет попросили найти задачу к следующему условию( сам ни чего непонимаю поэтому прошу вас решить) условие
Даны текстовые файла F и G. Переписать в файл Q начальные совпадающие слова из файлов F и G. знаю что звучит коряво но как я понял надо переписать по одному слову (совподающему) в 3 файл нужно уже на вечер т,е, через прару часов... зарание благодарен |
21.01.2007, 18:48 | #2 |
Андрей
Форумчанин
Регистрация: 21.11.2006
Сообщений: 457
|
Все-таки очень непонятное задание. Нужно исключить дубли или наоборот только дубли нас и интересуют? Чем разделяются слова в файлах? Совпадать могут только слова стоящие на одинаковых позициях или любое слово с любым словом? Если еще актуально - уточни.
ICQ: 5311314
[SIGPIC][/SIGPIC] |
22.01.2007, 06:54 | #3 |
Форумчанин
Регистрация: 30.11.2006
Сообщений: 128
|
Наверное так:
var nf1,nf2,nf3:string; tf1,tf2,tf3:text; st1,st2:string; begin write('имя первого файла: '); readln(nf1); write('второго: '); readln(nf2); write('Имя файла для записи: '); readln(nf3); assign(tf1,nf1); assign(tf2,nf2); assign(tf3,nf3); reset(tf1); reset(tf2); reset(tf3); while not(eof(tf1)) do begin read(tf1,st1); while not(eof(tf2)) do begin read(tf2,st2); if st1=st2 then write(tf3,st1) end; end; end. Думаю будет работать проверить не могу.
nosce te ipsumj...
|
22.01.2007, 16:08 | #4 |
Новичок
Джуниор
Регистрация: 21.01.2007
Сообщений: 2
|
Нас интересуют 2 слова стоящие на любой позиции найти одинаковые
разделяют пробелы запятые точки. задание мне тожене понятно относительно взяли упрепода написанотак так слово в слово ("даны текстовые файла" так и написано) до сих пор смеёмся... за пример спасибо но он не рабочий т,к, не выбирает слова... сам писал помогите испавить чтоб работало... знаю что коряво (смотри первый пост ) PROGRAM qqq; uses crt,strings; const kolsimv = 1000; var f1,f2,f3: Text; m1,m2,m3,tm1,tm2:string; {array[1..kolsimv] of char;} v,i,j,i1,j1,s1,s2:integer; begin clrscr; assign(f1,'F.txt'); assign(f2,'G.txt'); assign(f3,'Q.txt'); reset(f1); reset(f2); rewrite(f3); i:=1; while not EOf(f1) and (i<=kolsimv) do begin read(f1,m1[i]); i:=i+1; end; close(f1); i:=1; while not EOf(f2) and (i<=kolsimv) do begin read(f2,m2[i]); i:=i+1; end; close(f2); for i:=1 to 1000 do begin tm1[i1]:=m1[i]; if m1[i+1]=' ' then begin for j:=1 to 1000 do begin tm2[j1]:=m2[j]; if m2[j+1]=' ' then begin s2:=1; for s1:=1 to 10 do begin if tm1[s1]=tm2[s2] then s2:=1 else s2:=0 end; end; end; end; for v:=1 to 10 do write(f3,tm1[v]); end; {for i:=1 to 1000 do write(m1[i]);} readln end. |
02.04.2007, 15:43 | #5 |
_________
Пользователь
Регистрация: 27.03.2007
Сообщений: 69
|
Насчёт разделителей - разве только пробелы, точки и запятые?
А как же '-#13?!:;' Разве они не разделяют слова? Код:
Последний раз редактировалось RSLoader; 02.04.2007 в 15:54. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа с текстовыми файлами (Delphi) | Omedus | Помощь студентам | 6 | 18.12.2012 00:31 |
Помогите по работе с текстовыми файлами | ЕвгениуS | Помощь студентам | 9 | 17.01.2010 15:10 |
Работа с Текстовыми файлами | wwww | Общие вопросы Delphi | 5 | 29.10.2007 11:17 |
Прога для работы с текстовыми файлами | f-only | Софт | 4 | 04.10.2007 23:35 |
Работа с текстовыми файлами | DartMrakkk | Общие вопросы Delphi | 3 | 14.07.2007 16:52 |