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

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

08.04.2010, 11:22. Показов 9912. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Пожалуйста, помогите решить задачу в PascalABC!!!
Дан файл целых чисел. Создать новый файл, содержащий те же элементы, что и исходный файл, но в обратном порядке
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.04.2010, 11:22
Ответы с готовыми решениями:

Дан строковый файл. Создать новый строковый файл, содержащий все строки исходного файла наибольшей длины (в обратном порядке)
Дан строковый файл. Создать новый строковый файл, содержащий все строки исходного файла наибольшей...

Дан файл вещественных чисел Создать файл целых чисел, содержащий номера локальных максимумов исходного файла
2-File. Дан файл вещественных чисел. Создать файл целых чисел, содержащий номера всех локальных...

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

Создать новый файл, содержащий все строки исходного файла наибольшей длины в обратном порядке
Дан текстовый файл. Создать новый файл, содержащий все строки исходного файла наибольшей длины в...

3
Студент
498 / 344 / 162
Регистрация: 15.03.2010
Сообщений: 601
08.04.2010, 18:09 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
70
program pr1;
var f1,f2:file of integer; n,kl:byte; ch:array[1..1000] of integer;
(*процедура создания первого файла*)
procedure InputFile;
var i:byte; ch:integer;
begin
  writeln('Kolichestvo chisel');
  readln(n);
  assign(f1,'Input1');
  rewrite(f1);
  for i:=1 to n do
  begin
    writeln('Vvedite ',i,' chislo');
    readln(ch);
    write(f1,ch);
  end;
  writeln('Zapis zakonchena');
  close(f1);
end;
(*процедура записи чисел в файл 2 из файла 1 в обратном порядке*)
procedure FileOf2;
var i,n:byte;
begin
  assign(f1,'Input1');
  reset(f1);
  assign(f2,'Input2');
  rewrite(f2);
  for i:=1 to FileSize(f1) do
  read(f1,ch[i]);
  for i:=FileSize(f1) downto 1 do
  write(f2,ch[i]);
  close(f1);
  closE(f2);
end;
(*процедура вывода содержимого двух получившихся файлов*)
procedure OutFile;
var i,n:byte; ch:integer;
begin
  assign(f1,'Input1');
  reset(f1);
  assign(f2,'Input2');
  reset(f2);
  writeln('Содержимое первого файла:');
  for i:=1 to FileSize(f1) do
  begin
    read(f1,ch);
    write(ch,', ');
  end;
  close(f1);
  writeln;
  writeln('Содержимое второго файла:');
  for i:=1 to FileSize(f2) do
  begin
    read(f2,ch);
    write(ch,', ');
  end;
  writeln;
  close(f2);
end;
begin
  writeln('1- создание файла');
  writeln('2- запись в другой файл в обратном порядке');
  readln(kl);
  case kl of
  1:InputFile;
  2:if FileExists('Input1') then FileOf2
                      else begin writeln('На диске отсутствуе файл с именем Input1. Создайте его');exit;end;
  end;
  OutFile;
end.
1
0 / 0 / 0
Регистрация: 05.03.2010
Сообщений: 7
01.05.2010, 06:12  [ТС] 3
Спасибо!!!
0
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
01.05.2010, 08:19 4
Цитата Сообщение от Жека-старший Посмотреть сообщение
for i:=1 to FileSize(f1) do
Это в принципе неверно 2 раза.
1 индексация начинается с ноля, последний индекс=filesize(f)-1.
2 читать нужно с конца
Pascal
1
2
3
4
5
6
7
8
for filesize(f)-1 downto 0 do
 begin
  seek(f,i);
  read(f,a);
  write(g,a);
 end;
close(f);
close(g);
1
01.05.2010, 08:19
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.05.2010, 08:19
Помогаю со студенческими работами здесь

Дан файл из целых чисел. упорядочить файл в порядке возрастани
Задача на Pascal ABC Тема:Типизированные файлы Задача: Дан файл из целых чисел. упорядочить...

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

Создать файл целых чисел, содержащий номера всех локальных максимумов исходного файла в порядке возрастания
Добрый вечер! Помогите пожалуйста! Завтра экзамен:cry: Не правильно работает программа, выводит не...

Дан текстовый файл. Создать символьный файл, содержащий все символы
Дан текстовый файл. Создать символьный файл, содержащий все символы, встретившиеся в тексте,...


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

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

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