Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
kilolol
0 / 0 / 0
Регистрация: 28.02.2013
Сообщений: 21
#1

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

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

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

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

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

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

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

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

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

1
Kodzaev
2999 / 1888 / 611
Регистрация: 30.04.2011
Сообщений: 3,054
02.03.2013, 23:43 #2
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
Привет! Вот еще темы с ответами:

Поменять местами содержимое массивов - Pascal
Даны массивы A и B одинакового размера N. Поменять местами их со¬держимое и вывести вначале элементы преобразованного массива A, а за¬тем —...

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

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

Поменять местами содержимое двух файлов - Pascal ABC
поменять местами содержимое двух текстовых файлов. помогите найти ошибку var f,f1,fo:text; s:string;//fo - третий файл прост для...


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

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

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