Перевод выражения из инфиксной в постфиксную форму

@Chost · Регистрация: 02.03.2016

Студворк — интернет-сервис помощи студентам

Перевести выражение из инфиксной в постфиксную форму. Вот мой код. Почему то на некоторых примерах при выводе ответа несколько раз пищит и выдает набор символов

Pascal

function intoops(s:string):string;
  var
    i: integer;
    s1 : string;
  begin
    s1 := '';
    for i := 1 to length(s) do begin
      if(s[i] in ['0'..'9']) then s1 := s1 + s[i]
        else if((s[i]='+')or(s[i]='-'))then begin
          inc(top);
          a[top]:=s[i];
        end
        else if((s[i]='*') or(s[i]='/')) then begin
          while((top>1)and((s[i]='*')or(s[i]='/')))do begin
            s1:= s1 + a[top];
            writeln(a[top]);
            a[top] := s[i];
            dec(top);
          end;
        end
        else if(s[i]='(')then begin
          inc(top);
          a[top] := '(';
        end
 
        else if(s[i]=')') then begin
          while(a[top]<>'(') do begin
            s1:=s1+a[top];
            dec(top);
          end;
          dec(top);
        end;
  end;
  while(top>0) do begin
    s1 := s1+a[top];
    dec(top);
  end;
  intoops:=s1;
end;

В чем может быть проблема?

@Chost · 11.09.2016, 11:50 **[ТС]**

Вот такой выбивает и пищит

@Chost 5 / 5 / 7 Регистрация: 02.03.2016 Сообщений: 46
	11.09.2016, 11:50 [ТС]	2
	Вот такой выбивает и пищит Миниатюры 0

Опции темы