Обратная польская запись

[Катуха]

Помогите пожалуйста составить программу на PASCAL для перевода арифметических выражений в обратную польскую запись. Уже все облазила,но именно на Pascal нигде нету(((

[Катуха]

Вот один из вариантов решения,но она не идет. Подскажите,в чем ошибка.

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 [' ',#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+' ';
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:=' ';
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:='';p:=1;
getsym;expression;writeln(si);write ln(so);
end.

[Serge_Bliznykov]

что значит - "не идёт" ?!?? под TurboPascal идёт.
вводится строка выражения:

-1.2-(-1*3.14+1/(a/b+cab*9))

преобразуется и выдаётся в обратной польской записи как строка:

 1.2 (-) 1 3.14* (-) 1 a b/ cab 9*+/+-

принцип обратной польской записи очень хорошо знаком всем тем, кому довелось столкнуться с калькулятором MK-52 :-)
вкратце - для того, чтобы сделать действия с двумя числами (операндами) нужно ввести первое число. поместить его в стек. потом ввести второе число. а потом указать действие, которое вы хотите выполнить над тем числом, которое у вас "на рабочем столе" и тем, которое находится в стеке. результат выполнения помещается в стек...

[Катуха]

Программа выдает ошибку в строчке

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

на месте do пишет,что type mismatch. Что нужно сделать? Подскажите.

[Катуха]

Паскаль выдает ошибку 39 в [' ',#9]). Что делать не знаю,подскажите пож-а,может паскаль другой скачать(скажите где и какой лучше). Уже 2 паскаля скачивала,на них все равно не идет. Очень срочно.

[Катуха]

Убрала запятую,теперь выдает ошибку 26 вот здесь: else a:=' ';

[Катуха]

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

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.