主题：急求3道题，很简单那种
bngdm
[专家分：0] 发布于 2007-10-16 10:35:00
1.S=1+1/2+1/3+1/4+....1/1000
2.已知三个数，求最大的数为多少？（任意输入3个数）
3.打印如下图：
******
******
******
******
有哪位哥哥姐姐能帮帮忙不？谢谢~！！
回复列表 （共27个回复）
沙发
秋~~风 [专家分：20] 发布于 2007-10-16 10:43:00
CLS
FOR I=1 TO 1000
S=S +1/I
NEXT I
PRINT "S=";S
END
板凳
秋~~风 [专家分：20] 发布于 2007-10-16 10:46:00
CLS
INPTU X,Y,Z
IF X<Y THEN SWAP(X,Y)
IF X<Z THEN SWAP(X,Z)
PRINT X
END
3 楼
秋~~风 [专家分：20] 发布于 2007-10-16 10:49:00
LCS
FOR I=1 TO 4
PRINT TAB(I);"******"
ENXT I
END
4 楼
bngdm [专家分：0] 发布于 2007-10-16 10:50:00
谢谢楼上的哥哥了^^
5 楼
秋~~风 [专家分：20] 发布于 2007-10-16 10:52:00
不谢!~
6 楼
秋~~风 [专家分：20] 发布于 2007-10-16 10:52:00
咱两一样大!
7 楼
bngdm [专家分：0] 发布于 2007-10-16 10:55:00
呵呵 是啊 不过你比我大几个月
8 楼
我的电脑 [专家分：990] 发布于 2007-10-19 17:49:00
1.S=1+1/2+1/3+1/4+....1/1000
CLS
S=1
FOR I=1 TO 1000
S=S+1/I
NEXT I
END
2.已知三个数，求最大的数为多少？（任意输入3个数）
CLS
INPUT A,B,C
IF A>B THEN X=A
IF B>C THEN X=B
IF A>C THEN X=A
PRINT X
END
3.打印如下图：
******
******
******
******
CLS
INPUT N
FOR I=1 TO N:PRINT STRING$(6,"*"):NEXT I
END
9 楼
hxy_anhui [专家分：320] 发布于 2009-01-29 19:41:00
楼上的第一、二题有误！
10 楼
hxy_anhui [专家分：320] 发布于 2009-01-29 19:43:00
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
我来回复
您所在位置：