Строки, слабо решить? Опции

[starmaster]

На первый взгляд кажется лёгкой, но если заглянуть поглубже...

Дана строка. Удалить из нее последовательности символов, расположенные между скобками. Скобки также удалить. После первой открывающей скобки другие открывающие скобки игнорируются. Если скобка не закрывается до конца строки, то удалять все до конца строки. Закрывающая скобка без парной открывающей игнорируется.

[volvo]

:no: Не слабо ...

На первый взгляд кажется лёгкой, но если заглянуть поглубже...

... то она просто элементарная !!!

Код

const
 s: string = 'this is a test of (very) simple) (program';

var first, second: byte;
begin
 repeat
   first := pos( '(', s );
   if first > 0 then
     begin
       second := pos(')', copy(s, first+1, length(s) - first)) + first;
       if second = first then second := length(s);
       if second > first then
         delete(s, first, second - first + 1);
     end;
 until first = 0;
 writeln( 's = ', s );
end.

:D

Сообщение отредактировано: volvo - 6.11.2004 16:25