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

[Connected]

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


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


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

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

[Артемий]

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]

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

[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 - 20.03.2007 1:42

[Алена]

Так не проще?

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.

[Артемий]

Сообщение отредактировано: Артемий2 - 20.03.2007 1:55

[Connected]

А как блок-схема выглядит? Кто-то может помочь составить?

[Connected]

Вот я сам попытался составить блок-схему...
Правильно?
Если нет, то в чем ошибка? Как исправить?

P.S. - схема составлена для программы Алены.

Сообщение отредактировано: Connected - 3.04.2007 21:03

[AnTiDoD]

Поищи в поиске... В FAQ есть неплохая функция по разбиению слов на массивы, вот там то и есть код ля убирания доп. пробелов

[Connected]

Поищи в поиске... В FAQ есть неплохая функция по разбиению слов на массивы, вот там то и есть код ля убирания доп. пробелов

да саму программу я уже составил!
проблема с блок-схемой..

Сообщение отредактировано: Connected - 4.04.2007 17:34

[klem4]

Программа построения блок-схем
?

[Connected]

Программа построения блок-схем
?

сделал всё, как описано в readme...
но прога (Bs) пишет: "ошибка листинга"..
в чем проблема?

Сообщение отредактировано: Connected - 4.04.2007 22:40