这个程序写得比较乱,没好好整理.因为数字大于700的话就要超出屏幕了,所以就用科学表示方法了,其实程序有点浪费空间的,有些地方还可以改进的.
/*跳蚤侦探2003.9.26*/
#define N 3000
void pr1(int *num)/*科学方式输出阶层*/
{
int i,j;
for(i=0;;i++)
if(num!=0)
{
printf(“%d”,num);
printf(“.”);
for(j=i+1;j<=i+11;j++)
printf(“%d”,num[j]);
printf(“e+”);
printf(“%d\n”,N-i-1);
break;
}
}
void pr(int *num)/*输入结果*/
{int i,j;
for(i=0;;i++)
if(num!=0)
{
for(j=i;j<N;j++)
printf(“%d”,num[j]);
break;
}
printf(“\n”);
}
fun(int num[],int numx[],int x,int y)/*相乘结果函数*/
{int t[N],i,j,k,tt[N]={0};/*tt数组用来存放竖式的每一行*/
for(i=0;i<N;i++)/*用来反复乘第一行*/
{t=num;num=0;}
for(i=3;i>=3-y;i–)/*1位到3位的乘法*/
{
for(j=N-1;j>=N-x;j–)
tt[j+i-3]=numx*t[j];/*记录数式*/
for(j=N-1;j>=1;j–)/*这里其实可以用个变量来算每一行到第几位,这样可以节约时间*/
if(tt[j]>=10)
{
tt[j-1]+=tt[j]/10;
tt[j]=tt[j]%10;
}
for(j=0;j<N;j++)/*竖式相加得出最后乘出来的结果*/
{num[j]+=tt[j];tt[j]=0;}
}
for(i=N-1;i>=N-x;i–)/*结果进位*/
if(num>=10)
{
num[i-1]+=num/10;
num=num%10;
}
}
main()
{int num[N]={0},numx[4]={0},i,x,y;
int jx,jy=0;
clrscr();
printf(“please input n: “);
scanf(“%d”,&jx);
num[N-1]=1;/*一直用来乘的变量初始值*/
while(1)
{
jy++;
numx[3]++;
if(numx[3]==10)
{numx[3]=0;numx[2]++;}
if(numx[2]==10)/*个位数进位*/
{numx[2]=0;numx[1]++;}
if(numx[1]==10)/*十位数进位*/
{numx[1]=0;numx[0]++;}
for(i=0;i<N;i++)
if(num!=0)
break;
x=N-i;/*求结果的位数*/
for(i=0;i<4;i++)
if(numx!=0)
break;
y=4-i;/*求阶层的位数*/
fun(num,numx,x,y);/*传递过去的两个数,x是结果的位数,y是阶层的位数*/
if(jy==jx)/*阶层大小的判断*/
break;
}
printf(“%d!=”,jx);/*输出结果*/
if(jx<=700)
pr(num);
else
pr1(num);
getch();
}
-
近期文章
近期评论
- coolker 发表在《打造最快的Hash表》
- struggle 发表在《提供C语言教学课件(适用于初学者)》
- zhanghaibo 发表在《提供C语言教学课件(适用于初学者)》
- zhanghaibo 发表在《提供C语言教学课件(适用于初学者)》
- diys 发表在《C语言编程宝典(王大刚) 1.1 C 语言的产生与发展》
文章归档
- 2022 年十月
- 2014 年一月
- 2013 年十二月
- 2012 年十一月
- 2012 年七月
- 2012 年六月
- 2012 年五月
- 2012 年四月
- 2012 年三月
- 2012 年二月
- 2011 年十二月
- 2011 年十月
- 2011 年九月
- 2011 年八月
- 2011 年七月
- 2011 年六月
- 2011 年五月
- 2011 年四月
- 2011 年三月
- 2011 年二月
- 2011 年一月
- 2010 年十二月
- 2010 年十一月
- 2010 年十月
- 2010 年九月
- 2010 年八月
- 2010 年七月
- 2010 年六月
- 2010 年五月
- 2010 年四月
- 2010 年三月
- 2010 年二月
- 2010 年一月
- 2009 年十二月
- 2009 年十一月
- 2009 年十月
- 2009 年九月
- 2009 年八月
- 2009 年七月
- 2009 年六月
- 2009 年五月
- 2009 年四月
- 2009 年三月
- 2009 年二月
- 2009 年一月
- 2008 年十二月
- 2008 年十一月
- 2008 年十月
- 2008 年九月
- 2008 年八月
- 2008 年七月
- 2008 年六月
- 2008 年五月
- 2008 年四月
- 2008 年三月
- 2008 年二月
- 2008 年一月
- 2007 年十二月
- 2007 年十一月
- 2007 年十月
- 2007 年九月
- 2007 年八月
- 2007 年七月
- 2007 年六月
- 2007 年三月
- 2007 年二月
- 2007 年一月
- 2006 年十二月
- 2006 年十一月
- 2006 年十月
- 2006 年九月
- 2006 年八月
- 2006 年七月
- 2006 年六月
- 2006 年五月
- 2006 年四月
- 2006 年三月
- 2006 年二月
- 2006 年一月
- 2005 年十二月
- 2005 年十一月
分类目录
功能