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

@7896325 · Регистрация: 29.09.2011

Студворк — интернет-сервис помощи студентам

помогите решить задачу, у самой только получилось чтоб программа копировался f в g,

Pascal

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".

@Mawrat · 29.09.2011, 09:56

С точным учётом последней строки:

Pascal

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

while not eof(f) do
begin
  readln(f, buf);
  buf := ' ' + buf;
  writeln(g, buf);
end;

Опции темы