67
#define ERR 5
#define OK 6
#include <stdio.h>
int status;
double result,sig,scale;
int sign(int c)/*处理数的符号函数*/
{
if(c=='-')/*若为负号,置负数标记*/
sig=-sig;
}
int integer(int c)/*转换整数部分,转换一位整数位*/
{
result=result*10.0+c-'0';
}
int decimal(int c)/*转换小数部分,转换一位小数位*/
{
result+=(c-'0')*scale;
scale/=10.0;
}
/*状态表*/
int statbl[ ][4]={{ 1,2,3,ERR},/*0*/
{ERR,2,3,ERR},/*1*/
{OK,2,4,OK},/*2*/
{ERR,4,ERR,ERR},/*3*/
{OK,4,OK,OK}};/*4*/
/*转换函数表*/
int(*funtbl[ ][4])( )={{sign,integer,NULL,NULL},
{NULL,integer,NULL,NULL},
{NULL,integer,NULL,NULL},
{NULL,decimal,NULL,NULL},
{NULL,decimal,NULL,NULL}};
int readreal(double *dp)
{
int c,ckind;
sig=1.0;
result=0.0;
scale=0.1;
while((c=getchar( ))==' '||c=='\n'||c=='\t');/*跳过前导空白符*/
status=0;/*置初始状态*/
for(;;)
{
/*分类当前字符*/
if(c=='+'||c=='-') ckind=0;/*数的符号字符*/
else if(c>='0'&&c<='9') ckind=1;/*数字符*/
else if(c=='.') ckind=2;/*小数点*/
else ckind=3;/* 其它字符 */
if(funtbl[status][ckind])/* 如有转换函数 */
(*funtbl[status][ckind])(c);/* 执行相应的函数 */
status=statbl[status][ckind];/*设置新的状态*/
if(status==ERR||status==OK)break;/* 结束:出错或成功 */
c=getchar();
}
ungetc(c,stdin); /* 归还数德结束符 */
if(status==OK)
{
*dp=result *sig;/* 读入数按指针参数赋给相应变量 */
return 1;
}
return -1; /* 出错返回 */
}
main()
{
double x;
clrscr();
printf("\nPlease input real numbers (use nonreal char to end input):\n");
while(readreal(&x)==1)
printf("The real number you input is: %f\n",x);
printf("\nYou have inputted nonreal char.\n Press any key to quit...\n");
getch();
}
68
#define N 80
edit(char *s)
{
int i,sp,w,inw,v,r;
char buf[N],*str;
for(inw=sp=w=i=0;s[i];i++)
{
if(s[i]==' ')
{ /* 统计空白个数*/
sp++;
inw=0; /* 置空白符状态*/
}
else if(!inw)
{
w++; /* 统计单字个数*/
inw=1; /* 置单字状态*/
}
}
if(w<=1)
return; /* 单字数不超过1, 不排版 */
v=sp/(w-1); /* 每个间隔平均空白符 */
r=sp%(w-1); /* 多余的空白符 */
strcpy(buf,s);
for(str=buf;;)
{
while(*str==' ')str++; /* 掠过空白符 */
for(;*str&&*str!=' ';) /* 复制单字 */
*s++=*str++;
if(--w==0)
return; /* 全部单字复制完毕,返回 */
for(i=0;i<v;i++)
*s++=' '; /* 插入间隔空白符 */
if(r)
{
*s++=' '; /* 插入一个多余空白符 */
r--;
}
}
}
char buff[N];
main() /* 用于测试edit函数 */
{
clrscr();
puts("This is a typeset program!\nPlease input a character line:\n");
gets(buff);
edit(buff);
printf("\nThe character line after typeset is:\n\n%s\n",buff);
puts("\n Press any key to quit...\n ");
getch();
}
69
#define N 20
char w[N];
perm(int n, char *s)
{
char s1[N];
int i;
if(n<1)
printf("%s\n",w); /* 一个排列生成输出 */
else
{
strcpy(s1,s); /* 保存本层次可使用的字符 */
for(i=0;*(s1+i);i++) /* 依次选本层次可用字符 */
{
*(w+n-1)=*(s1+i);/* 将选用字符填入正在生成的字符排列中 */
*(s1+i)=*s1;
*s1=*(w+n-1);
perm(n-1,s1+1); /* 递归 */
}
}
}
main()
{
int n=2;
char s[N];
w[n]='\0';
clrscr();
printf("This is a char permutation program!\nPlease input a string:\n");
scanf("%s",s);
puts("\nPlease input the char number of permuted:\n");
scanf("%d",&n);
puts("The permuted chars are:\n");
perm(n,s);
puts("\nPress any key to quit...");
getch();
}