Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Веб-программирование > Perl
Перезагрузить страницу Синтаксический анализатор
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Вадимко Вадимко вне форума
Member
 
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 26.04.2011
Thumbs up Синтаксический анализатор - 24.02.2012, 16:46

помогите пожалуйста переделать код с Delphi на Perl

const
Shabl: array[0..5, 0..10] of Integer = (
{ - }(1, -1, 3, -1, 4, 4, 4, 3, -2, -2, -2),
{ ch }(7, 2, -1, 2, 5, -1, -1, -1, -2, -2, -2),
{ sig }(-1, -1, 3, -1, -1, 4, 4, 3, -2, -2, -2),
{ ( }(4, -1, -1, 4, 4, -1, -1, -1, -2, -2, -2),
{ ) }(-1, -1, -1, -1, -1, 6, 6, -1, -2, -2, -2),
{ nul }(-1, -1, -1, 9, -1, 10, 11, -1, -2, -2, -2));

var
Buf: string;
Leng, F, ID, State, i: Integer;
Ch: char; //это наш var - зарезервированное слово в делфи,
//потому используем другое имя переменной
begin
buf := Edit1.Text;
leng := Length(buf);
F := 0;
//State := 0;
for i := 1 to leng do
begin
Ch := Buf[i];
State := 0; //сюда переместил, так как State может
//принять отрицательное значение, а отрицательных индексов у нас нету
case Ch of
'-': ID := 0;
'+': ID := 2;
'*': ID := 2;
'/': ID := 2;
'(': ID := 3;
')': ID := 4;
else
if True{а тут твое условие вместо True} then
ID := 0;
end;
State := Shabl[ID, State];
ShowMessage(IntToStr(leng)+ ' ' + IntToStr(State)); //для проверки
end;
end;[/HIGHLIGHT]
Ответить с цитированием
  (#2 (permalink)) Старый
Alexiski Alexiski вне форума
Любитель давать советы
 
Сообщений: 4,274
Сказал(а) спасибо: 27
Поблагодарили 54 раз(а) в 54 сообщениях
Регистрация: 16.10.2005
По умолчанию 25.02.2012, 01:36

Ваш код - это бред сивой кобылы.
Особенно после этого:
delphi Код:
State := 0; //сюда переместил, так как State может
//принять отрицательное значение, а отрицательных индексов у нас нету
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Синтаксический анализатор Вадимко Prolog 1 24.02.2012 23:48
Синтаксический анализатор Fleur Вопросы начинающих программистов 0 29.03.2011 02:31
Синтаксический анализатор на Пролог Tania Prolog 48 11.02.2010 23:03
Синтаксический анализатор sacha_kk3 Prolog 2 23.04.2008 21:39
Синтаксический анализатор. рекурсия payton С/С++ 5 09.04.2007 23:06
Синтаксический анализатор выражений studEN С/С++ 5 28.12.2006 21:17
Синтаксический анализатор как он работает -Apple Delphi 2 27.11.2006 07:46
синтаксический анализатор Stalker.mg Pascal 2 27.04.2006 01:54
Синтаксический анализатор AlekseyVolk Eclipse 2 21.02.2006 07:42
Как написать синтаксический анализатор на С++ Batya Вопросы начинающих программистов 9 16.02.2005 11:11
Как создать синтаксический анализатор imported_Shiko Prolog 5 28.11.2004 00:55
Где найти синтаксический анализатор chenkja Delphi 2 03.09.2004 03:56



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов