6 / 6 / 2
Регистрация: 16.10.2011
Сообщений: 226
1

Имеется текстовый файл. Переписать его строки в перевернутом виде в другой файл

08.06.2012, 06:16. Показов 2662. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Здравствуйте. Помогите пожалуйста с задачкой.

Имеется текстовый файл. Переписать его строки в перевернутом виде в другой файл. Порядок строк во втором файле должен совпадать порядком строк в заданном файле.
Вот есть код, для перевертывания слова...

Pascal
1
2
3
4
5
6
7
8
9
10
var
s:string;
t:string;
i:byte;
begin
redln(t);
for i:=1 to length(t) do
insert(t[i],s,1);
writeln(s);
end.
Но вот его бы в файл, все как положено... помогите пожалуйста.

Добавлено через 7 часов 31 минуту
Люди добрые, взгляните пожалуйста.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.06.2012, 06:16
Ответы с готовыми решениями:

Переписать строки файла в перевернутом виде в другой файл
Имеется текстовый файл. Переписать его строки в перевернутом виде в другой файл. Порядок строк во...

Имеется текстовый файл. Переписать его строки в другой файл.
Имеется текстовый файл. Переписать его строки в другой файл. Порядок строк во втором файле должен...

Имеется текстовый файл. Переписать в другой файл все его строки с заменой в них символа 0 на символ 1 и наоборот.
Имеется текстовый файл. Переписать в другой файл все его строки с заменой в них символа 0 на...

Дан файл f2. Переписать в “перевернутом” виде его строки
Здраствуйте, не ловко вас беспокоить, но не могли бы вы мне указать мою ошибку в данной...

5
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,598
Записей в блоге: 1
08.06.2012, 07:27 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
Var f,g:text;
    s:string;
Function Perevorot(t:string):string;
Var i:integer;
    s:string;
Begin
    For i:=1 to length(t) do
     insert(t[i],s,1);
    Perevorot:=s;
End;
Begin
    Assign(f,'a.txt');Reset(f);{Файл для чтения строк}
    Assign(g,'b.txt');Rewrite(g);{Файл для записи}
    While not Eof(f) do
     Begin
      readln(f,s);
      s:=Perevorot(s);
      writeln(g,s);
     End;
    writeln('Формирование файла завершено!');
    Close(f);Close(g);
    readln;
End.
С твоей функцией...
2
6 / 6 / 2
Регистрация: 16.10.2011
Сообщений: 226
10.06.2012, 22:41  [ТС] 3
спасибо

Добавлено через 50 минут
Artem7, А оно что-то не хочет работать..., не подскажешь проблемку?
0
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,598
Записей в блоге: 1
11.06.2012, 06:11 4
Добавь в функцию переворота s:='';
Я просто на ABC тестил а тут он фигню всякую в файл сувал потому что сроку не обнулил...
Работает прога!
Пример
Входной
Файл должен быть предварительно создан в папке с прогрммой,
Там же и появляется файл переписанный
Вот такие вот дела!
Выходной файл
,йоммргорп с екпап в надзос оньлетиравдерп ьтыб нежлод лйаФ
йыннасипереп лйаф ястеялвяоп и еж маТ
!алед тов еикат тоВ
1
1179 / 430 / 194
Регистрация: 23.03.2020
Сообщений: 1,018
Записей в блоге: 1
24.03.2020, 17:06 5
Pascal
1
2
3
4
5
6
7
8
9
// Переворачивает каждую строку
begin     
  WriteLines('Output.txt', ReadLines('input.txt').Select(t-> t[::-1]));
end.
 
//Пеоеворачивает последовательность строк. В начале последняя в конце первая.
begin     
  WriteLines('Output.txt', ReadLines('input.txt').Reverse);
end.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7785 / 4611 / 2827
Регистрация: 22.11.2013
Сообщений: 13,106
Записей в блоге: 1
24.03.2020, 21:32 6
canadamoscow,
вы ошиблись разделом. В Turbo Pascal этот код не является допустимым.
Не надо мусорить по форуму без особой на то нужды.
0
24.03.2020, 21:32
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.03.2020, 21:32
Помогаю со студенческими работами здесь

Имеется текстовый файл. Переписать в другой файл те его строки, в которых имеется более 30-ти символов
Имеется текстовый файл. Переписать в другой файл те его строки, в которых имеется более 30-ти...

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

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

Имеется текстовый файл. Переписать в другой файл
Имеется текстовый файл. Переписать в другой файл все его строки с заменой в них символа 0 на символ...


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

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

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