Текст, порубить на 40-символьные строки Опции

[_JC_]

Помогите решить задачку!
Дано: текст на русском языке.
Задане: переформатировать текст так, чтобы длина любой строки не превосходила 40 символов.(Выравнивать по правому краю не требуется).
Спасибо заранее!

[klem4]

объяви s : string[40], больше сорока ты в нее не запишеш, но все лишнее просто исчезнет, еще можешь вводить строку по символьно.

можно как-то на подобии вот этого, только наприер реализовать это как ф-ю, которая еще будет возвращать кол-во строк :

uses crt;
type
   TText = array[1..50] of string[40];
var
   T : TText;
   ch: char;
   i : integer;

Begin
   clrscr;

   i :=1 ;

   repeat
      ch := readkey;
      write(ch);
      if not(ch=#27) and not(ch=#0) then 
       T[i] := T[i]+ch;

      if length(T[i])=40 then begin
         inc(i);
         writeln;
      end;

   until (i=51)or(ch=#27);

   readln;

End.

можно обойтись и без массива и например сразу записывать строку в файл.

Сообщение отредактировано: klem4 - 13.10.2005 19:54