Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 13.10.2009
Сообщений: 38
1

Составное текстового файла f, разделенное на строки, переписать в текстовый файл g, перенося при этом в конец каждой строки все цифры, входящие в него

30.05.2010, 20:09. Показов 1158. Ответов 1
Метки нет (Все метки)

Составное текстового файла f, разделенное на строки, переписать в текстовый файл g, перенося при этом в конец каждой строки все цифры, входящие в него (с сохранением исходного взаимного порядка как среди цифр, так и среди остальных букв строки.)


просьба помочь...
0

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

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.05.2010, 20:09
Ответы с готовыми решениями:

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

Переписать все из файла А в файл В, перенося в конец каждой строки все входящие в нее знаки препинания
Переписать все из файла А в файл В, перенося при этом в конец каждой строки все входящие в нее...

Очереди: Содержимое текстового файла переписать в новый файл, перенося цифры в конец строки
Здравствуйте! Используя очередь, решить следующую задачу. Содержимое текстового файла f,...

Содержимое текстового файла f, разделенное на строки, переписать в текстовый файл g
Содержимое текстового файла f, разделенное на строки, переписать в текстовый файл g, перенося при...

1
103 / 74 / 10
Регистрация: 29.05.2010
Сообщений: 192
30.05.2010, 21:28 2
Код
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
f,g:TextFile;
i:integer = 1;
s,snum:string;
begin
AssignFile(f,'input.txt');
AssignFile(g,'output.txt');
Reset(f);
Rewrite(g);
Append(g);
while not(eof(f)) do begin
    readln(f,s);
  while i<=length(s) do begin
    if s[i] in ['0'..'9'] then begin
      snum:= snum + s[i];
      delete(s,i,1);
      dec(i);
    end;
    inc(i);
  end;
  s:= s + snum;
  Writeln(g,s);
  s:='';
  snum:='';
  i:=1;
end;
CloseFile(f);
CloseFile(g);
writeln('output.txt zapisan!');
readln;
end.
Воть =)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.05.2010, 21:28

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

Содержимое текстового файла f, разделенное на строки, переписать в текстовый файл g
Содержимое текстового файла f, разделенное на строки, переписать в текстовый файл g, перенося при...

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

Задание со стеками и очередями: Содержимое файла f переписать в файл g, перенося цифры в конец строки
Помогите решить задание: Используя очередь, решить следующую задачу. Содержимое текстового файла...

Переписать все цифры каждой строки файла в конец строки
Содержимое текстового файла INPUT.TXT, разделенного на строки, переписать за один проход по файлу в...


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

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

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