文章标题

来源：互联网发布：php acl访问控制列表编辑：程序博客网时间：2024/06/05 23:07
代码转自 C程序设计语言
#include <stdio.h>#include <stdlib.h>    /* 为了使用atof（）函数 */#define MAXOP 100    /* 操作数或运算符的最大长度 */#define NUMBER '0'    /* 标识找到一个数 */#define MAXLINE 100    /* 最大输入行长度 */int gettop(char []);void push(double);double pop(void);/* 逆波兰计算器 */int reverse_poland_counter(){    int type;    double op2;    char s[MAXOP];    while ((type = gettop(s)) != EOF) {        switch (type) {        case NUMBER:            push(atof(s));            break;        case '+':            push(pop() + pop());            break;        case '*':            push(pop() * pop());            break;        case '-':            op2 = pop();            push(pop() - op2);            break;        case '/':            op2 = pop();            if (op2 != 0.0)                push(pop() / op2);            else                printf("error: zero divisor!\n");            break;        case '\n':            printf("\t%.8g\n", pop());            break;        default:            printf("error: unknown command %s \n", s);            break;        }    }    return 0;}#define MAXVAL 100    /* 栈val的最大深度 */int sp = 0;    /* 下一个空闲栈位置 */double val[MAXVAL];    /* 值栈 *//* push函数：把f压入到值栈中 */void push(double f){    if (sp < MAXVAL)        val[sp++] = f;    else        printf("error: stack full , can't push %g\n", f);}/* pop函数：弹出并返回栈顶的值 */double pop(void){    if (sp > 0)        return val[--sp];    else {        printf("error: stack empty \n");        return 0.0;    }}#include <ctype.h>int getch(void);void ungetch(int);/* getop函数：获取下一个运算符或数值操作数 */int gettop(char s[]){    int i, c;    while ((s[0] = c = getch()) == ' ' || c == '\t')        ;    s[1] = '\0';    if (!isdigit(c) && c != '.')        return c;    /* 不是数（或小数） */    i = 0;    if (isdigit(c))    /* 收集整数部分 */        while (isdigit(s[++i] = c = getch()))            ;    if (c == '.')    /* 收集小数部分 */        while (isdigit(s[++i] = c = getch()))            ;    s[i] = '\0';    if (c != EOF)        ungetch(c);    return NUMBER;}#define BUFSIZE 100char buf[BUFSIZE];    /* 用于ungetch函数的缓冲区 */int bufp = 0;    /* buf中下一个空闲位置 *//* 取一个字符（可能是压回的字符） */int getch(void)    {    return (bufp > 0) ? buf[--bufp] : getchar();}/* 把字符压回到输入中 */void ungetch(int c){    if (bufp >= BUFSIZE)        printf("ungetch: too many characters \n");    else        buf[bufp++] = c;}int main(){    reverse_poland_counter();    return 0;}/* 逆波兰计算器 ending */int getline(char line[], int max);int strindex(char source[], char searchfor[]);int strrindex_first(char source[], char searchfor[]);int strrindex_second(char source[], char searchfor[]);char pattern[] = "ould";    /* 待查找的模式 */ /* 找出所有与模式匹配的行 */int find_line_match_mode(void){    char line[MAXLINE];    int found = 0;    int pos;    while (getline(line, MAXLINE))         if ((pos = strrindex_second(line, pattern)) >= 0) {            printf("%s", line);            printf("the pos is : %d\n\n", pos);            found++;        }    return found;    }/* strindex函数： 返回t(=pattern)在s中的位置， 若未找到则返回-1 */int strindex(char s[], char t[]){    int i, j, k;    for (i = 0; s[i] != '\0'; i++) {        for (j = i, k = 0;t[k] != '\0' && s[j] == t[k]; j++, k++)            ;        if (k > 0 && t[k] == '\0')            return i;    }    return -1;}/* strrindex函数： 返回t(=pattern)在s中的位置（最右边出现的位置）， 若未找到则返回-1 *//* strrindex: returuns rightmost index of t in s, -1 if none */int strrindex_first(char s[], char t[]){    int i, j, k, pos;    pos = -1;    for (i = 0; s[i] != '\0'; i++) {        for (j = i, k = 0;t[k] != '\0' && s[j] == t[k]; j++, k++)            ;        if (k > 0 && t[k] == '\0')            pos = i;    }    return pos;}#include <string.h>int strrindex_second(char s[], char t[]){    int i, j, k;    for (i = strlen(s) - strlen(t); i >= 0; i--) {        for (j = i, k = 0; t[k] != '\0' && s[j] == t[k]; j++, k++)            ;        if (k > 0 && t[k] == '\0')            return i;    }    return -1;}#include <ctype.h>/* atof函数： 把字符串s转换为相应的双精度浮点数 */double atof(char s[]){    double val, power;    int i, sign;    for (i = 0; isspace(s[i]); i++)        ;    sign = (s[i] == '-') ? -1 : 1;    if (s[i] == '+' || s[i] == '-')        i++;    for (val = 0.0; isdigit(s[i]); i++)        val = 10.0 * val + (s[i] - '0');    if (s[i] == '.')        i++;    for (power = 1.0; isdigit(s[i]); i++) {        val = 10.0 * val + (s[i] - '0');        power *= 10.0;    }    return sign * val / power;}//#define MAXLINE 100    /* 最大输入行长度 *//* getline 函数： 将行保存到s中，并返回该行的长度 */int getline(char s[], int lim){    int c, i;    i = 0;    while (--lim > 0 && (c=getchar()) != EOF && c!= '\n')        s[i++] = c;    if (c == '\n')        s[i++] = c;    s[i] = '\0';    return i;}double atof_modified(char s[]){    double val, power;    int i, sign, exp;    for (i = 0; isspace(s[i]); i++)        ;    sign = (s[i] == '-') ? -1 : 1;    if (s[i] == '+' || s[i] == '-')        i++;    for (val = 0.0; isdigit(s[i]); i++)        val = 10.0 * val + (s[i] - '0');    if (s[i] == '.')        i++;    for (power = 1.0; isdigit(s[i]); i++) {        val = 10.0 * val + (s[i] - '0');        power *= 10.0;    }    val = sign * val / power;    /* 此处已算出除指数外的数值 */    sign = 0;/* 以防e(E)后面出现+/-以外的字符 */    if ((s[i] == 'e' || s[i] == 'E')) {             if(s[i + 1] == '+' || s[i + 1] == '-')            sign = (s[++i] == '-') ? -1 : 1;            for (exp = 0, i++; isdigit(s[i]); i++)            exp = 10* exp + s[i] - '0';        if (sign == 1)            while (exp-- > 0)                val *= 10;        else if (sign == -1)            while (exp-- > 0)                val /= 10;    }           return val;}int main_copy(){    char line[MAXLINE];    double sum;    sum = 0;    while (getline(line, MAXLINE) > 0)        printf("\t%g\n", atof_modified(line));    return 0;}
0 0