Переписать с сохранением порядка следования элементы 1-го файла во 2-ой

@Amaliya · Регистрация: 10.02.2010

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

]Имеются 2 типизированных файла одинакового размера, элементами которых являются отдельные символы. Переписать с сохранением порядка следования элементы 1-го файла во 2-ой, а элементы 2-го файла - в 1-ый. Использовать вспомогательный файл.

@yanyk1n · 23.02.2010, 13:48

Pascal

uses crt;
var input,output,b:file of char;
ch:char;
begin
 assign(input,'input.txt');
 assign(b,'buf.txt');
 assign(output,'output.txt');
 reset(input);
 rewrite(b);
 while not eof(input) do
 begin
  read(input,ch);
  write(b,ch);
 end;
 close(input);
 close(b);
 reset(output);
 rewrite(input);
 while not eof(output) do
 begin
  read(output,ch);
  write(input,ch);
 end;
 close(output);
 close(input);
 reset(b);
 rewrite(output);
 while not eof(b) do
 begin
  read(b,ch);
  write(output,ch);
 end;
 close(b);
 close(output);
end.

@Amaliya · 23.02.2010, 14:03 **[ТС]**

Спасибо. Но как она должна работать? Нажимаю F9 и она выдает какую-то ошибку... Или я ее не там набрала? В Console Application?

@yanyk1n · 23.02.2010, 14:07

Amaliya, у вас изначально файлы input и output созданы?

@Amaliya · 23.02.2010, 14:13 **[ТС]**

Точно! Нет.. А где их лучше создать?

@WolfCF · 23.02.2010, 14:16

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

А где их лучше создать

в папке с программой.

@Puporev · 23.02.2010, 14:19

Amaliya, Добавьте переменные и перепишите начало программы.

Pascal

var n,i:integer;
    c1,c2:char; 
    ........................
begin
 assign(input,'input.txt');
 rewrite(input);
 assign(b,'buf.txt');
 assign(output,'output.txt');
 rewrite(output);
 write('Количество чимволов n=');
 readln(n);
 writeln('Введите в файлы символы:');
 for i:=1 to n do
  begin
   write('c1=');readln(c1);write(input,c1);
   write('c2=');readln(c2);write(output,c2);
  end;
writeln('Содержание первого файла:')  ;
reset(input);
while not eof(input) do
 begin
  read(input,c1);
  write(c1,' ');
 end;
writeln;
writeln;
close(input);
writeln('Содержание второго файла:')  ;
reset(output);
while not eof(output) do
 begin
  read(output,c1);
  write(c1,' ');
 end;
writeln;
writeln;
close(output);

@Amaliya · 23.02.2010, 15:27 **[ТС]**

Все перепробовала.. Ничего не получается... Помогите, плиз! Можно всю программку от начала до конца со всеми изменениями?

@Puporev · 23.02.2010, 16:10

Pascal

uses crt;
var f1,f2,f3:file of char;
    n,i:integer;
    c1,c2:char; 
begin
clrscr;
assign(f1,'file1');
rewrite(f1);
assign(f2,'file2');
rewrite(f2);
assign(f3,'file3');
rewrite(f3);
write('Количество чимволов n=');
readln(n);
writeln('Введите в файлы символы:');
for i:=1 to n do
  begin
   write('c1=');readln(c1);write(f1,c1);
   write('c2=');readln(c2);write(f2,c2);
  end;
writeln('Содержание первого файла:')  ;
reset(f1);
while not eof(f1) do
 begin
  read(f1,c1);
  write(c1,' ');
 end;
writeln;
writeln;
close(f1);
writeln('Содержание второго файла:')  ;
reset(f2);
while not eof(f2) do
 begin
  read(f2,c1);
  write(c1,' ');
 end;
writeln;
writeln;
close(f2);
reset(f1);
while not eof(f1) do
 begin
  read(f1,c1);
  write(f3,c1);
 end;
close(f1);
rewrite(f1);
reset(f2);
while not eof(f2) do
 begin
  read(f2,c1);
  write(f1,c1);
 end;
close(f2);
close(f1);
reset(f3);
rewrite(f2);
while not eof(f3) do
 begin
  read(f3,c1);
  write(f2,c1);
 end;
close(f2);
close(f3);
erase(f3);
writeln('Содержание первого файла:');
reset(f1);
while not eof(f1) do
 begin
  read(f1,c1);
  write(c1,' ');
 end;
writeln;
writeln;
close(f1);
writeln('Содержание второго файла:');
reset(f2);
while not eof(f2) do
 begin
  read(f2,c1);
  write(c1,' ');
 end;
readln
end.

Переписать с сохранением порядка следования элементы 1-го файла во 2-ой

Решение

Решение

Решение

@Amaliya 11 / 8 / 1 Регистрация: 10.02.2010 Сообщений: 22
		1
	Переписать с сохранением порядка следования элементы 1-го файла во 2-ой 23.02.2010, 13:43. Показов 1474. Ответов 8 Метки нет (Все метки) ]Имеются 2 типизированных файла одинакового размера, элементами которых являются отдельные символы. Переписать с сохранением порядка следования элементы 1-го файла во 2-ой, а элементы 2-го файла - в 1-ый. Использовать вспомогательный файл. 0

@Amaliya 11 / 8 / 1 Регистрация: 10.02.2010 Сообщений: 22
	23.02.2010, 14:03 [ТС]	3
	Спасибо. Но как она должна работать? Нажимаю F9 и она выдает какую-то ошибку... Или я ее не там набрала? В Console Application? 0

@yanyk1n 4341 / 1473 / 680 Регистрация: 12.03.2009 Сообщений: 5,310
	23.02.2010, 14:07	4
	Amaliya, у вас изначально файлы input и output созданы? 0

@Amaliya 11 / 8 / 1 Регистрация: 10.02.2010 Сообщений: 22
	23.02.2010, 14:13 [ТС]	5
	Точно! Нет.. А где их лучше создать? 0

@WolfCF 3310 / 1372 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	23.02.2010, 14:16	6
	Сообщение от Amaliya А где их лучше создать в папке с программой. 0

@Amaliya 11 / 8 / 1 Регистрация: 10.02.2010 Сообщений: 22
	23.02.2010, 15:27 [ТС]	8
	Все перепробовала.. Ничего не получается... Помогите, плиз! Можно всю программку от начала до конца со всеми изменениями? 0

Опции темы