二、 初級(jí)編程
數(shù)學(xué)計(jì)算
(1)輸入長(zhǎng)方形的長(zhǎng)、寬,計(jì)算出它的周長(zhǎng)
CLS
INPUT A,B
S=(A+B)*2
RPINT“S=”;LTRIM$(STR$(S))
END
(2)輸入數(shù)字,判斷它是否是自然數(shù),且能被N整除
CLS
2 INPUT N
IF N=FIX(N) AND N MOD N = 0 THEN
PRINT “YES!”
ELSE
PRINT “NO!”
END IF
END
(3)輸入N個(gè)數(shù),求其中的數(shù)
CLS
INPUT N
FOR I = 1 TO N STEP 1
INPUT A(I)
NEXT I
FOR J = 1 TO N STEP 1
IF A(J)> MAX THEN MAX=A(J)
NEXT J
PRINT “MAX=”;MAX
END
(4)求1x2+2x3+3x4+……+9x10的值
CLS
S=0
FOR I = 1 TO 9
S=S+I*(I+1)
NEXT I
PRINT “1*2+2*3+3*4+……+9*10=”;S
END
(5)雞兔同籠
CLS
INPUT T,J
FOR X=1 TO T
IF 2*X+4*(T-X)=J THEN 1
NEXT X
1 PRINT “JI=”;X,“TU=”;T-X
END
(6)等差數(shù)列求和
A=首項(xiàng) B=末項(xiàng) X=項(xiàng)數(shù) G=公差
① CLS
INPUT A,B,G
FOR I = A TO B STEP G
S=S+I
NEXT I
PRINT A;“+”;A+G;“+”;“……”;“+”;B;“=”;S
END
② CLS
INPUT A,B,X
S=(A+B)*X/2
PRINT S
END
(注意:方法②只適用于公差為1的等差數(shù)列!)
打印圖形
(1)打印九九乘法口訣
CLS
FOR I=1 TO 9
FOR J= 1 TO I
PRINT I;“*”;J;“=”;I*J
NEXT J
NEXT I
END
(2)打印圖形Ⅰ
CLS
INPUT N
IF N>=1 AND N<=9 AND N=FIX(N)
FOR I = 1 TO N
FOR J = 1 TO I
PRINT “*”;
NEXT J
PRINT
NEXT I
END
運(yùn)行結(jié)果 N=5
*
* *
* * *
* * * *
* * * * *
數(shù)學(xué)計(jì)算
(1)輸入長(zhǎng)方形的長(zhǎng)、寬,計(jì)算出它的周長(zhǎng)
CLS
INPUT A,B
S=(A+B)*2
RPINT“S=”;LTRIM$(STR$(S))
END
(2)輸入數(shù)字,判斷它是否是自然數(shù),且能被N整除
CLS
2 INPUT N
IF N=FIX(N) AND N MOD N = 0 THEN
PRINT “YES!”
ELSE
PRINT “NO!”
END IF
END
(3)輸入N個(gè)數(shù),求其中的數(shù)
CLS
INPUT N
FOR I = 1 TO N STEP 1
INPUT A(I)
NEXT I
FOR J = 1 TO N STEP 1
IF A(J)> MAX THEN MAX=A(J)
NEXT J
PRINT “MAX=”;MAX
END
(4)求1x2+2x3+3x4+……+9x10的值
CLS
S=0
FOR I = 1 TO 9
S=S+I*(I+1)
NEXT I
PRINT “1*2+2*3+3*4+……+9*10=”;S
END
(5)雞兔同籠
CLS
INPUT T,J
FOR X=1 TO T
IF 2*X+4*(T-X)=J THEN 1
NEXT X
1 PRINT “JI=”;X,“TU=”;T-X
END
(6)等差數(shù)列求和
A=首項(xiàng) B=末項(xiàng) X=項(xiàng)數(shù) G=公差
① CLS
INPUT A,B,G
FOR I = A TO B STEP G
S=S+I
NEXT I
PRINT A;“+”;A+G;“+”;“……”;“+”;B;“=”;S
END
② CLS
INPUT A,B,X
S=(A+B)*X/2
PRINT S
END
(注意:方法②只適用于公差為1的等差數(shù)列!)
打印圖形
(1)打印九九乘法口訣
CLS
FOR I=1 TO 9
FOR J= 1 TO I
PRINT I;“*”;J;“=”;I*J
NEXT J
NEXT I
END
(2)打印圖形Ⅰ
CLS
INPUT N
IF N>=1 AND N<=9 AND N=FIX(N)
FOR I = 1 TO N
FOR J = 1 TO I
PRINT “*”;
NEXT J
NEXT I
END
運(yùn)行結(jié)果 N=5
*
* *
* * *
* * * *
* * * * *