Разработать программу слияния двух текстовых файлов в один

@SystemError · Регистрация: 02.12.2008

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

Привет просьба помочь вот с какой задачей.

Разработать программу слияния двух текстовых файлов в один по принципу: две строки от первого файла одна строка из второго. Предусмотреть проверку существования исходных файлов и результирующего файла и диагностических сообщений, а так же разбивку результирующего файла на страницы с указанием номера страниц. длина страниц 50 строк

варианты можно писать на почту jena333@yandex.ru заранее спасибо всем кто откликнется=)

@MadMag · 03.12.2008, 00:01

Спрошу, в ICQ

@SystemError · 03.12.2008, 01:31 **[ТС]**

напиши нормально номер аськи

@MadMag · 03.12.2008, 01:35

239-791
жду

@Викдон · 03.12.2008, 01:59

разбивку результирующего файла на страницы? это каким образом делать?

@MadMag · 04.12.2008, 02:10

Во-во мне тоже интересно...просто ставить может черту, и там номерочек приписывать

Добавлено через 5 часов 44 минуты 46 секунд
Скажи, что значит разбить на страницы!

Добавлено через 3 часа 19 минут 31 секунду
Очевидно так:

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
uses
  crt;
 
var
 in1,in2,bin:text;
 filename1,filename2,filename3,stroka:string;
 i,j:integer;
 
begin
  {$I-}
    While true do begin
      write('Enter Name of Source File #1: ');
      readln(filename1);
      assign(in1, filename1);reset(in1);
      If IOresult<>0 then
        begin writeln('File ',filename1, ' not found. Please Enter One more time');end
      else break;
    end;
 
    While true do begin
      write('Enter Name of Source File #2: ');
      readln(filename2);
      assign(in2, filename2);reset(in2);
      If IOresult<>0 then
        begin writeln('File ',filename2, ' not found. Please Enter One more time');end
      else break;
    end;
  {$I+}
  write('Enter Name of New File: ');
  readln(filename3);
  assign(bin, filename3);rewrite(bin);
 
  j:=-1;
  i:=0;
 
  While (eof(in1)=false) and (eof(in2)=false) do begin
    if i mod 50 = 0 then
      begin inc(j);writeln(bin);
        writeln(bin,'------------------------- ', j, 'CTP. -----------------------------');writeln(bin);
      end;
        readln(in1, stroka);writeln(bin, stroka);inc(i);
    if i mod 50 = 0 then
      begin inc(j);writeln(bin);
        writeln(bin,'------------------------- ', j, 'CTP. -----------------------------');writeln(bin);
      end;
        readln(in1, stroka);writeln(bin, stroka);inc(i);
    if i mod 50 = 0 then
      begin inc(j);writeln(bin);
        writeln(bin,'------------------------- ', j, 'CTP. -----------------------------');writeln(bin);
      end;
 
    readln(in2, stroka);writeln(bin, stroka);inc(i);
  end;
 close(in1);close(in2);close(bin);
end.

@Викдон · 05.12.2008, 20:10

а может и так:

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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
var input,input2,output:text;
    stroka,stroka2:string;
            j,i,n:integer;
 
 
{==============Процедура вставки разделения страницы и указкания её номера===}
Procedure Stranica(var output:text;var nomer:integer;var schetchik:integer);
var i:integer;
begin
 inc(nomer);
 schetchik:=0;
 for i:=1 to 10 do
  writeln(output,' ');
 writeln(output,'--------------------------------------------------------------STRANICA #',nomer);
 
end;
 
 
{Тело программы}
begin
assign(input,'C:\1.txt');
assign(input2,'C:\2.txt');
assign(output,'C:\3.doc');
{$I-}
reset(input);
reset(input2);
 
 if ioresult<>0 then
  begin
   write('Нет файла');
   readln;
   exit;
  end;
 
j:=0;
rewrite(output);
while true do
  begin
 
{=============================Читаем первый файл=============================}
    if not Eof(input) then    {Читать первый файл пока нет конца файла}
      begin
       readln(input,stroka);   {Читаем первую строку}
       writeln(output,stroka);
       inc(n);
        if n=50 then
         Stranica(output,j,n);
        if not eof(input) then   {Читаем вторую строку если нет конца файла}
            begin
             readln(input,stroka2);
             writeln(output,stroka2);
             inc(n);
              if n=50 then
                Stranica(output,j,n);
            end;
      end;
 
{==============================Читаем второй файл============================}
 
    if not Eof(input2) then
      begin
       readln(input2,stroka);
       writeln(output,stroka);
       inc(n);
        if n=50 then
         Stranica(output,j,n);
      end;
 
    if eof(input) and eof(input2) then
     break;
 
end;
close(input);
close(input2);
close(output);
 reset(output);
 
 
 
end.

@MadMag · 05.12.2008, 21:34

Закрыта тема!
Стопудова так!

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
uses
  crt;
 
var
 in1,in2,bin:text;
 filename1,filename2,filename3,stroka:string;
 i,j:integer;
 
(*---------------Opening Files Procedure---------------*)
Procedure openfile(var s:string; var file1:text);
  begin
    {$I-}
    While true do begin
      write('Enter Source FileName: ');readln(s);
      assign(file1, s);reset(file1);
      If IOresult<>0 then
        begin writeln('File ',s, ' not found. Please Enter One more time');end
      else begin writeln('File is OK!');break; end;
    end;
    {$I+}
  end;
 
(*-------------------Creating Files Procedure----------------------*)
Procedure createfile(var s:string; var file1:text);
  begin
    write('Enter Name of New File: ');readln(s);
    assign(file1, s);rewrite(file1);
    writeln('File is OK!');writeln;
   end;
 
(*---------------Procedure, which divides into pages---------------*)
Procedure Razdelenie(i:integer;var bin:text;var j:integer);
   begin
    if i mod 50 = 0 then
      begin inc(j);writeln(bin);
        writeln(bin,'------------------------- ', j, ' cTp. -----------------------------');
        writeln(bin);
      end;
   end;
 
(*--Procedure which connects both files and put them into the 3rd--*)
Procedure Sliv(var in1,bin:text; var s:string; var i:integer);
   begin
     readln(in1, s);writeln(bin,s);inc(i);
   end;
 
 
begin
  openfile(filename1,in1);
  openfile(filename2,in2);
  createfile(filename3, bin);
 
  j:=-1;
  i:=0;
 
  While (eof(in1)=false)  or (eof(in2)=false) do begin
      razdelenie(i, bin, j);
    Sliv(in1,bin,stroka,i);
      razdelenie(i, bin, j);
    Sliv(in1,bin,stroka,i);
      razdelenie(i, bin, j);
    Sliv(in2,bin,stroka,i);
  end;
  Writeln('Done');readln;
  close(in1);close(in2);close(bin);
end.

@SystemError · 06.12.2008, 16:26 **[ТС]**

угу дак спасибо

Новые блоги и статьи Все статьи Все блоги /
Циклы for в Python py-thonny 17.03.2025 Существует множество ситуаций, когда нам нужно выполнить одно и то же действие несколько раз. Цикл for в Python — настоящий рабочий конь для большинства программистов. Если вам нужно пройтись по всем. . .	Предсказание ветвлений - путь к высокопроизводительному C++ NullReferenced 17.03.2025 В высокопроизводительном программировании на C++ каждый такт процессора на счету. Когда речь заходит о разработке систем с низкой задержкой — будь то высокочастотная торговля, обработка потоковых. . .	Паттерн CQRS в C# UnmanagedCoder 17.03.2025 Создание сложных корпоративных приложений часто требует нестандартных подходов к архитектуре. Один из таких подходов — паттерн CQRS (Command Query Responsibility Segregation), предлагающий простую,. . .	Паттерн Цепочка ответственности в C# UnmanagedCoder 17.03.2025 Цепочка ответственности — это поведенческий паттерн проектирования, который позволяет передавать запросы последовательно по цепочке потенциальных обработчиков, пока один из них не обработает запрос. . . .	Создаем микросервисы с NestJS, TCP и Typescript run.dev 17.03.2025 NestJS — фреймворк, который значительно упрощает создание серверных приложений на Node. js. Его прелесть в том, что он комбинирует концепции ООП, функционального программирования и предлагает. . .
Гексагональная архитектура со Spring Boot Javaican 17.03.2025 Если вы когда-нибудь сталкивались с ситуацией, когда внесение простых изменений в базу данных или пользовательский интерфейс заставляло вас переписывать весь код, то вы точно оцените элегантность. . .	Позиционирование Kafka Consumer и Seek-операции Javaican 17.03.2025 Что же такое Consumer Seek в Kafka? По сути, это API-метод, который позволяет программно указать, с какой позиции (offset) Consumer должен начать или продолжить чтение данных из партиции. Без этого. . .	Python NumPy: Лучшие практики и примеры py-thonny 17.03.2025 NumPy (Numerical Python) — одна из ключевых библиотек для научных вычислений в Python. Она превращает Python из просто удобного языка общего назначения в среду для проведения сложных математических. . .	Java Micronaut в Docker: контейнеризация с Maven и Jib Javaican 16.03.2025 Когда речь заходит о микросервисной архитектуре на Java, фреймворк Micronaut выделяется среди конкурентов. Он создан с учётом особенностей облачных сред и контейнеров, что делает его идеальным. . .	Управление зависимостями в Java: Сравнение Spring, Guice и Dagger 2 Javaican 16.03.2025 Инъекция зависимостей (Dependency Injection, DI) — один из фундаментальных паттернов проектирования, который радикально меняет подход к созданию гибких и тестируемых Java-приложений. Суть этого. . .

@SystemError 1 / 1 / 0 Регистрация: 02.12.2008 Сообщений: 6
		1
	Разработать программу слияния двух текстовых файлов в один 02.12.2008, 22:49. Показов 2312. Ответов 8 Метки нет (Все метки) Привет просьба помочь вот с какой задачей. Разработать программу слияния двух текстовых файлов в один по принципу: две строки от первого файла одна строка из второго. Предусмотреть проверку существования исходных файлов и результирующего файла и диагностических сообщений, а так же разбивку результирующего файла на страницы с указанием номера страниц. длина страниц 50 строк варианты можно писать на почту jena333@yandex.ru заранее спасибо всем кто откликнется=) 1

@MadMag (Yellow_Duck) 1261 / 130 / 15 Регистрация: 16.10.2008 Сообщений: 733
	03.12.2008, 00:01	2
	Спрошу, в ICQ 1

@SystemError 1 / 1 / 0 Регистрация: 02.12.2008 Сообщений: 6
	03.12.2008, 01:31 [ТС]	3
	напиши нормально номер аськи 0

@MadMag (Yellow_Duck) 1261 / 130 / 15 Регистрация: 16.10.2008 Сообщений: 733
	03.12.2008, 01:35	4
	239-791 жду 0

@Викдон 67 / 67 / 24 Регистрация: 21.11.2008 Сообщений: 226
	03.12.2008, 01:59	5
	разбивку результирующего файла на страницы? это каким образом делать? 0

@SystemError 1 / 1 / 0 Регистрация: 02.12.2008 Сообщений: 6
	06.12.2008, 16:26 [ТС]	9
	угу дак спасибо 0

Опции темы