Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
kilolol
0 / 0 / 0
Регистрация: 28.02.2013
Сообщений: 21
1

Имеется два файла с числами. Поменять местами их содержимое (использовать вспомогательный файл)

02.03.2013, 22:00. Просмотров 796. Ответов 1
Метки нет (Все метки)

Имеется два файла с числами. Поменять местами их содержимое (использовать вспомогательный файл).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.03.2013, 22:00
Ответы с готовыми решениями:

Даны два символьных файла F1 и F2. Переписать F1 в F2 , а F2 в F1. Использовать вспомогательный файл
4) Даны два символьных файла F1 и F2. Переписать F1 в F2 , а F2 в F1....

Даны два файла А и В (тип элементов одинаковый). Поменять местами содержимое этих файлов.
Даны два файла А и В (тип элементов одинаковый). Поменять местами содержимое...

Вывести на экран содержимое файла. Поменять местами первую и последнюю записи в файле.
Запись имеет вид: номер читательского билета, автор книги, название, дата...

Поменять два текстовых файла местами
Заданы два текстовых файла. Поменять эти файлы местами.

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

1
Kodzaev
3005 / 1894 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
02.03.2013, 23:43 2
Лучший ответ Сообщение было отмечено kilolol как решение

Решение

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
Uses crt;
Procedure WriteFile(t: File of Integer);
var k: Integer;
begin
  Reset(t);
  Seek(t,0);
  While not Eof(t) do
  begin
    Read(t,k);
    Write(k,' ');
  end;
end;
 
Var
  f1,f2,buf: File of Integer;
  i,n,x: Integer;
BEGIN
Write('Сколько чисел записать в 1 файл? ');
Readln(n);
Assign(f1,'1.dat');
Rewrite(f1);
For i:=1 to n do
Write(f1,Random(100));
Writeln('1 файл:');
WriteFile(f1);
Writeln;
Write('Сколько чисел записать во 2 файл? ');
Readln(n);
Assign(f2,'2.dat');
Rewrite(f2);
For i:=1 to n do
Write(f2,Random(100));
Writeln('2 файл:');
WriteFile(f2);
Assign(buf,'buf.dat');
Rewrite(buf);
Reset(f1);
While not Eof(f1) do
begin
  Read(f1,x);
  Write(buf,x);
end;
Rewrite(f1);
Reset(f2);
Seek(f2,0);
While not Eof(f2) do
begin
  Read(f2,x);
  Write(f1,x);
end;
Rewrite(f2);
Seek(buf,0);
While not Eof(buf) do
begin
  Read(buf,x);
  Write(f2,x);
end;
Writeln;
Writeln('Файлы после преобразования:');
Writeln('1 файл');
WriteFile(f1);
Writeln;
Writeln('2 файл');
WriteFile(f2);
Close(f1);
Close(f2);
Close(buf);
Erase(buf);
END.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.03.2013, 23:43

Используя вспомогательный файл, заданным образом переписать компоненты исходного файла в результирующий файл
Дан файл f, компоненты которого являются целыми числами. Никакая из компонент...

Поменять местами содержимое массивов
Даны массивы A и B одинакового размера N. Поменять местами их со¬держимое и...

Поменять местами содержимое файлов
Даны два файла А и В. Поменять местами содержимое этих файлов.


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru