Пример выполнения задания

Написать программу расшифровки и вычисления арифметических выражений с использованием стека.

Вид формы и полученные результаты представленный на рис. 5.1.

Приведем только тексты используемых функций-обработчиков и созданных функций пользователя (тексты функций InStack и OutStack взять в лаб.раб.3, заменив тип int на char):

...

struct Stack {

char info;

Stack *next;

} *begin;

int Prior (char);

Stack* InStack(Stack*,char);

Stack* OutStack(Stack*,char*);

double Rezult(String);

double mas[201]; // Массив для вычисления

Set <char, 0, 255> znak; // Множество символов-знаков

int Kol = 8;

//--------------- Текст функции-обработчика FormCreate -------------

Edit1->Text = "a+b*(c-d)/e"; Edit2->Text = "";

char a = 'a';

StringGrid1->Cells[0][0] ="Имя"; StringGrid1->Cells[1][0] ="Знач.";

for(int i = 1; i<Kol; i++) {

StringGrid1->Cells[0][i] = a++; StringGrid1->Cells[1][i] = i;

}

//---------------------- Текст функции-обработчика кнопки Перевести ----------------

Stack *t;

begin = NULL; // Стек операций пуст

char ss, a;

String InStr, OutStr; // Входная и выходная строки

OutStr = ""; Edit2->Text = "";

InStr = Edit1->Text;

znak << '*' << '/' << '+' << '-' << '^';

int len = InStr.Length(), k;

for (k = 1; k <= len; k++) {

ss = InStr[k];

// Открывающую скобку записываем в стек

if (ss == '(') begin = InStack(begin, ss);

if (ss == ')') {

// Выталкиваем из стека все знаки операций до открывающей скобки

while ((begin -> info)!= '(') {

begin = OutStack(begin,&a); // Считываем элемент из стека

OutStr += a; // Записываем в строку

}

begin = OutStack(begin,&a); // Удаляем из стека '(' скобку

}

// Букву (операнд) заносим в выходную строку

if (ss >= 'a' && ss <= 'z') OutStr += ss;

/* Если знак операции, то переписываем из стека в выходную строку все опера-ции с большим или равным приоритетом */

if (znak.Contains(ss)) {

while (begin!= NULL && Prior (begin -> info) >= Prior (ss)) {

begin = OutStack(begin, &a);

OutStr += a;

}

begin = InStack(begin, ss);

}

}

// Если стек не пуст, переписываем все операции в выходную строку

while (begin!= NULL){

begin = OutStack(begin, &a);

OutStr += a;

}

Edit2->Text = OutStr; // Выводим полученную строку

}

//---------------------- Текст функции-обработчика кнопки Посчитать ---------------

char ch;

String OutStr = Edit2->Text;

for (int i=1; i<Kol; i++) {

ch = StringGrid1->Cells[0][i][1];

mas[int(ch)]=StrToFloat(StringGrid1->Cells[1][i]);

}

Edit3->Text=FloatToStr(Rezult(OutStr));

//-------- Функция реализации приоритета операций-----------

int Prior (char a){

switch (a) {

case '^': return 4;

case '*': case '/': return 3;

case '-': case '+': return 2;

case '(': return 1;

}

return 0;

}

//---------------- Расчет арифметического выражения ----------------------------

double Rezult(String Str) {

char ch, ch1, ch2;

double op1, op2, rez;

znak << '*' << '/' << '+' << '-' << '^';

char chr = 'z'+1;

for (int i=1; i <= Str.Length(); i++){

ch=Str[i];

if (! znak.Contains(ch)) begin = InStack(begin, ch);

else {

begin = OutStack(begin,&ch1);

begin = OutStack(begin,&ch2);

op1 = mas[int (ch1)];

op2 = mas[int (ch2)];

switch (ch){

case '+': rez=op2+op1; break;

case '-': rez=op2-op1; break;

case '*': rez=op2*op1; break;

case '/': rez=op2/op1; break;

case '^': rez=pow(op2,op1); break;

}

mas[int (chr)] = rez;

begin = InStack(begin,chr);

chr++;

}

}

return rez;

}

Рис. 5.1