С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
Сергей Шут
0 / 0 / 0
Регистрация: 14.12.2009
Сообщений: 10
1

Организовать обмен компонентами между файлами

26.12.2009, 15:29. Просмотров 571. Ответов 3
Метки нет (Все метки)

Даны текстовые файлы f1,f2,f3,f4,f5. Организовать обмен компонентами между файлами в соответствии со следу ющей схемой:

Код
f1   f2   f3   f4   f5
 |    |    |    |     |
f3   f4   f5   f2   f1
Необходима помощь !!!!
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.12.2009, 15:29
Ответы с готовыми решениями:

Организовать обмен компонентами между файлам
Даны текстовые файлы f1,f2,f3,f4,f5 . Организовать обмен компонентами между...

Вывести разницу между максимальным и минимальным компонентами матрицы
помоги мне решить задачу с матрицей: дана матрица размером NxM. вывести...

Вычислить разность между значениями первой и последней компонентами файла.
Создать файл,компоненты(количество <=8)которого являются вещественными...

Обмен числами между динамическими списками
Здравствуйте! Помогите пожалуйста. Есть такая задача, которую надо сделать...

Обмен между строками самого длинного слова первой строки на самое короткое слово второй строки
помогите чем сможете. Беда совсем. оформить в виде модуля подпрограммы,...

3
Puporev
Модератор
55500 / 42591 / 29441
Регистрация: 18.05.2008
Сообщений: 100,748
26.12.2009, 15:45 2
Создаешь файл-буфер, f6. В него пишешь первый по порядку замен файл, в первый второй и т.д. по цепочке, в последний файл пишешь из файла f6.
0
Сергей Шут
0 / 0 / 0
Регистрация: 14.12.2009
Сообщений: 10
27.12.2009, 11:45  [ТС] 3
Можешь текст программы написать ??? Пожалуйста !!! мне на понедельник надо !!!!
0
Puporev
Модератор
55500 / 42591 / 29441
Регистрация: 18.05.2008
Сообщений: 100,748
27.12.2009, 13:23 4
Если правильно понял схему, то так, если нет, переделай, сложного ничего нет. Не забудь заготовить в папке с программой 5 текстовых файлов file1..file5. Запиши в них для наглядности по паре строк цифр, соответственно номеру файла. После прогона программы снова посмотри файлы.
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
uses crt;
var f1,f2,f3,f4,f5,g:text;
    s:string;
begin
clrscr;
{создаем файл-буфер}
assign(g,'bufer.txt');
rewrite(g);
{обмен 1-3-5-1}
assign(f1,'file1.txt');
reset(f1);
while not eof(f1) do
 begin
  readln(f1,s);
  writeln(g,s);{1-в буфер}
 end;
assign(f3,'file3.txt');
reset(f3);
rewrite(f1);
while not eof(f3) do
 begin
  readln(f3,s);
  writeln(f1,s);{3 в 1}
 end;
close(f1);
assign(f5,'file5.txt');
reset(f5);
rewrite(f3);
while not eof(f5) do
 begin
  readln(f5,s);
  writeln(f3,s);{5 в 3}
 end;
close(f3);
reset(g);
rewrite(f5);
while not eof(g) do
 begin
  readln(g,s);
  writeln(f5,s);{1 в 5}
 end;
close(f5);
rewrite(g);
assign(f2,'file2.txt');
reset(f2);
while not eof(f2) do
 begin
  readln(f2,s);
  writeln(g,s);{2 в буфер}
 end;
rewrite(f2);
assign(f4,'file4.txt');
reset(f4);
while not eof(f4) do
 begin
  readln(f4,s);
  writeln(f2,s);{4 в 2}
 end;
close(f2);
reset(g);
rewrite(f4);
while not eof(g) do
 begin
  readln(g,s);
  writeln(f4,s);{2 в 4}
 end;
close(f4);
close(g);
erase(g);
write('Faily perepisany!');
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.12.2009, 13:23

Организовать меню для работы с типизированными файлами
Доброе утро!Дали задание,написал код,но программа не запускается,да и...

Организовать обмен компонентами между файлами
Даны файлы f_1,f_2,f_3,f_4,f_5 компонентами которых являются...

Обмен компонентами между файлами
Даны файлы f1 f2 f3 f4 f5 компоненты которых являются действительными числами....


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

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

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