Обратная польская запись - Страница 2

Катуха · 26.12.2008, 22:21

Я пробовала так

Цитата:

begin
if a:='-';getsym
end
else
a:=' ';
term;

Выдает 40 ошибку.

Vladimir_S · 26.12.2008, 22:29

Ну-ну. Теперь Вы начинаете ломать процедуру expression. Вот только зачем? Ваша конструкция совсем не соответствует тому, что написано в программе. Впрочем, поиграйтесь.

Катуха · 26.12.2008, 22:45

А как именно называется ваша программа, Vladimir_S?? Я попробую скачать и в ней набрать.

Vladimir_S · 26.12.2008, 22:56

Цитата:

Сообщение от Катуха

А как именно называется ваша программа, Vladimir_S?? Я попробую скачать и в ней набрать.

Ох, это Free Pascal, причем не последняя версия, а аж 2000 года. Это и вообще-то продукт полусырой, но вот эта оказалась более или менее. Катуха, а Вы не пропустили рекомендацию в моем посте #8? Попробуйте.

Катуха · 26.12.2008, 23:16

Все,программа пошла!!!!!!!! Спасибо большое!!!!!
Надо было сделать от так:

Цитата:

while (p<=length(si)) and (si[p] in [#32, #9]) do

и

Цитата:

a:=#32;

Еще раз спасибо!!!!!

Катуха · 27.12.2008, 11:24

Выкладываю окнчательный вариант программы,может кому пригодится:

Цитата:

Progpam OPZ;
const
oper1=['+','-'];
oper2=['*','/'];
symbol=['a'..'z','A'..'Z','0'..'9','.'];
var
sym :char;
so,si :string;
p :word;
procedure getsym;
begin
while (p<=length(si))and(si[p] in [#32, #9]) do
inc(p);
if p>length(si) then
sym:=#0
else
begin
sym:=si[p];
inc(p)
end;
end;
procedure expression;
forward;
procedure get_var;
begin
so:=so+#32;
while sym in symbol do
begin
so:=so+sym;
getsym
end
end;
procedure term;
var a:char;
begin
if sym='(' then
begin
getsym;
expression;
getsym
end
else
get_var;
while sym in oper2 do
begin
a:=sym;
getsym;
term;
so:=so+a
end
end;
procedure expression;
var a:char;
begin
if sym='+' then
getsym
else if sym='-' then
begin
a:='-';getsym
end
else
a:=#32;
term;
if a='-' then so:=so+' (-)';
while sym in oper1 do
begin
a:=sym;
getsym;
term;
so:=so+a
end
end;
begin
si:='-1.2-(-1*3.14+1/(a/b+cab*9))';
so:=#32;
p:=1;
getsym;
expression;
writeln(si);
writeln(so);
readln;
end.

26.12.2008, 22:21
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Темы которые подобны вашей уже были на нашем форуме Запись видеоролика Запись на CD

26.12.2008, 22:29	#12 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Ну-ну. Теперь Вы начинаете ломать процедуру expression. Вот только зачем? Ваша конструкция совсем не соответствует тому, что написано в программе. Впрочем, поиграйтесь.

26.12.2008, 22:45	#13 (permalink)
Катуха Member Регистрация: 17.12.2008 Сообщений: 14 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	А как именно называется ваша программа, Vladimir_S?? Я попробую скачать и в ней набрать.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070