| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Object Pascal: кроссплатформенные технологии > Подскажите решение задачи |
| Автор: Си++ 24.1.2005, 09:59 |
| вот условие: Используя очередь и стек из входного текстового файла F проанализировать текст сбалансированный по скобкам <Текст>::=<пусто> | <элемент><текст> <элемент>::=<буква> | (<текст>) Напечатать упорядоченные пары номеров открывающих скобок. я не могу понять что тут надо сделать,вроде задача на списки,помогите,плиз. может кто-нибудь делал что-нибудь подобное? |
| Автор: ~FoX~ 26.1.2005, 12:05 | ||||
| Чей то я вооще ничего не понял. У тебя есть файл:
Что конкретно тебе нужно из него получить?
Это как понять? |
| Автор: Zero 26.1.2005, 12:12 | ||
А мож тут имеется ввиду просто номера символов с открывающимися скобками, тогда просто цикл от 1 до кол-ва символов, и каждый который скобка выводить. |
| Автор: Akina 26.1.2005, 12:34 |
| Сам текст обрабатываешь как очередь. Просматриваешь символы по одному. Когда встречаются скобки - запихиваешь их в стек (открывающие) или извлекаешь (закрывающие). Впрочем я тоже задания не понял... |
| Автор: Zero 27.1.2005, 02:42 |
| Akina ты расказала скобочную структуру работы компилятора (ну типа того), а вопрос вроде типа напечатать номера символов с открывающимися скобками. ИМХО мой способ в этом случае самый оптимальный. |
| Автор: Marriage 27.1.2005, 10:47 | ||||
2~FoX~
Это не файл, это БНФ!!! ЗАчем это здесь - ума не приложу ... НАверно по БНФ нужно создать пример Как я понял, нужнО слудещее ... Как было сказано чуть выше ...
ТОлько я понял, что нужно в стек записывать не скобки, а номер символа. ПОтом ищешь дальше. Встречаешь еще 1 скобку извлекаешь число из стека и записываешь пару (из стека и номер текущий скобки ). А задание действительно интересное. |
| Автор: ~FoX~ 27.1.2005, 10:58 | ||
Зеро, Akina - это ОН  |
| Автор: Zero 27.1.2005, 18:07 | ||
А чё тогда имя женское взял?  |
| Автор: Pakshin A. S. 27.1.2005, 19:12 |
Блин... в натуре!!! По сайту видно...  |
| Автор: Си++ 28.1.2005, 09:21 | ||
| Zero да ты прав,как я понял надо напечатать номера символов,а нафига вот это
? это что-входной файл? |
| Автор: Си++ 28.1.2005, 09:25 | ||
| Marriage задание говоришь интересное?ты по моему единственный,кто правильно понял,что нужно сделать. 
если есть желание,можешь помочь |
| Автор: Marriage 28.1.2005, 09:54 | ||
| Си++ Вот то решение, которое я понял. Правда файл читал без очереди. А из Мемо. Если это прямо так принципиально важно, могу сделать и с очередью. Есть входной файл : 123456789(1234(6789(123456789)sdfs)df)
Результатом будет : 10-15 Я так понял задание .... |
| Автор: Zero 28.1.2005, 15:28 | ||
А это БНФ, там показано какие символы могут быть на входе. Добавлено @ 15:35 И нафиг фаще нужен стек, мне кажется просто можно создать цикл репита и установить счётчик, и на каждый раз когда открывающаяся скобка выводить, и не какого гемора. 5 мин. работы. |
| Автор: Koldun 30.1.2005, 08:48 |
| Zeroможно и через цикл,но попросили сделать именно со стеком(т.е. задача на тему Списки) Marriage да вроде правильно,но очередь и стек нужны обязательно и нужно решить задачу на Турбо Паскале(досовая версия)-вот это меня и бесит. см.Лс Добавлено @ 08:50 Marriage а почему 10-15,а 20-это же тоже открывающая скобка? |
| Автор: Koldun 30.1.2005, 08:59 | ||
мне один знакомый сказал,что это
|
| Автор: Marriage 30.1.2005, 13:19 | ||
В задании сказано, что ПАРНЫЕ нужно выводить. Парные - это когда есть пара. А третьей скобке пары нету ... Вот она и не выводиться |
| Автор: Zero 30.1.2005, 21:17 | ||
Я же в начале писал, и вот ещё немного в конце темы http://forum.vingrad.ru/index.php?showtopic=38932&view=all PS: одним словом ─ это то какой текст можно вводить. |
| Автор: Koldun 31.1.2005, 06:55 |
| Marriageспасибо,что пояснил,теперь понял Zeroда это ясно,спасибо |
| Автор: Koldun 1.2.2005, 11:11 |
| Marriageа чем будет отличаться твой скрипт,если там будет стек,а не мемо? |
| Автор: Marriage 1.2.2005, 16:22 |
| 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; Что-то вроде этого, но я думаю идея понятная .. |
| Автор: Koldun 2.2.2005, 08:00 |
| Marriage ,да вроде,а это чё на Делфях? |
| Автор: Marriage 2.2.2005, 12:19 |
НУ да  Я в паскале с файлами давно не работал .... |
| Автор: Fedor 2.2.2005, 13:07 |
| Koldun насколько я понял, там нужно только добавить ввод из файлов и вывод не в Label1.Caption а какой-нибудь string |
| Автор: Koldun 4.2.2005, 11:21 |
| Marriage ,да я тоже Делфи больше уважаю,чем Турбо Паскаль(со своей долбанной памятью в 64 Кбайта) Добавлено @ 11:29 Marriageа ты можешь привести примеры входного файла,для этой задачки? |
| Автор: Marriage 4.2.2005, 18:17 |
| CTRL+F1 Паскаля под рукой нету ... простите ... |
| Автор: Koldun 4.2.2005, 18:22 | ||
я имею ввиду такие примеры и ещё а если скобка будет всего одна? |
| Автор: Marriage 4.2.2005, 20:50 | ||
БНФ посмотри !!! <Текст>::=<пусто> |<элемент><текст> <элемент>::=<буква> |(<текст>) <----------------Не может быть только 1 скобка, по любому должнв быть закрывающая .. |
| Автор: Ser9a 7.3.2005, 12:30 |
| приведи пожалуйста пример файла. |
| Автор: Dr.No_xXx 14.3.2005, 22:56 | ||
| Marriage по моему решение должно быть на паскале а не на delphi
|
| Автор: Koldun 22.4.2005, 17:32 |
| Dr.No_xXx спасибо!!!спас мне жизнь |