Модераторы: volvo877, Snowy, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Подскажите решение задачи, Паскаль не моя стихия 
:(
    Опции темы
Си++
Дата 24.1.2005, 09:59 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











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



я не могу понять что тут надо сделать,вроде задача на списки,помогите,плиз.
может кто-нибудь делал что-нибудь подобное?
  Вверх
~FoX~
Дата 26.1.2005, 12:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 1
Всего: 68



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

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

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

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

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


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Zero
Дата 26.1.2005, 12:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24



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

А мож тут имеется ввиду просто номера символов с открывающимися скобками, тогда просто цикл от 1 до кол-ва символов, и каждый который скобка выводить.
PM MAIL ICQ   Вверх
Akina
Дата 26.1.2005, 12:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: нет
Всего: 454



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

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


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Zero
Дата 27.1.2005, 02:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24



Akina ты расказала скобочную структуру работы компилятора (ну типа того), а вопрос вроде типа напечатать номера символов с открывающимися скобками. ИМХО мой способ в этом случае самый оптимальный. smile
PM MAIL ICQ   Вверх
Marriage
Дата 27.1.2005, 10:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 842
Регистрация: 4.5.2004
Где: Таганрог

Репутация: нет
Всего: 2



2~FoX~
Цитата

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


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

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

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


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



--------------------
Praemonitus, praemunitus
PM MAIL ICQ   Вверх
~FoX~
Дата 27.1.2005, 10:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 1
Всего: 68



Цитата(Zero @ 27.1.2005, 02:42)
Akina ты расказала

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


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Zero
Дата 27.1.2005, 18:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24



Цитата
Зеро, Akina - это ОН

А чё тогда имя женское взял? smile smile
PM MAIL ICQ   Вверх
Pakshin A. S.
Дата 27.1.2005, 19:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61



Блин... в натуре!!! По сайту видно... smile
PM   Вверх
Си++
Дата 28.1.2005, 09:21 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











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

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

?
это что-входной файл?
  Вверх
Си++
Дата 28.1.2005, 09:25 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











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

если есть желание,можешь помочь
  Вверх
Marriage
Дата 28.1.2005, 09:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 842
Регистрация: 4.5.2004
Где: Таганрог

Репутация: нет
Всего: 2



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

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

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


--------------------
Praemonitus, praemunitus
PM MAIL ICQ   Вверх
Zero
Дата 28.1.2005, 15:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24



Цитата
а нафига вот это


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

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

А это БНФ, там показано какие символы могут быть на входе.
Добавлено @ 15:35
И нафиг фаще нужен стек, мне кажется просто можно создать цикл репита и установить счётчик, и на каждый раз когда открывающаяся скобка выводить, и не какого гемора. 5 мин. работы.
PM MAIL ICQ   Вверх
Koldun
Дата 30.1.2005, 08:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 28.1.2005

Репутация: нет
Всего: нет



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

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

Добавлено @ 08:50
Marriage
а почему 10-15,а 20-это же тоже открывающая скобка?
PM MAIL   Вверх
Koldun
Дата 30.1.2005, 08:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 28.1.2005

Репутация: нет
Всего: нет



мне один знакомый сказал,что это
Цитата
<Текст>::=<пусто> |
<элемент><текст>
<элемент>::=<буква> |
(<текст>)
вообще формы Бэкуса-Наура,я такого не знаю,так ещё нам такого не объясняли,кто-нибудь знает,что это такое?
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »


 




[ Время генерации скрипта: 0.0579 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.