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

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

29.09.2011, 07:36. Показов 2631. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
помогите решить задачу, у самой только получилось чтоб программа копировался f в g,
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
program project1;
{$mode objfpc}{$H+}
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
var f,g:text;
    buf:string;
{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
begin
Assign(f,'f.txt');
Assign(g,'g.txt');
reset(f);
rewrite(g);
while not eof do
begin
readln(f,buf);
writeln(g,buf);
end;
close(f);
close(g);
end.
 Комментарий модератора 
Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода Pascal следует выделить этот код и на панели редактирования сообщения нажать кнопку: "PASCAL".
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.09.2011, 07:36
Ответы с готовыми решениями:

Дан текстовый файл F. Переписать файл F в файл G, вставляя в конец каждой строки ее порядковый номер.
решите)

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

Задан текстовый файл F. Переписать компоненты файла F в файл H, вставить в начале и середине строк символ пробела. Порядок компонентов сохранить
Задан текстовый файл F. Переписать компоненты файла F в файл H, вставить в начале и середине строк...

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

1
13095 / 5876 / 1706
Регистрация: 19.09.2009
Сообщений: 8,808
29.09.2011, 09:56 2
С точным учётом последней строки:
Pascal
1
2
3
4
5
6
7
8
9
i := 0;
while not eof(f) do
begin
  read(f, buf);
  buf := ' ' + buf;
  Inc(i);
  if i > 1 then Writeln(g);
  write(g, buf);
end;
Без точного учёта последней строки:
Pascal
1
2
3
4
5
6
while not eof(f) do
begin
  readln(f, buf);
  buf := ' ' + buf;
  writeln(g, buf);
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.09.2011, 09:56
Помогаю со студенческими работами здесь

Дан текстовый файл. В каждой строке файла подсчитать среднюю длину слов. В новый файл записать слова с длиной большей
Помогите, пожалуйста. 1) Как вернуть значения n к 0 после подсчета количества слов в предложении?...

Переписать с сохранением порядка следования компоненты файла f1 в файл f2, а компоненты файла f2 в файл f1
Даны текстовые файлы f1 и f2. Переписать с сохранением порядка следования компоненты файла f1 в...

Переписать с сохранением порядка следования компоненты файла 1 F в файл 2 F , а компоненты файла 2 F в файл 1 F
Ввести файлы 1 F и 2 F . Переписать с сохранением порядка следования компоненты файла 1 F в файл 2...

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


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

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

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