Обработка строк Опции

[Connected]

Отредактировать предложение, удаляя из него лишние пробелы, оставляя только по одному пробелу между словами.


Если возможно, представить алгоритм решения задания.


Заранее, СПАСИБО!

Сообщение отредактировано: Connected - 19.03.2007 20:58

[Tan]

Вот полная программа на основе алгоритма Артемия :

var i,a : integer;
    s   : string;
begin
readln(s);
for i:=1 to length(s)do begin
 if (s[i]=' ') and (s[i+1]=' ') then begin
  a:=i;
  repeat
   delete(s,a,1);
  until (s[a+1]<>' ');
 end;
 end;
 writeln (s);
 readln;
 end.

Модуль CRT здесь не обязателен, вот если бы ты использовал readkey или ClrScr, тогда бы он пригодился.

Сообщение отредактировано: Tan - 19.03.2007 21:42