请各位编程高手帮我解决3道QBASIC题目,谢谢!!!
来源:百度知道 编辑:UC知道 时间:2024/06/03 11:32:12
1.打印1~1000内的所有偶数
2.输入正整数N,请输出N的所有因子
例:输入24 输出:1,2,3,4,6,8,12,24
3.根据下面的公式,计算100项,求圆周率的近似值
派/4=1-1/3+1/5-1/7+……
请用if……then和for……to,next语言编写,实在没办法也可以用其他的,再次表示感谢!!
2.输入正整数N,请输出N的所有因子
例:输入24 输出:1,2,3,4,6,8,12,24
3.根据下面的公式,计算100项,求圆周率的近似值
派/4=1-1/3+1/5-1/7+……
请用if……then和for……to,next语言编写,实在没办法也可以用其他的,再次表示感谢!!
1.CLS
S=0
FOR I = 1 TO 1000
IF I MOD 2 = 0 THEN PRINT I
NEXT I
END
2.CLS
DO
INPUT "",N
LOOP UNTIL INT(N)=N
FOR I = 1 TO N
IF N / I = N \ I THEN PRINT I
NEXT I
END
3.CLS
DIM SHARED N AS BOUBLE
X = 1
N = 0
FOR I = 1 TO 100
IF I MOD 2 = 0 THEN N = N - 1 / ( 2 * I - 1 ) ELSE N = N + 1 / ( 2 * I )
NEXT I
N = N * 4
PRINT N
END
很高兴帮助你!
1、
FOR I=1 TO 1000
IF I MOD 2 =0 THEN PRINT I;
NEXT I
2、
INPUT N
FOR I=1 TO N
IF N MOD I = 0 THEN PRINT I;
NEXT I
3、
我看不懂,你可以看二楼说的,本人在此深表歉意。