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

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

19.05.2011, 16:50. Показов 3133. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан файл целых чисел. Создать новый файл, содержащий те же элементы, что и исходный файл, но в обратном порядке. РЕШЕНА НО НЕ ИДЕТ ПОСМОТРИТЕ ПОЖАЛУЙСТО ЧТО С НЕЙ НЕ ТАК
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.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.05.2011, 16:50
Ответы с готовыми решениями:

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

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

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

Типизированный файл. Создать файл целых чисел. Определить суммы чисел до локальных минимумов, записав их в новый файл
Пожалуйста, помогите с решением: Создать файл целых чисел. Определить суммы чисел до локальных...

2
magirus
19.05.2011, 16:52
  #2
 Комментарий модератора 
Пользуйтесь тегами выделения кода, и называйте темы максимально информативно.
1
0 / 0 / 0
Регистрация: 19.05.2011
Сообщений: 22
19.05.2011, 18:28  [ТС] 3
Да !! она идет НО МОЖНО СПРОЛСИТЬ! чТО МНЕ ВВОДИТЬ? ЦЫФРЫ?

Добавлено через 57 секунд
Да !! НО МОЖНО СПРОСИТЬ! чТО МНЕ ВВОДИТЬ? ЦЫФРЫ?
0
19.05.2011, 18:28
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.05.2011, 18:28
Помогаю со студенческими работами здесь

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

Дан файл целых чисел.Составить новый файл чисел
Помогите пожалуйста.Дан файл целых чисел.Составить новый файл чисел путем изменения первого и...

Создать файл из N чисел. Вывести содержимое на экран. Заменить отрицательные элементы на 5 остальные на 0. Записать в новый файл
1. Создать файл, состоящий из N целых чисел. Вывести содержимое этого файла на экран. 2. Заменить...

Дан символьный файл f. Записать в файл g компоненты файла f в обратном порядке
Организовать символьный файл f из N компонент. После этого организовать файл g содержащий все...


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

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

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