Форматирование строки

[isst]

Всем доброго времени суток. Есть такая задача:

Дана текстовая строка, содержащая буквы латинского алфавита, пробелы, запятые и точки. Отформатируйте этот текст по следующим правилам:

В начале и конце строки не должно быть пробелов.
Все слова разделяются ровно одним пробелом.
Точки и запятые пишутся слитно с предыдущим словом, после знака препинания ставится пробел.
Выведите полученную строку.

Ввод
Hello , world .

Вывод
Hello, world.

Вот мой код:

var s:StRing;
    index:IntegeR;

begin
  readln(s);
  while (s[1] = ' ') do Delete(s, 1, 1);
  while (s[Length(s)] = ' ') do Delete(s, Length(s), 1);
  while (Pos('  ', s) > 0) do Delete(s, Pos('  ', s), 1);
  index:= 2;
  while (index <= Length(s)) do
  begin
    if (not(UpCase(s[index]) in ['A'..'Z', ' '])) and (s[index - 1] = ' ') then Delete(s, index - 1, 1)
    else inc(index);
  end;
  writeln(s);
end.

Работает на 3 из 6. Кому интересно, это №111323 на informatics.mccme.ru

[Аватар]

isst, а самостоятельно хоть одну решил? Толку с таких задач, если каждую не сам решаешь

[isst]

Сообщение от Аватар

isst, а самостоятельно хоть одну решил? Толку с таких задач, если каждую не сам решаешь

Самостоятельно я решил почти весь раздел (там задач 50) кроме 3-4, вот тех, которые я щас у вас спрашиваю, да и их-то я "мучил" недели три, но так и не догадался до них. У них там бывают тесты какие-нибудь "отмороженные", вот они-то у меня, зачастую, и не проходят.
Это учитывая то, что по нашей программе решаю задачи из раздела на класс выше.

[Poma][a]

Ты не вставляешь пробелы..
asbd,asda

[isst]

Сообщение от Poma][a

Ты не вставляешь пробелы..
asbd,asda

Спасибо за подсказку, вот так я реализовал это (прошло 100%):

var s, s1, s2:StRing;
    index:IntegeR;

begin
  readln(s);
  while (s[1] = ' ') do Delete(s, 1, 1);
  while (s[Length(s)] = ' ') do Delete(s, Length(s), 1);
  while (Pos('  ', s) > 0) do Delete(s, Pos('  ', s), 1);
  index:= 2;
  while (index <= Length(s)) do
  begin
    if (not(UpCase(s[index]) in ['A'..'Z', ' '])) and (s[index - 1] = ' ') then Delete(s, index - 1, 1)
    else inc(index);
  end;
  index:= 1;
  while (index < Length(s)) do
  begin
    if (not(UpCase(s[index]) in ['A'..'Z', ' '])) and (s[index + 1] <> ' ') then
    begin
      s1:= Copy(s, 1, index);
      s2:= Copy(s, index + 1, Length(s) - index);
      s:= s1 + ' ' + s2;
    end;
    inc(index);
  end;
  writeln(s);
end.

[Fenex]

Сообщение от Аватар

isst, а самостоятельно хоть одну решил? Толку с таких задач, если каждую не сам решаешь

Толк то есть.
Одна самостоятельно решённая задача по эффективности равна примерно 7 решённым задачам с посторонней помощью или 15 задачам полностью решёнными посторонними (естественно, если решения разобраны и поняты).

[WinCoder]

Если действительно было решено самостоятельно 47 задач из 50, это хороший результат. Не вижу причин нападать на человека за то, что оставшиеся задачи он просит нас решить для того, чтобы освоить материал 100%. Вот если бы он со всеми 50 задачами сюда пришёл, тогда это был бы другой разговор. Глянул решение мельком, если оно собственное, то определённо прогресс в обучении присутствует.

[Stilet]

вот так я реализовал это

Многовато циклов... ИМХО программу можно переписать только на одном цикле.

[FPaul]

Могу ошибаться, но в связи с внутренним динамическим представлением строки String в Delphi и клонов Delphi, копирование из входного потока в строку-результат по одному символу очень накладная процедура (выделение нового объема памяти, копирование, освобождение старой памяти). По крайней мере мне так приснилось...

[Iron Monk]

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

Многовато циклов... ИМХО программу можно переписать только на одном цикле.

C кучей условий)))

var
i: integer;
s: string;
begin
i:= 1;
Readln(s);
  while i <> Length(s)+1 do
    begin
     if (s[i-1] = s[i]) and (s[i] = ' ')
     or (s[i-1] = ' ')  and (s[i] = ',')
     or (s[i-1] = ' ')  and (s[i] = '.') then
       begin
       Delete(s,i-1,1);
       Dec(i);
       end else
       if (s[i-1] = ',') and (s[i] <> ' ')
       or (s[i-1] = '.') and (s[i] <> ' ') then
       Insert(' ', s, i);
     Inc(i);
    end;
    Writeln(Trim(s));
    Readln;
end.