Оптимальні програми

While Priority(Ex[i])<=Priority(Stek[j]) Do

Begin Rez:=Rez+Stek[j]; Dec(j); End;

Inc(j); Stek[j]:=Ex[i];

End;

End;

While Stek[j]<>'e' Do

Begin Rez:=Rez+Stek[j]; Dec(j); End;

ITP:=Rez;

End;

Begin

ClrScr;

Ex:=InputExpression;

S:=ITP(Ex);WriteLn('Вираз у постфіксній формі: ',S);

WriteLn('Результат ',CalculatePostfix(S):12:6);

WriteLn('Натисніть довільну клавішу');

ReadLn;

End.

Приклади роботи програми.

Приклад 1.

Скiльки змiнних буде у виразi ?

4

Введiть один символ для позначення змiнної номер 1

a

Введiть значення a

1