Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.03.2011, 20:56   #1
Чуччи
Пользователь
 
Регистрация: 11.11.2010
Сообщений: 17
По умолчанию Файл с текстом( почти готово)

Помогите поменять задачку чтоб она выравнивала текст по центру и правому краю( она все делает но там выравнивается по левому и правому, а надо по левому и центру)
Код:
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
заранее благодарю
Чуччи вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Файл, работа с текстом Zelenyi Общие вопросы C/C++ 6 25.05.2010 10:47
Работа с текстом на PHP (или можно bat файл) gamer123 Помощь студентам 2 11.02.2010 18:34
C++ Динамический массив, почти готово pakupalos Помощь студентам 0 28.06.2009 12:41
Почти работающая программа на С++ S.T.U.D.E.N.T Помощь студентам 0 09.04.2009 10:19
Домены РУ почти даром! Nazgul-91 Свободное общение 2 02.11.2008 01:08