Калькулятор - C++

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>
#include <ctype.h>
#include <assert.h>
 
int tok;
double tokval;
 
int next() {
    for (;;) {
        int c = getchar();
        if (c == EOF || strchr("+-*/^()\n", c) != NULL) return tok = c;
        if (isspace(c)) continue;
        if (isdigit(c) || c == '.') {
            ungetc(c, stdin);
            scanf(" %lf", &tokval);
            return tok = 'n';
        }
        fprintf(stderr, "Bad character: %c\n", c); abort();
    }
}
 
void skip(int t) { assert(tok == t); next(); }
 
double expr();
 
 
double numpar() {
    if (tok == 'n') { double x = tokval; skip('n'); return x; }
    skip('('); double x = expr(); skip(')'); return x;
}
 
 
double factor() {
    double x = numpar();
    if (tok == '^') { skip('^'); x = pow(x, factor()); }
    return x;
}
 
 
double term() {
    double x = factor();
    for (;;) {
        if (tok == '*') { skip('*'); x *= factor(); }
        else if (tok == '/') { skip('/'); x /= factor(); }
        else return x;
    }
}
 
 
double expr() {
    double x = term();
    for (;;) {
        if (tok == '+') { skip('+'); x += term(); }
        else if (tok == '-') { skip('-'); x -= term(); }
        else return x;
    }
}
 
int main() {
    next();
    while (tok != EOF) {
        if (tok == '\n') { skip('\n'); continue; }
        printf("%.9g\n", expr());
    }
    return 0;
}

#include <iostream>
using namespace std;
struct node{
    node *l,*r;
    char val;
    node(node *ll,node *rr,char c):l(ll),r(rr),val(c){}
};
void print(node *t,int n)
{
    if (t)
    {
        print(t->r,n+1);
        for (int i=0;i<n;i++) cout << "  ";
        cout << t->val << '\n';
        print(t->l,n+1);
    }
}
void del(node *&t)
{
    if (t)
    {
        del(t->r);
        del(t->l);
        delete t;
    }
 
}
char lookahead;
int amount_of_errors=0;
void match(char c)
{
    if (lookahead==c)
    {
        cin.get(lookahead);
        while(lookahead==' '||lookahead=='\t')cin.get(lookahead);
    }
    else
    {
        cout << "\nsyntax error in " << lookahead << '\n';
        amount_of_errors++;
    }
}
node *scan()
{
    while(lookahead==' '||lookahead=='\t')cin.get(lookahead);
    if (isalpha(lookahead)||isdigit(lookahead))return new node(0,0,lookahead);
    else
    {
        cout << "\nsyntax error in " << lookahead << '\n';
        amount_of_errors++;
        return 0;
    }
}
node *expr();
node *factor()
{
    if (lookahead=='(')
    {
        match('(');node *t=expr(); match(')');
        return t;
    }
    else
    {
        node *t = scan();
        match(lookahead);
        return t;
    }
}
node *prim();
node *prim1()
{
    if (lookahead=='*')
    {
        match('*'); return prim();
    }
    else if (lookahead=='/')
    {
        match('/'); return prim();
    }
    else {}
}
node *prim()
{
    node *t1=factor();
    if (lookahead=='*' || lookahead=='/')
    {
        char c=lookahead;
        node *t2=prim1();
        return new node(t1,t2,c);
    }
    else return t1;
}
node *expr1()
{
    if (lookahead=='-')
    {
        match('-'); return expr();
    }
    else if (lookahead=='+')
    {
        match('+'); return expr();
    }
    else {}
}
node *expr()
{
    node *t1=prim();
    if (lookahead=='+' || lookahead=='-')
    {
        char c=lookahead;
        node *t2=expr1();
        return new node(t1,t2,c);
    }
    else return t1;
}
void super_print(node *t)
{
    if (t)
    {
        if (t->r)super_print(t->r);
        if (t->l)super_print(t->l);
 
        if (strchr("*+/-",t->val))
        {
            if (!strchr("*+/-",t->l->val) && !strchr("*+/-",t->r->val)) cout << t->l->val;
            cout << t->val;
            if (!strchr("*+/-",t->l->val)&& strchr("*+/-",t->r->val)) cout << t->l->val;
            if (!strchr("*+/-",t->r->val)) cout << t->r->val;
            cout << '>';
        }
    }
}
int main()
{
    node *root=0;
    match(lookahead);
    root=expr();
    if (amount_of_errors)
    {
        cout << "errors presents in tree constructing\n";
    }
    else
    {
        //print(root,0);
        super_print(root);
    }
    del(root);
    return 0;
}