Работа со строками, сортировка предложений по критерию... Опции

[d1monn]

Уважаемые знатоки! Внимание, нужно написать программу, которая вводит строку символов и выводит на экран сначала предложення, которые начинаются с однобуквенных слов, а потом все остальные. Заранее спасибо! Очень на вас надеюсь.

Сообщение отредактировано: d1monn - 9.12.2006 23:54

[Bokul]

Вот , вроде то, что надо...

 
const
   WordSeparators=[' ',',',';'];
   SentenceSeparators=['?','.','!'];

Function FindFirstWord(s:string):string;
var i:byte;
    buf:string;
begin
  buf:='';
  for i:=1 to length(s) do
      begin
           if (s[i] in WordSeparators) and (buf<>'') then
              break;
           if not(s[i] in WordSeparators) then
             buf:=buf+s[i];
      end;
  FindFirstWord:=buf;
end;

Function FindFirstSentence(s:string):string;
var buf:string;
    i:byte;
begin
  i:=0;
  buf:='';
  repeat
        inc(i);
        buf:=buf+s[i];
  until (s[i] in SentenceSeparators) or (i=length(s));
  FindFirstSentence:=buf;
end;

procedure MoveToEnd(from,num:byte; var s:string);
var buf:string;
begin
  buf:=copy(s,from,num);
  delete(s,from,num);
  s:=s+buf;
end;

function Result(s:string):string;
var sentence:string;
    from,size,last:byte;
begin
    from:=1;
    last:=length(s);
    repeat
          sentence:=FindFirstSentence(copy(s,from,last));
          size:=length(sentence);
          if length(FindFirstWord(sentence))=1 then
             inc(from,size)
          else
              begin
                   MoveToEnd(from,size,s);
                   dec(last,size);
              end;
    until from>=last;
    Result:=s;
end;

var s:string;
begin
  s:=', , Hello. I am so cool . I am so big. Yes! Pascal. I am so clever ';
  writeln(s);
  writeln(Result(s));
  readln;
end.

Старался давать переменным и функциям понятные имена, так что все должно быть понятно.