Строки.

[Dimak123]

Помогите пожалуйста, я не могу решить задачу на Delphi!

В заданном тексте удалить часть текста, заключенную в скобки (вместе со скобками). И считать, что скобки встречаются неоднократно.

Код: Выделить всё

Program EX_5_STRING;
{$APPTYPE CONSOLE}
Var a: string[60];
         i,k: integer;
         b: array [1..200] of string;
Begin
Writeln('Vvedite stroky');
 Readln(a);
For i:= 1 to length(a) do
if a[i]='(' then   delete(a,i,length(a));

For k:= 1 to length(a) do
if a[k]=')' then   delete(a,k,length(a)-i);
Writeln(a);
Readln;   end.

[Sheka]

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

Код: Выделить всё

procedure p1;
var 
  b:boolean;
  c:char;
begin
b:=true;
while not eof(fin) do begin 
  read(fin,c);
  if c="(" then b:=false;
  if b=true then write(fout,c);
  if c=")" then b:=true;
  end;
end;

[Dimak123]

Что-то она у меня никак не получается. Напишите пожалуйста программу полностью.

[Sheka]

Что-то она у меня никак не получается. Напишите пожалуйста программу полностью.

сколько платишь?

или хотя бы предоставь свои старания, чтобы можно было исправить.

[Dimak123]

Программа вроде работает, но не срабатывает при повторном раскрытии скобок.

Код: Выделить всё

Program EX_5_STRING;
{$APPTYPE CONSOLE}
Var a: string;
         i,k: integer;
         b: array [1..200] of string;
Begin
Writeln('Vvedite stroky');
 Readln(a);
repeat
inc(i);
Until a[i]='(';
For k:= 1 to length(a) do
 begin
b[length(a)-k+1]:=a[k];
 end;
k:=0;
repeat inc(k);
until b[k]=')';
delete(a,i,length(a)-k-i+2);
Writeln(a);
Readln;
end.