Калькулятор

#include "stdafx.h"
#include <stdlib.h>
#include <math.h>
 
struct Leksema // может быть скобка, знак или операнд 
{
    char type; // '(' ')' '+' '-' '*' '/'  0 - число
    char name[3];
    double val; // Значение число, используется когда type == 0, т.е. лексема операнд
};
 
struct List // Список для задания стека и очередь
{
    Leksema item;
    List *pNext;
};
 
void push(List *&pF, List *p) // Затолкнуть элемент в стек (добавить в начало списка)
{
    p->pNext = pF;
    pF = p;
}
 
List *pop(List *&pF) // Вытолкнуть элемент из стека (извлечь из начала списка)
{
    if (pF == 0) return 0;
    List *p = pF;
    pF = pF->pNext;
    return p;
}
 
int getRang(char Ch) // Получаем приоритет операций 
{
    if (Ch == '*' || Ch == '/') return 2;
    if (Ch == '+' || Ch == '-') return 1;
    else return 0;
}
 
void add(List *&pF, List *p) // Добавить элемент в конец списка (в конец очередь)
{
    p->pNext = 0;
    if (pF == 0)
    {
        pF = p;
        return;
    }
    List *pE = pF;
    while (pE->pNext) pE = pE->pNext;
    pE->pNext = p;
}
 
List *pStek = 0, *pQueue = 0; // Стек и очередь изначально пусты
//////////////
int main()
{
    char Ch;
    double x;
    List *p, *p1;
    int fl = 1;
    printf("Formula: ");
    while (1)  // Вводим формулу, читаем в цикле по символьно
    {
        Ch = getchar(); // Читаем символ
        if (Ch == '\n') break; // Если конец строки (нажали Enter) выход из цикла
                               //scanf("%c", &Ch);
                               // Ниже проверяем условия
                               // Если прочитали - (это унарный минус - часть числа, или прочитали . (можно вводить .15) 
                               // или прочтали число от 0  до 9
        if ((Ch == '-' && fl) || Ch == '.' || (Ch >= '0' && Ch <= '9'))
        {   // Это символ - начало операнда (значения)
            ungetc(Ch, stdin); // Возврат во входном потоке на 1 символ назад
            scanf_s("%lf", &x); // Читаем операнд как вещественное число типа double
            p = new List; // Создаем элемент очередь
            p->item.type = 0;
            p->item.val = x;
            add(pQueue, p); // Помещаем конец очереди
            fl = 0; // Следующий знак минус будет знак бинарной операции, а не унарный минус
            continue;
        }
        if (Ch == '-' || Ch == '+' || Ch == '*' || Ch == '/' )// Прочитали знак операции
        {
 
            while (1) // Из стека извлекаем операции с большим или равным приоритетом
            {
                int rang = 0;
                if (pStek) rang = getRang(pStek->item.type); // Получаем приоритет операции  на вершине стека
                if (rang<getRang(Ch) || !pStek)  // Если приоритет операции выше, чем на вершине стека, то помещаем операцию в стек
                {
                    p = new List;
                    p->item.type = Ch;
                    push(pStek, p); // Помещаем операцию в стек
                    break; // Выход из цикла
                }
                p = pop(pStek); // Извлекаем элемент из стека
                add(pQueue, p); // Помещаем в очередь
            }
            fl = 1; // Следующий знак минус будет унарным минусом
            continue;
        }
        if (Ch == '(') // если скобка отправляем ее в стек
        {
            p = new List;
            p->item.type = Ch;
            push(pStek, p);
            fl = 1;
            continue;
        }
        if (Ch == ')') //  вытолкнуть из стека в выходную последовательность (очередь) 
                       //    все до открывающей скобки. Сами скобки уничтожаются. 
        {
            p = 0;
            if (!pStek)
            {
                printf("\nError () ");
                return 0;
            }
            while (pStek) {
                p = pop(pStek);
                if (p->item.type != '(')
                    add(pQueue, p);
                else {  // Встретилась '('
                    delete p; // Уничтожаем ее
                    p = 0;
                    break; // Выход из цикла
                }
 
            }
            if (p) // Ошибка скобка не найдена
            {
                printf("\nError () ");
                return 0;
            }
            fl = 0;
            continue;
        }
    } // Входная последовательность завершилась
    while (pStek)   // Из стека все извлекаем и помещаем в очередь
    {
        p = pop(pStek);
        add(pQueue, p);
    }
    p = pQueue;
    printf("Postfixnaya forma: ");
    while (p) // В очереди находится постфиксная форма, идет ее печать
    {
        if (p->item.type) printf("%c ", p->item.type);
        else printf("%.2f ", p->item.val);
        p = p->pNext;
    }
 
    while (pQueue) // Обработка постфиксной формы
    {
        p = pop(pQueue); // Извлекаем первый элемент из очереди
        if (p->item.type == 0) // Операнд число 
            push(pStek, p); // Помещаем в стек
        else // Операнд знак операции
        {
            double x, y, Rez; // Извлекаем два операнда из стека, выполняем операцию, результат в стек
            if (pStek == 0)
            {
                printf("\nError!!!");
                return 0;
            }
 
            p1 = pop(pStek); // Первый элемент из стека (это второй операнд)
            if (p1->item.type) // Операнд не число
            {
                printf("\nError!!!");
                return 0;
            }
            y = p1->item.val; // Значение 2-го операнда
            delete p1;
            if (pStek == 0)
            {
                printf("\nError!!!");
                return 0;
            }
 
            p1 = pop(pStek); // Второй элемент из стека (это первый операнд)
            if (p1->item.type) // Операнд не число
            {
                printf("\nError!!!");
                return 0;
            }
            x = p1->item.val; // Значение 1-го операнда
            delete p1;
            switch (p->item.type) // Выполняем операцию
            {
            case '+': Rez = x + y; break;
            case '-': Rez = x - y; break;// л,и,т,р,а,в,а,у,к,
            case '*': Rez = x*y; break;
            case '/': Rez = x / y; break;
            
            default:
                printf("\nError!!!");
                return 0;
            }
            p->item.type = 0;
            p->item.val = Rez;
            push(pStek, p); // Результат операции в стек
        }
    }
    printf("\nRez=%f\n", pStek->item.val); // Печатаем результат, он на вершине стека
    system("pause");
 
    return 0;
}