VPF::[Pascal->Алгоритм] Синтаксический анализатор

Ангел

Дата 29.12.2006, 00:19 (ссылка)

(нет голосов)

Загрузка ...

Прозрачное Счастье

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

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

Помогите, пожалуйста. smile

Постановка задачи:

Построить синтаксический анализатор для понятия:
Переменная с индексами
<индекс-перем>::=<идент>[<спис-инд-выр>]
<спис-инд-выр>::=<инд-выр>{ ,<инд-выр>}*
<индекс-выр>::=<индекс>|(<инд-выр><знак-оп><инд-выр>)
<индекс>::=<буква>
<знак-оп>::=+|-|*
<идент>::==<буква>{<буква>|<цифра>}*

Ангел

Дата 29.12.2006, 14:34 (ссылка)

(нет голосов)

Загрузка ...

Прозрачное Счастье

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

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

Нужен алгоритм. Програма есть:

Код


Program lab4;
 uses crt;
 var s:string;
     pos:byte;
     e:boolean;
Procedure Ident; {Identificator }
 begin
  inc(pos);
  if (upcase(s[pos]) in ['A'..'Z'])and(not e) then
   begin
   while (upcase(s[pos]) in ['A'..'Z','0'..'9'])and(pos<=length(s)) do
     inc(pos);
   end
   else
     e:=true;
 end;
Procedure IndVyr;
begin
 if (upcase(s[pos]) in ['A'..'Z'])and(not e) then inc(pos) {Esli est identificator, to vse OK}
  else
  begin
  if (s[pos]='(') then  {Esli est' '(' znachit budet neskolko identificatorov}
     begin
     pos:=pos+1;
     IndVyr;
     if s[pos] in ['+','-','*'] then
     while s[pos] in ['+','-','*'] do begin {Dolgen byt' znak operaciy}
                                      inc(pos);
                                      IndVyr;  {Sleduyshiy identificator}
                                    end;

     if s[pos]<>')' then e:=true
                    else inc(pos);
     end
     else e:=true;
     end;
end;
Procedure ListIdent; {Spisok identificatorov - proveryaet na pravylnost}
begin
if not e then IndVyr;
while (not e)and( s[pos]=',') do
begin
inc(pos);
IndVyr;{Esli imeem zapyatuu proveryaem}
end;                        {sleduushie identificatory}
end;
Procedure IndexPerem; {Proverka}
begin
while (pos<=length(s))and(not e) do {Poka ne konec stroky}
begin
Ident;   {Proveryaem pravylnost identificatora}
if (pos<length(s))and(s[pos]='[')and(not e) then
begin
pos:=pos+1;
ListIdent;  {Proveryaem spisok identificatorov}
if (pos<=length(s))and(s[pos]=']') then  inc(pos)  {Esli ne conec vyrageniya, smotrym dalshe}
else e:=true;
end
else e:=true;
end;
end;
begin
 clrscr;
 writeln('Input PROGRAM');
 readln(s);
 for pos:=1 to length(s) do
  if s[pos]=' ' then delete(s,pos,1);
 e:=false;
 pos:=0;
 IndexPerem;
 if e=false then writeln('CORRECT')  {Vyvod otveta}
              else writeln('ERROR');
readln;
end.

M
alexeis1

Модератор: выбирайте пожалуйста тип подсветки. http://forum.vingrad.ru/index.php?showtopic=126445

Это сообщение отредактировал(а) alexeis1 - 29.12.2006, 15:37

Rodman

Дата 2.1.2007, 14:10 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

Ангел, smile

Надеюсь не поздно... ну напряжно шло после НГ...

С наступившем тебя...

Присоединённый файл ( Кол-во скачиваний: 52 )

Doc1.doc 46,00 Kb

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

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