主题：急求3道题，很简单那种
bngdm
[专家分：0] 发布于 2007-10-16 10:35:00
1.S=1+1/2+1/3+1/4+....1/1000
2.已知三个数，求最大的数为多少？（任意输入3个数）
3.打印如下图：
******
******
******
******
有哪位哥哥姐姐能帮帮忙不？谢谢~！！
回复列表 （共27个回复）
11 楼
天天和和 [专家分：1420] 发布于 2009-02-07 13:29:00
[quote]1.
CLS
S = 1
FOR I = 2 TO 1000
S = S + 1 / I
NEXT I
PRINT S
END
2.
CLS
INPUT A, B, C
IF A > B AND A > C THEN PRINT A
IF B > A AND B > C THEN PRINT B
IF C > A AND C > B THEN PRINT C
END
3.
CLS
FOR I = 1 TO 4
PRINT TAB(I); STRING$(6, "*")
NEXT I
END[/quote]
不错嘛！hxy
12 楼
1054122 [专家分：750] 发布于 2009-02-08 16:57:00
第一题
CLS
s = 1
FOR i = 2 TO 1000
s = s + 1 / i
NEXT i
PRINT s
END
第二题
CLS
DIM a(3)
FOR i = 1 TO 3
INPUT a(i)
NEXT i
FOR i = 1 TO 3 - 1
FOR j = 1+1 TO 3
IF a(j) < a(j + 1) THEN
SWAP a(j), a(j + 1)
END IF
NEXT j
NEXT i
PRINT a(1)
END
第三题
CLS
FOR i = 1 TO 4
PRINT SPC(i - 1);
FOR j = 1 TO 6
PRINT "*";
NEXT j
PRINT
NEXT i
13 楼
耦de秘滵 [专家分：0] 发布于 2009-02-14 18:47:00
12楼的，我说，你是不是会的太多了啊？你用的那你什么？冒泡排序么？那你也用错了啊，再说了，怎么会有end if ？这是FOXBASE里的好不好？
14 楼
耦de秘滵 [专家分：0] 发布于 2009-02-14 18:49:00
11楼的，问一下哦，STRING$是什么函数啊？
15 楼
天天和和 [专家分：1420] 发布于 2009-03-05 23:22:00
是生成字串函数（我说的不是太准却，你去查查书）
16 楼
死寂亡灵 [专家分：30] 发布于 2009-03-14 07:26:00
INPUT"inputa,b,c:",a,b,c
big=a
IFb＞bigTHENbig=b
IFc＞bigTHENbig=c
PRINT"big=";big
END
17 楼
oqoq [专家分：130] 发布于 2009-05-16 13:11:00
2.input a(1),a(2),a(3)
for i=1 to 2
for j=i+1 to 3
if a(i)<a(j) then swap a(i),a(j)
next j,i
print a(1)
这招比较通俗易懂。（选择法）
18 楼
FFKK [专家分：1610] 发布于 2009-07-19 07:56:00
2
cls
input a,b,c
if a>b then max=a else max=b
if max> c then ? max else ? c
end
19 楼
gewenbo [专家分：450] 发布于 2009-07-20 13:13:00
1.
dim s as double
s=1
for i=2 to 1000
s=s+1/i
next
print s
end
2.
input a,b,c
max=a
if b>max then max=b
if c>max then max=c
print max
end
3.
FOR i = 1 TO 4
PRINT TAB(i); STRING$(6, "*")
NEXT i
END
20 楼
mickey980522 [专家分：150] 发布于 2009-07-24 16:37:00
第一题
CLS
S=0
FOR I=1 TO 1000
S=S+1/I
NEXT I
PRINT S
END
第二题
CLS
INPUT A,B,C
MAX=A MAX用来存放最大数.
IF B>MAX THEN MAX=B
IF C>MAX THEN MAX=C
PRINT MAX
END
第三题.
CLS
INPUT N 打印N行N列的
FOR I=1 TO N
PRINT TAB(I);
FOR J=1 TO N
PRINT "*";
NEXT J
PRINT
NEXT I
END
[em3][em3][em3][em3]
我来回复
您所在位置：