3 / 3 / 0
Регистрация: 10.01.2012
Сообщений: 46
1

Добавить к первому файлу содержимое второго файла, а ко второму файлу — содержимое первого

06.04.2012, 20:52. Показов 3364. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Даны два файла одного и того же типа. Добавить к первому файлу содержимое второго файла, а ко второму файлу — содержимое первого.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.04.2012, 20:52
Ответы с готовыми решениями:

Добавить к первому файлу содержимое второго файла, а ко второму файлу — содержимое первого.
11. Даны два файла одного и того же типа. Добавить к первому файлу содержимое второго файла, а ко...

С помощью процедур BlockRead и BlockWrite добавить к первому файлу содержимое второго файла
Даны два файла одного и того же типа. С помощью процедур BlockRead и BlockWrite добавить к первому...

Blockread и Blockwrite. Добавить к 1-му файлу содержание второго, а ко второму файлу - содержание первого
даны 2 файла одного и того же типа. с помощью процедурывить Blockread и Blockwrite добавить...

Добавить в конец первого файла содержимое второго, а в конец второго файла — содержимое первого
. Даны два текстовых файла. Добавить в конец первого файла содержимое второго, а в конец второго...

1
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
07.04.2012, 09:01 2
Лучший ответ Сообщение было отмечено katushaa как решение

Решение

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
uses crt;
var f,g:file of integer;
    n,a,i:integer;
begin
randomize;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
write('Сколько чисел записать в файл 1 n=');
read(n);
for i:=1 to n do
 begin
  a:=random(20);
  write(f,a);
 end;
write('Сколько чисел записать в файл 2 n=');
read(n);
for i:=1 to n do
 begin
  n:=random(20)+30;
  write(g,n);
 end;
reset(f);
writeln('Содержание файла 1');
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
writeln;
n:=filesize(f);//количество компонент в 1 изначально
reset(g);
writeln('Содержание файла 2');
while not eof(g) do
 begin
  read(g,a);
  write(a,' ');
  seek(f,filesize(f));
  write(f,a);//дописываем 2 в 1
 end;
writeln;
for i:=0 to n-1 do //переписываем n компонент из 1 во 2
 begin
  seek(f,i);
  read(f,a);
  seek(g,filesize(g));
  write(g,a);
 end;
seek(f,0);
writeln('Содержание файла 1+2');
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
writeln;
seek(g,0);
writeln('Содержание файла 2+1');
while not eof(g) do
 begin
  read(g,a);
  write(a,' ');
 end;
close(f);
close(g);
end.
0
07.04.2012, 09:01
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.04.2012, 09:01
Помогаю со студенческими работами здесь

Добавить в конец первого файла содержимое второго, а в конец второго файла — содержимое первого
Задача 8. Даны два текстовых файла. Добавить в конец первого файла содержимое второго, а в конец...

Добавить в конец первого файла содержимое второго
помогите разобраться кто сможет! тут такое дело ошибки есть! задание: Даны два текстовых файла....

Даны два текстовых файла. Добавить в конец первого файла содержимое второго файла
3)Даны два текстовых файла. Добавить в конец первого файла содержимое второго файла.

Даны два текстовых файла. Добавить в начало первого файла содержимое второго файла.
Даны два текстовых файла. Добавить в начало первого файла содержимое второго файла.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru