Форум программистов [Powered by Invision Power Board]

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

Форум программистов > Центр помощи > [Delphi] Работа со строковыми данными

Автор: Phenom 10.3.2008, 16:56

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

Автор: VICTAR 10.3.2008, 17:17

Что не получается конкретно?
Если хочешь, чтобы за тебя написали программу, то тебе в http://forum.vingrad.ru/forum/Vingrad-help-center.html

Автор: Phenom 10.3.2008, 17:22

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

Автор: Alexeis 10.3.2008, 17:40

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Автор: Phenom 10.3.2008, 18:08

Автор: mr.Anderson 10.3.2008, 21:26

Держи. Написано в Delphi 2007.

Код


program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 s : String;
 n : Integer;
 i : Integer;
 c : Boolean;
 r : String;

begin
 readln( s );
 readln( n );

 c := ( s[1] = '(' );
 
 for i:=1 to n do
 begin
  if( not c ) then //если открывающейся скобки пока не встретили
  begin
   if( s[i] = '(' ) then
   begin
    c := True;
    continue;
   end
   else r := r + s[i];
  end
  else //есть открывающаяся скобка
   if( s[i] = ')' ) then
    c := False;
 end;  

 writeln( r );
 readln;
end.