回 帖 发 新 帖 刷新版面

主题:大家来做!

【7】编程求满足右式的X的最大值。1*2+2*3+…+(X-1)*X<=N。N由键盘输入,输出满足条件的最大值X。例如,
输入:3    输出:2
输入:8    输出:3
输入:15   输出:3
输入:20   输出:4
【8】输入两个正整数X、Y,而且X、Y均大于等于1,小于1000000000000000000000000000000。使X在左,Y在右,组成一个新的数Z。如:X=32,Y=5,则Z=325;若X=4,Y=35,则Z=435。试编程输出Z的值。

【11】分母<=N的所有最简真分数的递增序列称为N阶的Faray级数,如5阶的Faray级数为:0,1/5,1/4,1/3,2/5,1/2,3/5,2/3,3/4,4/5。
     编程,输入N(N<=10),输出N阶的Faray级数。
     例如,输入:5   输出:0,1/5,1/4,1/3,2/5,1/2,3/5,2/3,3/4,4/5


【12】根据Nocomachns定理,任何一个正整数n的立方一定可以分解成n个连续的奇数的和,例如:
  13=1
  23=3+5
  33=7+9+11
  43=13+15+17+19
从键盘输入一个正整数n(n<=100),输出其分解式。
如输入:4
则输出: 13+15+17+19
[问题描述]:将所有的分母小于N的真分数(分子小于分母,数值小于1)从大到小排列出来后,例如当N=4时,所有的真分数有1/4,1/3,1/2,2/3,3/4。其中第三个真分数为1/2,其分子为1,分母为2。编一个程序,对给定的N,求出第M个真分数的值。
  输入文件中第一行有一个数N,第二行为一个数字M(N <10^5,M<10^9)。
  输出文件中有两行,第一行为分子K1,第二行为分母K2。其中K1 和K2没有除1以外的公约数。
[输入样例]
4
3
[输出样例]
1
2


【15】统计N!末尾有多少个0。其中N!=1*2*3*…*N。方法是:我们只要统计N!有多少个因数10。由于10=5*2,因而只需统计有多少个因子5和2,在1~N的所有数中,5的因子个数比2的因子个数少。所以,只要统计1~N的所有数中共有多少个因数5就行了。(1≤N≤1000000)(说明:如果用高精度乘法解,速度很慢,而且超时会丢掉许多数据分。没有必要用高精度,根据题意统计1-N的所有数中,5的因子个数就OK了。)
分数的位置(normal)
【22】计算算术表达式的值(不使用圆括号,只限+、-、*、/混合运算)。
     如输入:3*6+48/12
     则输出:22


【23】任意输入一个正整数N,找一个正整数M,使得N*M的值各位数字均为0和1组成,输出满足条件的最小M。例如,
输入17
输出653   (因为17*653=11101)
输入9
输出12345679    (因为9*12345679=111111111)
保证输入的正整数N在双精度范围都有解。(有的无解,如输入99时超出精度范围,溢出)


回复列表 (共8个回复)

沙发

[color=0000FF]喂!!!!有没有人写[/color]

板凳


呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜,怎么没人!!!!!!!

3 楼

是太难了?
还是......

4 楼

8.
  CLS
1 INPUT "X,Y="; X, Y
  IF X < 1 OR X <> FIX(X) OR X > 1D+24 OR Y < 1 OR Y <> FIX(Y) OR Y > 1D+21 THEN 1
  X$ = STR$(X)
  Y$ = STR$(Y)
  A$ = MID$(X$, 2)
  B$ = MID$(Y$, 2)
  PRINT A$ + B$
  END


5 楼

11.
  CLS
1 INPUT "N="; N
  IF N < 1 OR N > 10 OR N <> FIX(N) THEN 1
  PRINT 0;
  FOR I = 1 TO N - 1
  FOR J = 2 TO N
  IF J = I OR I > J THEN 3
  IF J / I = J \ 2 THEN 3
  IF J <> 2 AND J / 2 <> J \ 2 THEN 4
  FOR K = 2 TO SQR(I)
  IF I / K = I \ K THEN 2
  NEXT K
4 PRINT ","; I; "/"; J;
3 NEXT J
2 NEXT I
  END
[em80][em80][em80][em80][em80]

6 楼

8。
CLS
DO
 INPUT X$,Y$
 X=VAL(X$)
 Y=VAL(Y$)
LOOP UNTIL X<=1000000000000000000000000000000# AND Y<=1000000000000000000000000000000# AND X>=1 AND Y>=1
PRINT X$;Y$
END

7 楼

7.
CLS
INPUT N
DO
 X=X+1
 M=M+(X-1)*X
LOOP UNTIL M>N
PRINT X-1
END

8 楼

8.
cls
input x$,y$
lx=len(x$)
ly=len (y$)
if lx>30 and ly >30 then print "no"
print x$+y$
end

可怜可怜我吧,给点分

我来回复

您尚未登录,请登录后再回复。点此登录或注册