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

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

11.01.2010, 19:04. Показов 1063. Ответов 1
Метки нет (Все метки)

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

(указ.:ввод и вывод файлов оформить в программе в виде процедур. Предусмотреть меню с вызовом процедур:создание и запись строк в файл, добавление в файл новых строк, вывод содержимого файла на экран и обработка, согласно условию)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.01.2010, 19:04
Ответы с готовыми решениями:

Дан файл из целых чисел. Поменять порядок компонентов в файле на обратный
1) Дан файл из целых чисел. Поменять порядок компонентов в файле на обратный. 2) Заменить в...

Дан файл из целых чисел. Поменять порядок компонент на обратный
В заданной матрице A(N,M) найти количество различных по значению элементов в кадом столбце. Затем...

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

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

1
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
11.01.2010, 19:08 2
Лучший ответ Сообщение было отмечено massacre как решение

Решение

Вот инверсия файла, все остальные прихоти, милости просим во Фриланс.

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
uses crt;
var f:file of integer;
    n,i,a,k,b:integer;
begin
clrscr;
assign(f,'file1');
rewrite(f);
write('Сколько чисел ввести в файл n=');
readln(n);
for i:=1 to n do
 begin
  write('a=');
  readln(a);
  write(f,a);
 end;
clrscr;
reset(f);
writeln('Содержание исходного файла:');
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
writeln;
close(f);
reset(f);
for i:=0 to filesize(f) div 2 do{считаем до середины}
 begin
  seek(f,i);{смотрим число в начале}
  read(f,a);
  seek(f,filesize(f)-i-1);{смотрим число в конце}
  read(f,b);
  seek(f,i); {с конца пишем в начало}
  write(f,b);
  seek(f,filesize(f)-i-1); {с начала пишем в конец}
  write(f,a);
 end;
close(f);
reset(f);
writeln('Содержание иизмененого файла:');
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
writeln;
close(f);
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.01.2010, 19:08

Помощь в написании контрольных, курсовых и дипломных работ здесь.

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

Поменять порядок строк в файле на обратный
Как из gggggggg wwwwww ppppppp Сделать? ppppppp wwwwww gggggggg

Поменять порядок слов в строках на обратный в текстовом файле
Была задача поменять порядок строк изначально(прикладываю реализацию). Теперь преподаватель просит...

Дан одномерный массив .ПОменять в нём порядок чётных элементов на обратный
Дан одномерный массив .ПОменять в нём порядок чётных элементов на обратный Исходный массив 2 5 3...


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

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

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