Цитата:
Сообщение от zena
Решите пожалуста задачу на паскаль. Сама по себе лёгкая но я не могу понять как доделать её!!!
Задача:
Дана строка символов. Исключить из этой строки группы символов, расположенные между скобками []. Сами скобки тоже должны быть исключены. Предполагается , что внутри скобок нет других скобок.
У меня получилось удалить тока скобки, но вот то что внутри скобок удалить не получается!!!
|
Я бы это сделал так:
Код:
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.