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

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

15.12.2009, 12:10. Просмотров 2304. Ответов 11
Метки нет (Все метки)

Помогите пожалуйста с вот этой задачей:

Дан текстовый файл. Записать все строки файла в новый файл,
изменив порядок следования букв в каждой строке на противопо-
ложный.

Заранее спасибо за помощь.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.12.2009, 12:10
Ответы с готовыми решениями:

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

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

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

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

__________________
11
Тимуровец
444 / 284 / 50
Регистрация: 10.09.2009
Сообщений: 963
15.12.2009, 12:24 2
Попробуй так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Assign(f1, 'textfile.txt');
Reset(f1);
Assign(f2, 'newfile.txt');
Rewrite(f2);
while not Eof(f1)
do begin
    ReadLn(f1, s); 
    s1 := s; 
    for i := 1 to Length(s)  
    do s1[i] := s[Length(s)-i];
    WriteLn(f2,s1); 
    end;  
Close(f1);
Close(f2);
0
Платежеспособный зверь
8737 / 4159 / 1604
Регистрация: 28.10.2009
Сообщений: 11,263
15.12.2009, 12:26 3
Цитата Сообщение от Kleyn Посмотреть сообщение
Помогите пожалуйста с вот этой задачей:

Дан текстовый файл. Записать все строки файла в новый файл,
изменив порядок следования букв в каждой строке на противопо-
ложный.

Заранее спасибо за помощь.
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
var
f:text;
i,j,k:integer;
t:string;
a:array[1..100]of string;
begin
assign(f,'input.txt');
reset(f);
while not eof(f) do
begin
inc(k);
readln(f,a[k]);
end;
close(f);
assign(f,'output.txt');
rewrite(f);
for i:=1 to k do
begin
t:=a[i];
for j:= length(t) downto 1 do 
write(f,t[j]);
writeln(f);
end;
close(f);
end.
1
4116 / 991 / 191
Регистрация: 09.04.2009
Сообщений: 4,225
15.12.2009, 12:27 4
Страдалецъ, а не так?
Pascal
1
2
for i := 1 to Length(s)  
    do s1[i] := s[Length(s)-i+1];
0
Платежеспособный зверь
8737 / 4159 / 1604
Регистрация: 28.10.2009
Сообщений: 11,263
15.12.2009, 12:31 5
to Страдалецъ
в выходном файле какая-то хрень
0
46 / 38 / 3
Регистрация: 14.12.2009
Сообщений: 273
15.12.2009, 12:35 6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program bret1;
var h, s: string;
     i: ineteger;
     f, g: TextFile;
begin
  assign(f,'Path')//Файл с нормальными строками
  reset(f);
  while not eof(f) do
  begin
    assing(g,'Path.txt')//Файл с перевернутами строками
    append(g);
    readln(f,s);
    h:='';
    for i:=length(s) downto 1 do
    h[i]:=h[i]+s[i];
    writeln(g, h);
    close(g);
  end;
close(f)  
end.
Вот как-то так
0
0 / 0 / 0
Регистрация: 06.12.2009
Сообщений: 4
15.12.2009, 12:38  [ТС] 7
Большое спасибо всем, теперь разобрался
0
Тимуровец
444 / 284 / 50
Регистрация: 10.09.2009
Сообщений: 963
15.12.2009, 12:41 8
Скорее всего да, не проверял, писал на коленке.

Добавлено через 58 секунд
Цитата Сообщение от Jazon_deenAlt Посмотреть сообщение
Страдалецъ, а не так?
Pascal
1
2
for i := 1 to Length(s)  
    do s1[i] := s[Length(s)-i+1];
Скорее всего да, не проверял, писал на коленке.
1
4116 / 991 / 191
Регистрация: 09.04.2009
Сообщений: 4,225
15.12.2009, 12:45 9
alexevt, там просто немного ссунуто у него получилось... а так вполне рабочий код...

Добавлено через 2 минуты
да и его код не имеет ограничение по розмеру файла который он конвертирует... тоесть как у вас массив, то он немного ограничивает файл перевертываемый
1
Retired
7720 / 2552 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
15.12.2009, 12:59 10
Лучший ответ Сообщение было отмечено как решение

Решение

Ну вообще чтобы развернуть строку необязательно заводить еще одну. можно прям эту и разворачивать
Pascal
1
2
3
4
5
6
  for i:=1 to length(s) div 2 do
  begin
    c:=s[i];
    s[i]:=s[length(s)-i+1];
    s[length(s)-i+1]:=c
  end;
3
4116 / 991 / 191
Регистрация: 09.04.2009
Сообщений: 4,225
15.12.2009, 18:48 11
Inadequate, хмм... мудро, но количество операцый больше. хотя с теперишними компутерами...
0
Retired
7720 / 2552 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
15.12.2009, 19:00 12
Jazon_deenAlt, ну это я так для "общего развития" авось кому пригодится.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.12.2009, 19:00

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

Преобразовать строку, изменив порядок следования слов в строке на обратный
Помогите пожалуйста решить такую задачу: Преобразовать строку, изменив порядок следования слов в...

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

Преобразовать строку, изменив порядок следования слов в строке на обратный
Помогите пожалуйста разобраться с решением. Такое условие "Преобразовать строку, изменив порядок...

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

Записать в файл g количество гласных букв в каждой строке файла f
Дан файл F. Написать в файл g, кол-во гласных букв в каждой строке файла f.


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

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

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