Разделите заданный текст (не менее 1000 символов) на строки, содержащие не более N символов

@Necrowarr · Регистрация: 05.10.2014

Разделите заданный текст (не менее 1000 символов) на строки, содержащие не более N символов (перенос осуществлять на месте пробела). Добавить "равномерные" пробелы, чтобы каждая строка содержала ровно N символов.

@APALoff · 06.10.2014, 11:56

Сообщение от Necrowarr

заданный текст

А как он "задается"?

@Necrowarr · 06.10.2014, 15:58 **[ТС]**

Текст задан через текстовый файл.

@APALoff · 07.10.2014, 10:32

Примерно так:

Pascal

Const
  N   = 20;
Var 
  F  : Text;
  St : String;
  fn : Byte;
 
Function AddSpace2N(S : String; k : Byte) : String;
Begin
  If Length(S)<k then AddSpace2N:=AddSpace2N(S+' ',k) else AddSpace2N:=S;
end;
 
Begin
  Assign(f,'Viewer.txt');
  Reset(f);
  While not EOF(f) do
  Begin
    Readln(f,St);
    Repeat
      fn:=N+1;
      While (fn>0) and (fn<=Length(St)) and (St[fn]<>' ') do Dec(fn);
      If fn<=0 then
      Begin
        Writeln(Copy(St,1,N));
        Delete(St,1,N);      
        { или HALT, или любой другой обработчик на событие "не возможно сделать перенос строки" }
      end
        else
        Begin
          Writeln(AddSpace2N(Copy(St,1,fn-1),N));
          Delete(St,1,fn);
        end;
    Until Length(St)=0;
  end;
  Close(f);
end.

@Necrowarr · 08.10.2014, 09:42 **[ТС]**

Огромное спасибо вам, выручили

@Necrowarr 3 / 3 / 0 Регистрация: 05.10.2014 Сообщений: 6
		1
	Разделите заданный текст (не менее 1000 символов) на строки, содержащие не более N символов 05.10.2014, 13:02. Показов 1992. Ответов 4 Метки нет (Все метки) Разделите заданный текст (не менее 1000 символов) на строки, содержащие не более N символов (перенос осуществлять на месте пробела). Добавить "равномерные" пробелы, чтобы каждая строка содержала ровно N символов. 1

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	06.10.2014, 11:56	2
	Сообщение от Necrowarr заданный текст А как он "задается"? 1

@Necrowarr 3 / 3 / 0 Регистрация: 05.10.2014 Сообщений: 6
	06.10.2014, 15:58 [ТС]	3
	Текст задан через текстовый файл. 0

@Necrowarr 3 / 3 / 0 Регистрация: 05.10.2014 Сообщений: 6
	08.10.2014, 09:42 [ТС]	5
	Огромное спасибо вам, выручили 1

Опции темы

Разделите заданный текст (не менее 1000 символов) на строки, содержащие не более N символов

Решение