Строки в паскаль

[zena]

Строки в паскаль

Решите пожалуста задачу на паскаль. Сама по себе лёгкая но я не могу понять как доделать её!!!

Задача:
Дана строка символов. Исключить из этой строки группы символов, расположенные между скобками []. Сами скобки тоже должны быть исключены. Предполагается , что внутри скобок нет других скобок.

У меня получилось удалить тока скобки, но вот то что внутри скобок удалить не получается!!!
Program hfhf;
var k,s:string;
n:byte;
begin
readln(s);
n:=pos('[]',s);
While n <> 0 do
begin
Delete (s,n,3);
n:=pos('[]',s);
end;
Writeln(s);
end.

 

[Vladimir_S]

Решите пожалуста задачу на паскаль. Сама по себе лёгкая но я не могу понять как доделать её!!!

Задача:
Дана строка символов. Исключить из этой строки группы символов, расположенные между скобками []. Сами скобки тоже должны быть исключены. Предполагается , что внутри скобок нет других скобок.

У меня получилось удалить тока скобки, но вот то что внутри скобок удалить не получается!!!

Я бы это сделал так:

Program hfhf;
var
 S:string;
 p1, p2, n:byte;
begin
 WriteLn('Enter the string:');
 ReadLn(S);
 p1:=pos('[',S);
 p2:=pos(']',S);
 n:=p2-p1+1;
 Delete (S,p1,n);
 WriteLn(S);
 ReadLn;
end.

Это если группа символов в квадратных скобках заведомо одна. Ну а если их может быть несколько, то так:

Program hfhf;
var
 S:string;
 p1, p2, n:byte;
begin
 WriteLn('Enter the string:');
 ReadLn(S);
 Repeat
  p1:=pos('[',S);
  p2:=pos(']',S);
  n:=p2-p1+1;
  Delete (S,p1,n);
 Until p1=0;
 WriteLn(S);
 ReadLn;
end.

 

[zena]

То что нужно!!! спасибо большое!!! А решение было совсем рядом

 

[Vladimir_S]

То что нужно!!! спасибо большое!!! А решение было совсем рядом

Да не за что. Обращайтесь, если что...