Цитата

Marriage а почему 10-15,а 20-это же тоже открывающая скобка?

В задании сказано, что ПАРНЫЕ нужно выводить. Парные - это когда есть пара. А третьей скобке пары нету ...
Вот она и не выводиться

Цитата(Koldun @ 30.1.2005, 08:59)

я такого не знаю,так ещё нам такого не объясняли,кто-нибудь знает,что это такое?

Я же в начале писал, и вот ещё немного в конце темы тут
PS: одним словом ─ это то какой текст можно вводить.

Marriageспасибо,что пояснил,теперь понял

Zeroда это ясно,спасибо

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

Koldun
Было бы времени больше постараюсь коротко ...
var
i,y:integer;
stek:Integer; //Для стека достаточно одного символа
str:string;
begin



//IF openDialog1.Execute then
// Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
//Здесь открываешь файл

stek:=-1;

//For i:= 0 to MEmo1.Lines.Count-1 do
// For y:= 1 to Length(Memo1.Lines[i]) do
//Здесь читаешь строку c помощью ReadLn, пока не достигнут конец файла в переменную
Begin
If ( str[y]='(' ) then
if ( stek<0 ) then
Begin
Stek:=y;
end
else
Begin
Label1.Caption:=Label1.Caption+IntToStr(stek)+'-'+IntToStr(y)+' ';
Stek:=-1;
end;


End;

end;


Что-то вроде этого, но я думаю идея понятная ..

Marriage ,да вроде,а это чё на Делфях?

НУ да
Я в паскале с файлами давно не работал ....

Koldun насколько я понял, там нужно только добавить ввод из файлов и вывод не в Label1.Caption а какой-нибудь string

Marriage ,да я тоже Делфи больше уважаю,чем Турбо Паскаль(со своей долбанной памятью в 64 Кбайта)
Добавлено @ 11:29
Marriageа ты можешь привести примеры входного файла,для этой задачки?

CTRL+F1
Паскаля под рукой нету ...
простите ...

Цитата(Marriage @ 28.1.2005, 09:54)

Есть входной файл : 123456789(1234(6789(123456789)sdfs)df)

я имею ввиду такие примеры и ещё а если скобка будет всего одна?

Цитата

я имею ввиду такие примеры и ещё а если скобка будет всего одна?

БНФ посмотри !!!

<Текст>::=<пусто> |<элемент><текст>
<элемент>::=<буква> |(<текст>) <----------------Не может быть только 1 скобка, по любому должнв быть закрывающая ..

приведи пожалуйста пример файла.

Marriage
по моему решение должно быть на паскале а не на delphi

Код

procedure TForm1.Button1Click(Sender: TObject);     var     i,y:integer;     stek:Integer; //Для стека достаточно одного символа     str:string;     begin     IF openDialog1.Execute then     Memo1.Lines.LoadFromFile(OpenDialog1.FileName);     stek:=-1;     For i:= 0 to MEmo1.Lines.Count-1 do     For y:= 1 to Length(Memo1.Lines[i]) do     Begin     str:=Memo1.Lines[i]; If ( str[y]='(' ) then            if ( stek<0 ) then              Begin               Stek:=y;              end            else              Begin               Label1.Caption:=Label1.Caption+IntToStr(stek)+'-'+IntToStr(y)+'  ';               Stek:=-1;              end;        End;     end;     end.

Dr.No_xXx
спасибо!!!спас мне жизнь