Форум «Всё о Паскале» > Обработка строк

Помощь - Поиск - Пользователи - Календарь

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

Connected

20.03.2007 0:53

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

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

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

Артемий

20.03.2007 1:28

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;

Попробуй так...?

Connected

20.03.2007 1:32

А до этого надо писать uses crt или что-то еще? Если да, то что именно? Заранее спасибо!

Tan

20.03.2007 1:41

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

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, тогда бы он пригодился.

Алена

20.03.2007 1:53

Так не проще?

var
  p: integer;
  s: string;
begin
  readln(s);
  { s := '123     12  1222     12 15'; }
  repeat
    p := pos('  ', s);
    if p > 0 then delete(s, p, 1);
  until p = 0;
  writeln(s);
end.

Артемий

20.03.2007 1:54