Оптимальні програми обчислення виразів, Детальна інформація

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

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

b

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

2

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

c

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