Исключение символов расположенных между круглыми скобками Опции

[dream-x]

program pr;
uses crt;
var
i,k,c,g,a,b:integer;
s,st:string;
procedure stringi(s:string; var st:string);
begin
i:=0;
            for i:=a to b-2 do
             begin
              delete(s,a+1,1);
              writeln('str:',s);
             end;
end;
begin
clrscr;
     writeln('vvedite str: '); read(s);
        for i:=1 to length(s) do
        begin
         stringi(s,st);
         break;
       end;
end.
 

Здравствуйте Уважаемые гуру этого раздела! Не могли бы вы мне помочь с решением задачи: Из произвольной последовательности символов исключить группы символов, расположенных между круглыми скобками. В этом коде я написал для выражений типа "ыовар(фыв)" так работает а как сделать чтобы все работало при "ыва((фыв)фыв))фыв(фыв))". Пожалуйста!

[renesko1]

У тебя

procedure stringi(s:string; var st:string);
begin
i:=0;
            for i:=a to b-2 do      //  где ты описываешь переменные a, b, i в локальных переменных их           
             begin                       //нет и через параметры ты их не передаешь
              delete(s,a+1,1);
              writeln('str:',s);
             end;
end;

Поищи в поиске таких задач было уйма.

Сообщение отредактировано: renesko1 - 13.04.2008 16:16

[Гость]

У тебя

procedure stringi(s:string; var st:string);
begin
i:=0;
            for i:=a to b-2 do      //  где ты описываешь переменные a, b, i в локальных переменных их           
             begin                       //нет и через параметры ты их не передаешь
              delete(s,a+1,1);
              writeln('str:',s);
             end;
end;

Поищи в поиске таких задач было уйма.

Эти переменные глобальные это я для простоты мне надо чтобы в любом выражении он удалял все что в скобках!!