Текстовый файл: сделать так, чтобы все строки были задом наперед

25.12.2012, 22:16. **Показов** 1991. **Ответов** 5

Студворк — интернет-сервис помощи студентам

Добрый вечер, уважаемые форумчане! Возникла небольшая проблема с написанием такой программы: Дан текстовый файл, состоящий из строк, сделать так, чтобы все строки были задом наперед. Что-то вроде "Написать" стало "ьтасипан" Заранее благодарю за помощь! Если можно,то самым простым способом...

@xNeKiToSx · 25.12.2012, 22:43

А какая проблема возникла?

Добавлено через 3 минуты

Delphi

procedure asd;
var 
 f: textfile;
 s, s1: string;
 i: integer;
begin
 assignfile(f, 'my.txt');
 reset(f);
 readln(f, s);
 closefile(f);
 for i:=1 to length(s) do
  s1[Length(s)-i+1]:=s[i];
 rewrite(f);
 write(s1);
 closefile(f);
end;

@~~Lirrk~~ · 25.12.2012, 23:11

Да очень просто. Если строка, работаем со строкой, если это слово, то со словом, если вообще весь текст, то с текстом.
Берём, то что нужно, например одну строку и вычисляем её длину, а потом щделим её пополам. Это будет количество шагов цикла. А в цикле нужно менять местами симметричные позиции.

Ну например слово шоколад
7 символов
делим на 2, будет 3
шаг 1 меняется местами 1 и 7 буквы
шаг 2 меняется местами 2 и 6 буквы
шаг 3 меняется местами 3 и 5 буквы

Предположим S - строка
n - её длина

v - вспомогательная строка

Тогда
c:= n div 2 - 1;

Delphi

for i:= 0 to c dо begin
                 v: = S [i+1];                        
                 S[i+1]:= S[n-i];
                 S[n-i]:=v;
                                   end;

25.12.2012, 23:23

Сообщение от Lirrk

Да очень просто. Если строка, работаем со строкой, если это слово, то со словом, если вообще весь текст, то с текстом.
Берём, то что нужно, например одну строку и вычисляем её длину, а потом щделим её пополам. Это будет количество шагов цикла. А в цикле нужно менять местами симметричные позиции.

Ну например слово шоколад
7 символов
делим на 2, будет 3
шаг 1 меняется местами 1 и 7 буквы
шаг 2 меняется местами 2 и 6 буквы
шаг 3 меняется местами 3 и 5 буквы

Предположим S - строка
n - её длина

v - вспомогательная строка

Тогда
c:= n div 2 - 1;

Delphi

for i:= 0 to c dо begin
                 v: = S [i+1];                        
                 S[i+1]:= S[n-i];
                 S[n-i]:=v;
                                   end;

Спасибо Вам за внятное обьяснение! Разобрался.

@volvo · 26.12.2012, 13:18

ReverseString решает эту задачу в одну строку. Не надо придумывать велосипеды, лучше, чем у разработчиков это всё равно не будет.

@Tip.the.besT · 26.12.2012, 14:10

Сообщение от UI

ReverseString решает эту задачу в одну строку. Не надо придумывать велосипеды, лучше, чем у разработчиков это всё равно не будет.

Кстати да, честно говоря забыл про чудо функцию.
А вообще, первое что пришло на ум, это просто взять строку, узнать длину и потом в новую строку писать с конца.

Delphi

function RS(const s: string): string;
var
ss:string;
i:integer;
begin
for i:=length(s) downto 1 do begin
ss:=ss+s[i];
end; 
RS:=ss;
end;

Lirrk, ты знаешь толк в извращениях)

novoe07
		1
	Текстовый файл: сделать так, чтобы все строки были задом наперед 25.12.2012, 22:16. Показов 1991. Ответов 5 Метки нет (Все метки) Добрый вечер, уважаемые форумчане! Возникла небольшая проблема с написанием такой программы: Дан текстовый файл, состоящий из строк, сделать так, чтобы все строки были задом наперед. Что-то вроде "Написать" стало "ьтасипан" Заранее благодарю за помощь! Если можно,то самым простым способом...

@volvo Супер-модератор 32793 / 21133 / 8144 Регистрация: 22.10.2011 Сообщений: 36,393 Записей в блоге: 8
	26.12.2012, 13:18	5
	ReverseString решает эту задачу в одну строку. Не надо придумывать велосипеды, лучше, чем у разработчиков это всё равно не будет. 1

	26.12.2012, 14:10

Опции темы