Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Консольное приложение, описывающее ф-цию нахождения ср.арифм. отр.чисел. Исправление ошибок https://www.cyberforum.ru/ delphi-beginners/ thread138153.html
type ssilka = ^ integer; vector = array of ssilka; Считая, что все элементы вектора Х отличны от nil, создать консольное приложение, описывающее функцию SRED(x) для нахождения среднего...
Delphi Поиск в текстовом файле
В текстовом файле поместить информацию о писателях и их произведениях (20…30 наименований), например: Пушкин #Евгений Онегин Тургенев #Накануне Пушкин #Медный всадник Написать программу, которая...
Сохранение и загрузка нескольких MEMO Delphi
Добрый вечер. Как сохранить и загрузить несколько MEMO, при этом сохраняется и загружается ещё несколько edit. Сохранение Edit. var myFile : TextFile; text : string; s,s1,s2,s3:string;...
Delphi Уплотнить в 2 раза таблично заданную функцию Уплотнить в 2 раза таблично заданную функцию с помощью интерполяционного многочлена Ньютона, первой степени, по двум узлам. Входной фаил n- размерность таблицы (0..N) х- вектор значений... https://www.cyberforum.ru/ delphi-beginners/ thread138062.html
Delphi Вместо каждой буквы в ребус (ЛИК)2=БУБЛИК под¬ставить некоторую цифру https://www.cyberforum.ru/ delphi-beginners/ thread138035.html
Вместо каждой буквы в ребус (ЛИК)2=БУБЛИК под¬ставить некоторую цифру, причем одинаковым буквам должны соответствовать одинаковые цифры, а различным буквам – раз-личные цифры. Разработать схему...
Delphi Разработать функцию
Разработать функцию, которая определяет: пересекаются, касаются или не касаются две окружности с заданными координатами вершин и радиусами.
Delphi САОД
Помогите решить, пожалуйста. 1) Даны натуральное число 'н' и однонаправленный список из целых чисел b1,...,b20. После каждого нечетного звена списка добавить элемент, значением которого будет...
Delphi Перемещение картинок по форме (не повтор) Всем добрый день. В общем проблема такая: Требуется поместить на форму несколько картинок (неизвестно сколько) и затем перемещать их по форме мышкой. Были идеи: 1. Либо каким-нибудь образом... https://www.cyberforum.ru/ delphi-beginners/ thread137923.html
Delphi неправильно работает сортировка https://www.cyberforum.ru/ delphi-beginners/ thread137917.html
у меня задача с шейкерной сортировкой. проблема заключается в том, что с файлами которые она сама создает всё работает хорошо. файл создается по приципу: первая строка - количество элементов...
Delphi Разработать процедуру, определяющую тип, количество и значения корней квадратного уравнения. =Разработать процедуру, определяющую тип, количество и значения корней квадратного уравнения.= пожалуста сделайте кто нить оч прошу на курсач задачка.... https://www.cyberforum.ru/ delphi-beginners/ thread137895.html
103 / 74 / 10
Регистрация: 29.05.2010
Сообщений: 192
30.05.2010, 21:28 0

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

30.05.2010, 21:28. Показов 1180. Ответов 1
Метки (Все метки)

Ответ

Код
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.
Воть =)

Вернуться к обсуждению:
Составное текстового файла f, разделенное на строки, переписать в текстовый файл g, перенося при этом в конец каждой строки все цифры, входящие в него Delphi
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.05.2010, 21:28
Готовые ответы и решения:

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

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

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

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

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