вот условие:
Используя очередь и стек из входного текстового файла F проанализировать текст
сбалансированный по скобкам
<Текст>::=<пусто> |
<элемент><текст>
<элемент>::=<буква> |
(<текст>)
Напечатать упорядоченные пары номеров открывающих скобок.



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

Чей то я вооще ничего не понял.
У тебя есть файл:

Цитата

<Текст>::=<пусто> | <элемент><текст> <элемент>::=<буква> | (<текст>)

Что конкретно тебе нужно из него получить?

Цитата

Напечатать упорядоченные пары номеров открывающих скобок.

Это как понять?

Цитата

Это как понять?

А мож тут имеется ввиду просто номера символов с открывающимися скобками, тогда просто цикл от 1 до кол-ва символов, и каждый который скобка выводить.

Сам текст обрабатываешь как очередь. Просматриваешь символы по одному. Когда встречаются скобки - запихиваешь их в стек (открывающие) или извлекаешь (закрывающие).

Впрочем я тоже задания не понял...

Akina ты расказала скобочную структуру работы компилятора (ну типа того), а вопрос вроде типа напечатать номера символов с открывающимися скобками. ИМХО мой способ в этом случае самый оптимальный.

2~FoX~

Цитата

У тебя есть файл: <Текст>::=<пусто> | <элемент><текст> <элемент>::=<буква> | (<текст>)

Это не файл, это БНФ!!!
ЗАчем это здесь - ума не приложу ...
НАверно по БНФ нужно создать пример

Как я понял, нужнО слудещее ...
Как было сказано чуть выше ...

Цитата

Сам текст обрабатываешь как очередь. Просматриваешь символы по одному. Когда встречаются скобки - запихиваешь их в стек (открывающие)

ТОлько я понял, что нужно в стек записывать не скобки, а номер символа. ПОтом ищешь дальше. Встречаешь еще 1 скобку извлекаешь число из стека и записываешь пару (из стека и номер текущий скобки ).
А задание действительно интересное.

Цитата(Zero @ 27.1.2005, 02:42)

Akina ты расказала

Зеро, Akina - это ОН

Цитата

Зеро, Akina - это ОН

А чё тогда имя женское взял?

Блин... в натуре!!! По сайту видно...

Zero
да ты прав,как я понял надо напечатать номера символов,а нафига вот это

Цитата

<Текст>::=<пусто> | <элемент><текст> <элемент>::=<буква> | (<текст>)

?
это что-входной файл?

Marriage
задание говоришь интересное?ты по моему единственный,кто правильно понял,что нужно сделать.

Цитата

ТОлько я понял, что нужно в стек записывать не скобки, а номер символа. ПОтом ищешь дальше. Встречаешь еще 1 скобку извлекаешь число из стека и записываешь пару (из стека и номер текущий скобки ).

если есть желание,можешь помочь

Си++
Вот то решение, которое я понял.
Правда файл читал без очереди. А из Мемо. Если это прямо так принципиально важно, могу сделать и с очередью.

Есть входной файл :

123456789(1234(6789(123456789)sdfs)df)

Код

unit Unit1; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls; type  TForm1 = class(TForm)    Memo1: TMemo;    Button1: TButton;    OpenDialog1: TOpenDialog;    Label1: TLabel;    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.DFM} 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.

Результатом будет :
10-15
Я так понял задание ....

Это сообщение отредактировал(а) Marriage - 28.1.2005, 10:01

Цитата

а нафига вот это Цитата  <Текст>::=<пусто> | <элемент><текст> <элемент>::=<буква> | (<текст>) ? это что-входной файл?

А это БНФ, там показано какие символы могут быть на входе.
Добавлено @ 15:35
И нафиг фаще нужен стек, мне кажется просто можно создать цикл репита и установить счётчик, и на каждый раз когда открывающаяся скобка выводить, и не какого гемора. 5 мин. работы.

Zeroможно и через цикл,но попросили сделать именно со стеком(т.е. задача на тему Списки)

Marriage
да вроде правильно,но очередь и стек нужны обязательно и нужно решить задачу на Турбо Паскале(досовая версия)-вот это меня и бесит.
см.Лс

Добавлено @ 08:50
Marriage
а почему 10-15,а 20-это же тоже открывающая скобка?

мне один знакомый сказал,что это

Цитата

<Текст>::=<пусто> | <элемент><текст> <элемент>::=<буква> | (<текст>)

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

Цитата

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
спасибо!!!спас мне жизнь