VPF::Файл с текстом - Форум программистов

Чуччи

Дата 22.3.2011, 19:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 5.11.2010

Репутация: нет
Всего: нет

Помогите поменять задачку чтоб она выравнивала текст по центру и правому краю( она все делает но там выравнивается по левому и правому, а надо по левому и центру)

Код


VAR
 f1,f2,f3:TEXT;
 N,L,i:Byte;
 S:String;
 C:Char;

BEGIN
 Assign(f1,'Name1.txt');
 ReSet(f1);
 Assign(f3,'Name3.txt');
 ReWrite(f3);
 Repeat
  Repeat
   Read(f1,C);
   If C<>' ' then Write(f3,C)  else WriteLn(f3);
  Until (C=' ') or (EoLn(f1)) or Eof(f1);
 Until Eof(f1);
 Close(f1);
 Close(f3);
 Write('N= ');
 ReadLn(N);
 Assign(f2,'Name2.txt');
 ReWrite(f2);
 ReSet(f3);
 ReadLn(f3,S);
 Write(f2,S);
 Repeat
  L:=Length(S);
  Repeat
   ReadLn(f3,S);
   L:=L+Length(S)+1;
   If L<=N then Write(f2,' '+S);
  Until (L>N) or (EoF(f3));
  If (not EoF(f3)) then
   begin
    WriteLn(f2);
    Write(f2,S);
   end;
 Until EoF(f3);
 Close(f3);
 Close(f2);
 ReSet(f2);
 ReWrite(f3);
 Repeat
  ReadLn(f2,S);
  For i:=1 to N-Length(S) do Write(f3,' ');
  WriteLn(f3,S);
 Until EoF(f2);
 Close(f2);
 Close(f3);
END.

заранее благодарю

ФедосеевПавел

Дата 22.3.2011, 20:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 291
Регистрация: 7.2.2009

Репутация: 2
Всего: 10

Цитата(Чуччи @ 22.3.2011, 19:35

)

Жуть. Испорченный телефон. Как, хоть, в оригинале звучало задание?

Код - образец, как не надо работать с файлами.

Приведи свои попытки внести изменения в существующую чужую программу.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »