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

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

22.08.2014, 21:54. Показов 1737. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Используя очередь, решить следующую задачу. Содержимое текстового файла ƒ, разделенное на строки, переписать в текстовый файл g, перенося при этом в конец каждой строки все входящие в нее цифры (с сохранением исходного порядка как среди цифр, так и среди остальных литер строки).
Программу необходимо реализовать с помощью массивов.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.08.2014, 21:54
Ответы с готовыми решениями:

Переписать в текстовый файл t1 содержимое текстового файла t2 без пустых строк
Описать процедуру npuce(t1, t2), переписывающую в текстовый файл t1 содержимое текстового файла t2,...

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

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

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

2
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7769 / 4598 / 2823
Регистрация: 22.11.2013
Сообщений: 13,077
Записей в блоге: 1
22.08.2014, 22:01 2
Лучший ответ Сообщение было отмечено Krishana как решение

Решение

Если считать, что строка есть массив символов, то
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, a, d: string;
  i: Integer;
begin
  Assign(f,'input.txt'); Assign(g,'output.txt');
  Reset(f); Rewrite(g);
  while not EOF(f) do begin
    ReadLn(f,s);
    a:=''; d:='';
    for i:=1 to Length(s) do begin
      if s[i] in ['0'..'9'] then
        d:=d+s[i]
      else
        a:=a+s[i];
    end;
    WriteLn(g,a,d);
  end;
  Close(f); Close(g);
end.
1
0 / 0 / 0
Регистрация: 15.12.2013
Сообщений: 6
23.08.2014, 11:48  [ТС] 3
Спасибо! Как обычно, все оказалось проще, чем я думала!
0
23.08.2014, 11:48
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.08.2014, 11:48
Помогаю со студенческими работами здесь

Переписать содержимое исходного текстового файла в файл-результат_2
Напишите программу, которая переписывает содержимого исходного текстового файла в файл-результат,...

Переписать содержимое исходного текстового файла в файл-результат_1
Напишите программу, которая переписывает содержимого исходного текстового файла в файл-результат,...

Переписать в текстовый файл t1 содержание текстового файла t2, но без пустых строк
Описать процедуру npuceftl,(2) переписывающую в текстовый файл t1 содержание текстового файла t2,но...

Создать текстовый файл с исходными данными любой размерности. Из текстового файла переписать числа в массив, типизированный файл. Сделать контрольный
Создать текстовый файл с исходными данными любой размерности. Из текстового файла переписать числа...


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

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

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