回 帖 发 新 帖 刷新版面

主题:编程题

1、数学黑洞6174
    已知:一个任意的四位正整数。将数字重新组合成一个最大的数和最小的数相减,重复这个过程,最多七步,必得6174。即:7641-1467=6174。将永远出不来。
    求证:所有四位数数字(全相同的除外),均能得到6174。输出掉进黑洞的步数。

 

2、输入10个学生的姓名,编一程序将它们按字母的顺序排列。

 

3、输入一个十进制数,将其转换成二进制数。

 

4、将字符串中的大写字母转换成小写字母,并反相输出。

     如输入'abcABC234!$',输出为'$!432cbacba'

 

5、从屏幕上输入一个多位自然数,然后将各位重新排列成一个仍由原来的那些数字组成的位数不变的最大数和最小数。

 

回复列表 (共35个回复)

沙发

世界人民无语了……

板凳

4.cls:print "$!"+"CBA"+"cba";" ":end

3 楼

呵呵!我只是开个玩笑!
你的这些题目挺怪的!
从哪弄的!佩服佩服!

4 楼

2.cls
dim a($10)
for i=1 to 10
 inut a$(i)
next i
do
 f=0
 for i=1 to 9
  if a$(i)>a$(i+1) then
  swap a$(i),a$(i+1)
  f=1 
  end if
 next i
loop until f=0
for i=1 to 10
 print a$(i);
next i
end

5 楼

4
cls
input a$
l=len(a$):dim a(l)
for i=1 to l
 a#(i)=mid$(a$,i,1)
next i
for i=1 to l
 if a$(i)<( ) and a$(i)>( ) then a$(i)=srt$(asc(a$(i)))
next i
for i=l to 1 step -1
 print a$(i)
next i
end

6 楼

上一个打括号的自己填,我没 什么ACLll 的编码排序

7 楼

呵呵.不用你那么麻烦的

8 楼

最后一题
CLS
INPUT A$:L=LEN(A$):DIM A(L)
FOR I=1 TO l
 a(i)=VAL(MID$(A$,I,1)
NEXT I
DO
 F=0
 FOR I=1 TO L-1
  IF A$(I)<A$(I+1) THEN SWAP A(I),A(I+1):F=1
 NEXT I
LOOP UNTIL F=0
FOR I=1 TO L
 PRINT LTRIM$(STR$(A(I)));
NEXT I:PRINT 
FOR I=L TO 1 STEP -1
 PRINT LTRIM$(STR$(A(I)));
NEXT I
END

9 楼

邱宇璐,最后一题不能这样,万一带有“0”怎么办?那最小的数不就不能是四位数了吗

10 楼

切,智商251都解不出来。。。

我来回复

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