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

Создать новый текстовый файл, записав в него перевернутые строки исходного файла

04.04.2012, 19:14. Показов 4930. Ответов 4
Метки нет (Все метки)

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

Создать новый файл, записав в него каждую вторую строку исходного файла
Дан текстовый файл,создать новый записав в него каждую вторую строку исходного файла

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

Создать новый текстовый файл, записав в него те строки исходного файла, которые начинаются с k идущих подряд символов m
Дан текстовый файл. Создать новый текстовый файл, записав в него те строки исходного файла, которые...

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

4
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
04.04.2012, 19:33 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var f,g: text;
    s,ss: string;
    i: byte;
begin
assign(f,'C:\in.txt');
assign(g,'C:\out.txt');
reset(f);
rewrite(g);
while not (eof(f)) do
      begin
      ss:='';
      readln(f,s);
      for i:=1 to length(s) do
          ss:=s[i]+ss;
      writeln(g,ss);
      end;
close(f);
close(g);
end.
1
0 / 0 / 0
Регистрация: 26.02.2012
Сообщений: 48
08.04.2012, 16:18  [ТС] 3
объясните пожалуйста)
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
08.04.2012, 17:25 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var f,g:text;
    s,s1:string;
    i:byte;
begin
assign(f,'text1.txt');
reset(f);//открываем файл для чтения(файл в папке с программой)
assign(g,'text2.txt');
rewrite(g);//создаем файл для записи
while not eof(f) do//пока не конец файла
 begin
  readln(f,s);//читаем строки
  s1:='';//создаем перевернутую строку
  for i:=length(s) downto 1 do
  s1:=s1+s[i];
  writeln(g,s1);//пишем в новый файл
 end;
close(f);//закрываем файлы
close(g);
write('Файл переписан');
end.
1
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
15.04.2012, 23:54 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var f,g: text;
    s,sp: string;
    i: byte;
begin
assign(f,'C:\in.txt');
assign(g,'C:\out.txt');
reset(f);
rewrite(g);
while not (eof(f)) do
      begin
      sp:='';
      readln(f,s);
      for i:=1 to length(s) do
          sp:=s[i]+sp;
      writeln(g,sp);
      end;
close(f);
close(g);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.04.2012, 23:54
Помогаю со студенческими работами здесь

Создать новый текстовый файл , каждая строка которого содержит последний символ соответствующей строки исходного файла
Очень нужна помощь

Создать новый командный файл из уже существующего, записав в него все строки, кроме команд REM
Создать новый командный файл из уже существующего командного файла, записав в него все строки,...

Создать новый текстовый файл, содержащий k последних строк исходного файла
Дано число k (< 10) и текстовый файл, содержащий более k строк. Создать новый текстовый файл,...

Создать новый текстовый файл, содержащий K последних строк исходного файла
Дано целое число K (0 < K< 10) и текстовый файл, содержащий более K строк. Создать новый...


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

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

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