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

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

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

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

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

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

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

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

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

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

1
Kodzaev
3002 / 1891 / 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
Привет! Вот еще темы с решениями:

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

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

Имеется типизированный файл с числами
Имеется типизированный файл с числами. Найти:б) Порядковый номер минимального...

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


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

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

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