Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Строки

Автор: -Dima- 10.02.2006 11:45

Дана символьная строка. Получить новую строку, взяв из данной все символы, находящиеся между первой открывающейся скобкой и последней закрывающейся (если какие-либо скобки отсутствует, то вывести соответствующее сообщение).

Касяк моей программы в том что он берет скобку '(' последнею и ')' тоже последнею, а надо чтобы прога брала ( скобку первую! Как это сделать?

Код


var
  s,str:string;
  i1,i2,j,i:integer;
begin
  write('BBEDITE SIMBOLHyu CTPOKy -> ');
  readln(s);
  i1:=0;
  i2:=0;
  for i:=length(s) downto i1 do
     if s[i]='(' then begin i1:=i;
     break end;
  for j:=length(s) downto i1+1 do
     if s[j]=')' then begin i2:=j;
     break end;

  if (i1=0) or (i2=0) then
                      begin write('ERROR!!!!!');
                      readln;
                      exit end
                      else str:=copy(s,i1+1,(i2-i1)-1);


  write('BbIBOD -> ',str);
  readln;
end.



Помогите пожалуйста! smile.gif

Автор: lapp 10.02.2006 12:03

В первом цикле иди не с конца к началу, а с начала к концу.
То есть не так:
for i:=length(s) downto i1 do
а вот так:
for i:=1 to length(s) do

И вообще, в этом случае следует использовать не for, а untill или while..

Автор: -Dima- 10.02.2006 12:14

Спасибо!

Автор: klem4 10.02.2006 15:34

Так будет побыстрее я думаю :

uses crt;

procedure CheckStr(s : string; var res : string);
var
   start,len,count : byte;
begin
   start := pos('(',s) + 1;
   count := 0;
   while (pos(')',copy(s,pos(')',s) + 1,255))) <> 0 do begin
      inc(count);
      delete(s, pos(')',s),1);
   end;
   count := count + pos(')',s);
   res := copy(res, start, count - start)
end;

var

  s1,s2 : string;

begin
   clrscr;
   s1 := '(STRATqwe(123)))))))))))))))))))456)(78(9))FINISH)';
   s2 := s1;
   CheckStr(s1,s2);
   writeln('s1='+s1);
   writeln('s2='+s2);
   readln;
end.

Автор: volvo 10.02.2006 15:52

Вот так еще быстрее:

uses crt;

function check_str(s: string): string;
var start, finish: byte;
begin
  start := pos('(', s) + 1;
  finish := length(s);
  while (s[finish] <> ')') and (finish > 0) do dec(finish);
  if finish > 0 then dec(finish);

  if (start > finish) or (start*finish = 0) then
    check_str := '<Error: no matches>'
  else check_str := copy(s, start, finish - start + 1);
end;

var
  s1: string;

begin
   clrscr;
   s1 := '(STRATqwe(123)))))))))))))))))))456)(78(9))FINISH)';
   writeln('s   = ' + s1);
   writeln('res = ' + check_str(s1));
end.

klem4, кстати, ты забыл
Цитата
вывести соответствующее сообщение
blum.gif