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

Файл: создать файл и записать в него элементы исходного файла в обратном порядке

10.05.2012, 10:25. Показов 1378. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан файл целых чисел. создать новый , содержащий те же элементы, что и исходный файл , но в обратном порядке.





написал код.

но не так
Delphi
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
procedure TForm4.Button1Click(Sender: TObject);
 
var
  f:textFile;
  mas: array[1..100]of integer;
  i, n: integer;
 
begin
 
  n:=0;
  assignFile(f, 'file.txt');
  reset(f);
  while not eof(f) do
  begin
    inc(n);
    read(f, mas[n]);
  end;
  closeFile(f);
 
  assignFile(f, 'file2.txt');
  rewrite(f);
  for i:=n downto 1 do
    write(f, mas[i], ' ');
  closeFile(f);
  ShowMessage('Выполнено!')
end;
нужно использовать файл оф интеджер . помогите переделать .
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.05.2012, 10:25
Ответы с готовыми решениями:

Создать строковый файл и записать в него все слова из исходного файла, начинающиеся на эту букву (прописную или строчную)
Дан символ "С" - прописная (заглавная) русская буква и текстовый файл Создать строковый файл и...

Дан символьный файл f. Записать в файл g компоненты файла f в обратном порядке
Добрый день. Возник вопрос. Дан символьный файл f. Записать в файл g компоненты файла f в обратном...

Записать в файл g компоненты файла f в обратном порядке
Дан символьный файл f. Записать в файл g компоненты файла f в обратном порядке.

Записать в файл g компоненты файла f в обратном порядке
1. дан символьный файл f.записать в файл g компоненты файла f в обратном порядке. 2. в библиотеке...

2
Житель Земли
3002 / 3004 / 391
Регистрация: 26.07.2011
Сообщений: 11,463
Записей в блоге: 1
10.05.2012, 10:56 2
Delphi
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
procedure TForm1.Button1Click(Sender: TObject);
const
  name1 = 'first file.int';
  name2 = 'second file.int';
var
  f1,f2: file of Integer;
  i: byte;
  n: Integer;
begin
  Randomize;
  // ñîçäàåì ïåðâûé ôàéë
  AssignFile(f1,name1);
  Rewrite(f1);
  for i:= 0 to 100 do
  begin
    n:= Random(1000);
    Write(f1,n);
  end;
  CloseFile(f1);
  // âòîðîé ôàéë
  AssignFile(f1,name1);
  Reset(f1);
  AssignFile(f2,name2);
  Rewrite(f2);
  i:= filesize(f1)-1;
  // ÷òåíèå "ñ êîíöà"
  while i > 1 do
  begin
    seek(f1,i);
    read(f1,n);
    write(f2,n);
    Dec(i,2);
  end;
  CloseFile(f1);
  CloseFile(f2);
end;
Добавлено через 4 минуты
протестировал свой опус - вылезли баги. сейчас исправлю

Добавлено через 2 минуты
Delphi
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
procedure TForm1.Button1Click(Sender: TObject);
const
  name1 = 'first file.int';
  name2 = 'second file.int';
var
  f1,f2: file of Integer;
  i: integer;              // ИСПРАВЛЕН ТИП
  n: Integer;
begin
  Randomize;
  // создаем первый файл
  AssignFile(f1,name1);
  Rewrite(f1);
  for i:= 0 to 10 do
  begin
    n:= Random(1000);
    Write(f1,n);
  end;
  CloseFile(f1);
  // второй файл
  AssignFile(f1,name1);
  Reset(f1);
  AssignFile(f2,name2);
  Rewrite(f2);
  i:= filesize(f1)-1;
  // чтение "с конца"
  repeat                     // ИСПРАВЛЕН ЦИКЛ
    seek(f1,i);
    read(f1,n);
    write(f2,n);
    Dec(i);      // ИСПРАВЛЕНО
  until i < 0;
  CloseFile(f1);
  CloseFile(f2);
end;
1
0 / 0 / 0
Регистрация: 14.01.2012
Сообщений: 42
10.05.2012, 11:12  [ТС] 3
DenNik, спасибо =) сейчас разбирать буду
0
10.05.2012, 11:12
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.05.2012, 11:12
Помогаю со студенческими работами здесь

Записать в файл g содержимое файла f в обратном порядке
Даны текстовые файлы F и g,записать в файл g данные которые записаны в f файле в обратном порядке

Записать в файл g компоненты файла f в обратном порядке
Дан файл f, компоненты которого являются символами. Записать в файл g компоненты файла f в...

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

Дан текстовый файл. Записать в отдельный файл все симметричные строки исходного файла, являющиеся отдельными предложения
Работа с файлами и строками,если можно,то напишите код,а если можно,то ещё с объяснениями


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

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

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