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

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

25.11.2012, 15:49. Показов 2052. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Ввести файлы 1 F и 2 F . Переписать с сохранением порядка следования компоненты файла 1 F в файл 2 F , а компоненты файла 2 F в файл 1 F . При решении допускается использование вспомогательного файла H . Файлы вывести до и после преобразования с возведением в квадрат их максимальных компонент. Ввод данных файла должен вводиться вручную, а не рандомно.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.11.2012, 15:49
Ответы с готовыми решениями:

Переписать с сохранением порядка следования компоненты файла f1 в файл f2, а компоненты файла f2 в файл f1
Даны текстовые файлы f1 и f2. Переписать с сохранением порядка следования компоненты файла f1 в...

Переписать с сохранением порядка следования компоненты файла F1 в файл F2
Ввести файлы F1 и F2. Переписать с сохранением порядка следования компоненты файла F1 в файл F2, а...

Переписать с сохранением порядка следования компоненты файла f1 в файл f2
1, Даны текстовые файлы f1 и f2. Переписать с сохранением порядка следова-ния компоненты файла f1 в...

Переписать с сохранением порядка следования компоненты файла f1 в файл f2
Помогите! Даны файлы f1 и f2, содержащие целые числа. Переписать с сохранением порядка следования...

1
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
25.11.2012, 19:13 2
Лучший ответ Сообщение было отмечено CyberNUB как решение

Решение

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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
Uses crt;
Type
  Tfile=File of Integer;
Procedure OutputFile(Var f: Tfile);
Var i,x: Integer;
begin
  For i:=0 to Filesize(f)-1 do
  begin
    Seek(f,i);
    Read(f,x);
    Write(x,' ');
  end;
  Writeln;
end;
{---------------------}
Function MaxElemIndex(Var f: Tfile): Integer;
Var i,x,m,y: Integer;
begin
  Seek(f,0);
  Read(f,x);
  m:=0;
  For i:=0 to Filesize(f)-1 do
  begin
    Seek(f,m);
    Read(f,y);
    Seek(f,i);
    Read(f,x);
    If x>y Then m:=i;
  end;
  MaxElemIndex:=m;
end;
{---------------------}
Procedure SwapFiles(Var file1,file2: Tfile);
Var i,x: Integer;
begin
  For i:=0 to Filesize(file2)-1 do
  begin
    Seek(file2,i);
    Read(file2,x);
    Write(file1,x);
  end;
end;
Var
  f1,f2,h: Tfile;
  i,n1,n2,x: Integer;
BEGIN
Clrscr;
Assign(f1,'fail1.dat');
Assign(f2,'fail2.dat');
Write('Vvedite kol-vo komponentov v 1 faile: '); Readln(n1);
Write('Vvedite kol-vo komponentov vo 2 faile: '); Readln(n2);
Rewrite(f1);
Writeln('Vvedite ',n1,' komponentov v 1 fail:');
For i:=1 to n1 do
begin
  Readln(x);
  Write(f1,x);
end;
Rewrite(f2);
Writeln('Vvedite ',n2,' komponentov vo 2 fail:');
For i:=1 to n2 do
begin
  Readln(x);
  Write(f2,x);
end;
Writeln('1 ishodnii fail:');
OutputFile(f1);
Writeln('2 ishodnii fail:');
OutputFile(f2);
Assign(h,'buf.dat');
Rewrite(h);
Reset(f1);
SwapFiles(h,f1);
Rewrite(f1);
Reset(f2);
SwapFiles(f1,f2);
Reset(h);
Rewrite(f2);
SwapFiles(f2,h);
Seek(f1,MaxElemIndex(f1));
Read(f1,x);
x:=Sqr(x);
Seek(f1,MaxElemIndex(f1));
Write(f1,x);
Seek(f2,MaxElemIndex(f2));
Read(f2,x);
x:=Sqr(x);
Seek(f2,MaxElemIndex(f2));
Write(f2,x);
Reset(f1);
Writeln('Preobrazovannii 1 fail:');
OutputFile(f1);
Reset(f2);
Writeln('Preobrazovannii 2 fail:');
OutputFile(f2);
Close(f1);
Close(f2);
Close(h);
Erase(h);
Readln
END.
2
25.11.2012, 19:13
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.11.2012, 19:13
Помогаю со студенческими работами здесь

Переписать с сохранением порядка следования компоненты файла а1 в файл f2 а файла f2 в файл f1
Помогите пожалуйста товарищи программисты решить мой вариант на тему файлы... Вариант 5 1. Даны...

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

Файл: Переписать с сохранением порядка следования компоненты файлы f1 в файл f2, а компоненты файла f2 - в файл f1.
При открытии и сохранении файла необходимо использовать файловые диалоги. 1. Даны...

Переписать с сохранением порядка следования компоненты файла F1 в файл F2, а компоненты файла F2 - в файл F1
Даны символьные файлы F1 и F2. Переписать с сохранением порядка следования компоненты файла F1 в...


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

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

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