Записать в файл h все совпадающие строки файлов f и g

@Maray · Регистрация: 03.01.2015

Студворк — интернет-сервис помощи студентам

Добрый вечер=) Подскажите пожалуйста, было задание:

Даны файлы f и g. Записать в файл h все совпадающие строки файлов f и g, если таких строк нет, то в файл h записать строки из файлов f и g, чередуя их, начиная с первой из файла f

Так вот, дошла в программе до момента, когда в файлах нет одинаковых строк, и нужно строки из файлов f и g записать чередуя их начиная с первой из файла f в файл h. Я попробовала вот так(вот моя программа). Но здесь сначала записывается первая строка из файла f а затем весь файл g, потом вторая строка из файла f, а затем весь файл g и т.д. Подскажите, как правильно сделать(

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Program File;
var a, b:array of string;
    f, g, h: textfile;
    i, j: byte;
    Flag: boolean;
begin
  Flag:=false;
  Assign(f, 'f.txt');
  Assign(g, 'g.txt');
  Assign(h, 'h.txt');
  Reset(f);
 while not eof(f) do begin
  SetLength(a,Length(a)+1);
  Readln(f,a[High(a)]);
 end;
 
 Reset(g);
 while not eof(g) do begin
  SetLength(b,Length(b)+1);
  Readln(g, b[High(b)]);
 end;
 
 Rewrite(h);
 for i:=Low(a) to High(a) do
 for j:=Low(b) to High(b) do begin
  if a[i]=b[j] then
  begin
  Writeln(h, a[i]);
  Flag:=true;
  end;
 end;
 Close(h);
 if flag=false then
 begin
 Rewrite(h);
 begin
 for i:=Low(a) to High(a) do begin
  Writeln(h, a[i]);
  for j:=Low(b) to High(b) do
  writeln(h, b[j]);
  end;
  end;
  end;
 end.

@Puporev · 04.01.2015, 19:59

Сообщение от Maray

нужно строки из файлов f и g записать чередуя их начиная с первой из файла f в файл h.

Вероятно число строк в файлах одинаковое.

Pascal
1
2
3
4
5
6
7
8
9
10
reset(f);
reset(g);
rewrite(h);
while not eof(f) do
 begin
  readln(f,s);
  writeln(h,s);
  readln(g,s);
  writeln(h,s);
 end;

@Maray · 04.01.2015, 20:02 **[ТС]**

А если число строк в файлах не одинаковое, то как быть? Можно ли так сделать, или не получится?

@Puporev · 04.01.2015, 20:09

Если не одинаковое, то чередуем пока один из файлов не кончился, а далее дописываем строки из другого файла. Задание нужно смотреть.

Добавлено через 5 минут

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
reset(f);
reset(g);
rewrite(h);
while not eof(f)and not eof(g) do
 begin
  readln(f,s);
  writeln(h,s);
  readln(g,s);
  writeln(h,s);
 end;
if eof(f) then
 begin
  close(f);
  while not eof(g) do
   begin
    readln(g,s);
    writeln(h,s);
   end;
  end;
if eof(g) then
 begin
  close(g);
  while not eof(f) do
   begin
    readln(f,s);
    writeln(h,s);
   end;
  end;
 close(h);

@Maray · 05.01.2015, 10:41 **[ТС]**

Спасибо) Вот теперь только программа не хочет работать. Как быть? Смотрите, программа получается вот такая:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Program File;
var a, b:array of string;
    f, g, h: textfile;
    i, j: byte;
    Flag: boolean;
    s: string;
begin
  Flag:=false;
  Assign(f, 'f.txt');
  Assign(g, 'g.txt');
  Assign(h, 'h.txt');
  Reset(f);
 while not eof(f) do begin
  SetLength(a,Length(a)+1);
  Readln(f,a[High(a)]);
 end;
 
 Reset(g);
 while not eof(g) do begin
  SetLength(b,Length(b)+1);
  Readln(g, b[High(b)]);
 end;
 
 Rewrite(h);
 for i:=Low(a) to High(a) do
 for j:=Low(b) to High(b) do begin
  if a[i]=b[j] then
  begin
  Writeln(h, a[i]);
  Flag:=true;
  end;
 end;
 Close(h);
 if flag=false then
 begin
  reset(f);
  reset(g);
  rewrite(h);
 while not eof(f)and not eof(g) do
 begin
  readln(f,s);
  writeln(h,s);
  readln(g,s);
  writeln(h,s);
 end;
  if eof(f) then
 begin
  close(f);
  while not eof(g) do
   begin
    readln(g,s);
    writeln(h,s);
   end;
  end;
  if eof(g) then
 begin
  close(g);
  while not eof(f) do  <-------Доходит до этой строки
   begin
    readln(f,s);
    writeln(h,s); <-------А потом сразу перескакивает сюда и выдает ошибку
   end;
  end;
 close(h);
 end;
 end.

Теперь программа доходит до строки и перескакивает на другую(в коде показала. Может то что у меня новая переменная s? Хотя вроде её добавила, но видимо что-то не так. Подскажите пожалуйста

@Puporev · 05.01.2015, 10:43

Файлы входные покажите.

@Maray · 05.01.2015, 10:47 **[ТС]**

В первом файле:

My name is Maray
I have many friends
I can speak English

Во втором файле:

My name is Mar
I don't have friends
I can't speak English

@Puporev · 05.01.2015, 10:51

Сообщение от Maray

Вот теперь только программа не хочет работать.

А ничего что Вы ее назвали

Сообщение от Maray

Program File;

Вообще-то использовать служебные слова для этих целей нельзя.
Кстати и писать эту строку не обязательно.

@Maray · 05.01.2015, 10:54 **[ТС]**

Исправила, но всё равно все также не работает

@Puporev · 05.01.2015, 11:32

Ошибка была у Вас не знаю откуда, у меня такой не было. Вот так у меня работает правильно.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
var a, b:array of string;
    f, g, h: textfile;
    i, j: byte;
    Flag: boolean;
begin
Assign(f, 'f.txt');
Assign(g, 'g.txt');
Assign(h, 'h.txt');
Reset(f);
while not eof(f) do
 begin
  SetLength(a,Length(a)+1);
  Readln(f,a[High(a)]);
 end;
Reset(g);
while not eof(g) do
 begin
  SetLength(b,Length(b)+1);
  Readln(g, b[High(b)]);
 end;
Rewrite(h);
Flag:=false;
for i:=Low(a) to High(a) do
for j:=Low(b) to High(b) do
if a[i]=b[j] then
 begin
  Writeln(h, a[i]);
  Flag:=true;
 end;
Close(h);
if flag=false then
 begin
  Rewrite(h);
  for i:=Low(a) to High(a) do
   begin
    Writeln(h, a[i]);
    writeln(h, b[i]);
   end;
 end;
close(h);
write('Fail zapisan');
readln
end.

@Maray · 05.01.2015, 11:59 **[ТС]**

Наверное это что то у меня с программой, теперь доходит до первого reset(f) и выдает ошибку. Попробую переустановить программу. Спасибо за помощь)

@Maray · 13.01.2015, 22:14 **[ТС]**

Добрый день!

Пожалуйста, помогите написать программу по блок-схеме.
Даны файлы f и g. Записать в файл h все совпадающие строки файлов f и g, если таких строк нет, то в файл h записать строки из файлов f и g, чередуя их, начиная с первой из файла f

Новые блоги и статьи Все статьи Все блоги /
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Номеклатура. . .

@Maray 4 / 4 / 4 Регистрация: 03.01.2015 Сообщений: 449
	04.01.2015, 20:02 [ТС]
	А если число строк в файлах не одинаковое, то как быть? Можно ли так сделать, или не получится? 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	05.01.2015, 10:43
	Файлы входные покажите. 0

@Maray 4 / 4 / 4 Регистрация: 03.01.2015 Сообщений: 449
	05.01.2015, 10:47 [ТС]
	В первом файле: My name is Maray I have many friends I can speak English Во втором файле: My name is Mar I don't have friends I can't speak English 0

@Maray 4 / 4 / 4 Регистрация: 03.01.2015 Сообщений: 449
	05.01.2015, 10:54 [ТС]
	Исправила, но всё равно все также не работает 0

@Maray 4 / 4 / 4 Регистрация: 03.01.2015 Сообщений: 449
	05.01.2015, 11:59 [ТС]
	Наверное это что то у меня с программой, теперь доходит до первого reset(f) и выдает ошибку. Попробую переустановить программу. Спасибо за помощь) 0

@Maray 4 / 4 / 4 Регистрация: 03.01.2015 Сообщений: 449
	13.01.2015, 22:14 [ТС]
	Добрый день! Пожалуйста, помогите написать программу по блок-схеме. Даны файлы f и g. Записать в файл h все совпадающие строки файлов f и g, если таких строк нет, то в файл h записать строки из файлов f и g, чередуя их, начиная с первой из файла f Миниатюры 0

Записать в файл h все совпадающие строки файлов f и g

Решение