c语言竟赛试题.doc

C语言竞赛试题1.分数变小数 写出一个程序，接受一个以N/D的形式输入的分数，其中N为分子，D为分母，输出它的小数形式。假如它的小数形式存在循环 节，要将其用括号括起来。例如：1/3=.00000.表示为.(3)，又如41/333=.123123123.表示为.(123)。一些转化的例子：1/3=.(3)22/5=4.41/7=.(142857)3/8=.37545/46=.803(571428) 用上面的分数和11/59来测试你的程序。运行举例：ENTER N，D：171/7=.(142857)本题中，0=N=65535，0=Dword; (记录每次的余数和商) n,d:Word; q,Top:Word; (q为循环字节的位置)Procedure Init;Begin Write(ENTER N,D:); Readln(n,d);End;Procedure Cacl; (计算)Var i:Word;Begin Digit0:=n css.shtml target=_blank title = div视频教程div d; Left0:=n Mod d; Top:=0; q:=0; (初始化商和余数) While LeftTop 0 Do (余数不为0则循环) Begin Inc(Top); DigitTop:=(LeftTop-1*10)Div d; LeftTop:=(LeftTop-1*10)Mod d; For i:=0 To Top-1 Do If LeftTop=Lefti Then Begin q:=i+1; Exit; (假如出现循环节则退出) End; End;End;Procedure Print;Var i:Word;Begin Write(n,d,=); If(Digit00 Then Write(Digit0); If Top0 Then Write(.); For(i:=1 To Top Do Begin If i=q Then Write(); Write(Digiti); End; If q0 Then Write(); Writein;End;Begin Init; 读入数据 Cacl; 计算 Print; 打印结果End.(3)运行结果ENTER N，D：11 5911/59=.(1864406779661016949152542372881355932203389830508474576271) 附：改写后的C源程序如下：#include#define Max 100 /*小数点后最大位数*/int LeftMax;int DigitMax; /*记录每次的余数和商*/int n,d,q,Top; /*q为循环字节的位置*/void Init(void) printf(ENTER N,D:); scanf(%d %d,&n,&d); void Cacl(void) /*计算*/ int i=0,j=1; Digit0=n/d; /*求商*/ Left0=n%d; /*求余数*/ Top=0; q=0; /*初始化商和余数*/ while(LeftTop!=0&j=1&Top100) Top+;/*取下一个数组元素*/ DigitTop=(LeftTop-1*10)/d;/*求商*/ LeftTop=(int)(LeftTop-1*10)%d;/*求余数*/ for(i=0;i0) printf(.); for(i=1;i0) printf(); void main(void) Init();/*读入数据*/ Cacl(); /*计算*/ Print(); /*打印结果*/2.质数竖式 下面的竖式是一个乘法运算问题，它的每个号可以代入一个数字，这个数字属于一个特定的由N个数字组成的集合。假如这个集合是2，3，5，7，那么这个竖式称作“质数竖式”。* * * X * * - * * * * * * - * * * * 写一个程序找出对应于集合1，2，3，4，5，6，7，8，9的任意一个子集的所有竖式。用集合2，3，4，6，8和质数集合2，3，5，7来测试你的程序。运行举例：ENTERASETOFDIGITS:23468 2 2 2 X 2 2 - 4 4 4 4 4 4 - 4 8 8 4 The number of unique solutions=4 (1)解题思路 此题比较简单,只需对两个乘数进行循环，然后判定竖式中的数是否满足要求，需注重的一点是：乘积可能超出整型的范围，需要用长整型来计算。(2)参考程序Var num:Set Of Byte; 数字集合 n:视频教程word; 竖式的数目procedure Init; 读入数据并初始化Var st:String; i:Word;Begin Write(Enter a set of digits:); Readln(St); 以字符串的形式读入 Num:=; For i:=1 To Length(st) Do include(Num,Ord(Sti-Ord(0); n:=0;End;Function Ok(x:Longint):Booklean; 判定x的每位数是否都在集合中Begin Ok:=False; While x0 Do Begin If Not(x Mod 10)In Num)Then Exit; x:=x css.shtml target=_blank title = div视频教程div 10; End; Ok:=True;End;Procedure Cacl; 找出满足条件的竖式 Var i,j:Longint; Begin For i:=111 To 999 Do If Ok(i) Then For j:=11 To 99 Do 对两个乘数进行循环 If Ok(j) And Ok(j Mod 10)*i)And Ok(j Div 10)*i) And Ok(i*j) Then Begin Inc(n); Writeln(); Writeln(i:6); Writeln(X,j:4); Writeln(-); Writeln(i Mod 10)*i:6); Writeln(j Mod 10)*i:6); Writeln(j Div 10)*i:5); Writeln(-); Write(i*j:6); End; Writeln(The number of unique solutions=,n); End; Begin Ini