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

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

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

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

Разработать программу слияния двух текстовых файлов в один по принципу: две строки от первого файла одна строка из второго. Предусмотреть проверку существования исходных файлов и результирующего файла и диагностических сообщений, а так же разбивку результирующего файла на страницы с указанием номера страниц. длина страниц 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

а может и так:

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
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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@SystemError 1 / 1 / 0 Регистрация: 02.12.2008 Сообщений: 6

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

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

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

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

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

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