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

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

29.09.2011, 07:36. Показов 2866. Ответов 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
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
29.09.2011, 07:36
Ответы с готовыми решениями:

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

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

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

1
 Аватар для Mawrat
13113 / 5894 / 1708
Регистрация: 19.09.2009
Сообщений: 8,809
29.09.2011, 09:56
С точным учётом последней строки:
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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
29.09.2011, 09:56
Помогаю со студенческими работами здесь

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

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

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

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

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


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

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

Новые блоги и статьи
Популярные LM модели ориентированы на увеличение затрат ресурсов пользователями сгенерированного кода (грязь -заслуги чистоплюев).
Hrethgir 12.06.2025
Вообще обратил внимание, что они генерируют код (впрочем так-же ориентированы разработчики чипов даже), чтобы пользователь их использующий уходил в тот или иной убыток. Это достаточно опытные модели,. . .
Топ10 библиотек C для квантовых вычислений
bytestream 12.06.2025
Квантовые вычисления - это та область, где теория встречается с практикой на границе наших знаний о физике. Пока большая часть шума вокруг квантовых компьютеров крутится вокруг языков высокого уровня. . .
Dispose и Finalize в C#
stackOverflow 12.06.2025
Работая с C# больше десяти лет, я снова и снова наблюдаю одну и ту же историю: разработчики наивно полагаются на сборщик мусора, как на волшебную палочку, которая решит все проблемы с памятью. Да,. . .
Повышаем производительность игры на Unity 6 с GPU Resident Drawer
GameUnited 11.06.2025
Недавно копался в новых фичах Unity 6 и наткнулся на GPU Resident Drawer - штуку, которая заставила меня присвистнуть от удивления. По сути, это внутренний механизм рендеринга, который автоматически. . .
Множества в Python
py-thonny 11.06.2025
В Python существует множество структур данных, но иногда я сталкиваюсь с задачами, где ни списки, ни словари не дают оптимального решения. Часто это происходит, когда мне нужно быстро проверять. . .
Работа с ccache/sccache в рамках C++
Loafer 11.06.2025
Утилиты ccache и sccache занимаются тем, что кешируют промежуточные результаты компиляции, таким образом ускоряя последующие компиляции проекта. Это означает, что если проект будет компилироваться. . .
Настройка MTProxy
Loafer 11.06.2025
Дополнительная информация к инструкции по настройке MTProxy: Перед сборкой проекта необходимо добавить флаг -fcommon в конец переменной CFLAGS в Makefile. Через crontab -e добавить задачу: 0 3. . .
Изучаем Docker: что это, как использовать и как это работает
Mr. Docker 10.06.2025
Суть Docker проста - это платформа для разработки, доставки и запуска приложений в контейнерах. Контейнер, если говорить образно, это запечатанная коробка, в которой находится ваше приложение вместе. . .
Тип Record в C#
stackOverflow 10.06.2025
Многие годы я разрабатывал приложения на C#, используя классы для всего подряд - и мне это казалось естественным. Но со временем, особенно в крупных проектах, я стал замечать, что простые классы. . .
Разработка плагина для Minecraft
Javaican 09.06.2025
За годы существования Minecraft сформировалась сложная экосистема серверов. Оригинальный (ванильный) сервер не поддерживает плагины, поэтому сообщество разработало множество альтернатив. CraftBukkit. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru