REM ' . ( , ), , . .
CLS . , .
END . .
QBasic , :
"+" "-" ;
"*" "/" ;
"^" ;
.
QBasic :
SQR(X) ;
ABS(X) ( ) ;
SIN(X); COS(X); TAN(X) , ;
ATN(X) ;
INT(X) ( );
RND(X) ;
y MOD x y x.
LOG(X) ( e=2.71828);
EXP(X) () .
() PRINT. :
PRINT X X.
PRINT " : V="; V; "/" . ";" ",". PRINT . QBasic 4.5 PRINT "?", Enter, PRINT . .
INPUT
: INPUT X X. "?" ( ). INPUT " ="; X - , . "," ";", "?" , .
1: .
CLS
' .
INPUT " a: a=", a
INPUT " b: b=", b
INPUT " c: c=", c
p = (a + b + c) / 2
S = SQR(p * (p - a) * (p - b) * (p - c))
PRINT ": : S="; S
2 ( ). , .
CLS
INPUT " : ", f$
INPUT " : ", i$
|
|
INPUT " : ", k$
PRINT f$; " "; i$; ", "; k$
END
GOTO N, N . N , , . . , .
:
.......
GOTO 10
.......
10 PRINT ""
.......
IF...THEN...ELSE (......):
IF <> THEN < > ELSE < >
, , THEN, , ELSE. ELSE . , IF...THEN. : = , <> , > , < , >= , <= . ( ) AND () OR (): 1 AND ( OR) 2...
.
:
CLS
INPUT " : M="; M
IF M = 1147 THEN PRINT " !" ELSE PRINT " !"
CLS
PRINT " y=1/(x-2) x"
INPUT " x=", x
IF x = 2 THEN PRINT " x=2 !": END
y = 1 / (x - 2)
PRINT "y="; y
- : IF <> GOTO N ELSE < > N - . , N, , ELSE. ELSE . , IF...GOTO.
CLS
INPUT " , 1. , . n=", n
IF n = 1 THEN GOTO 10 ELSE GOTO 20
10 PRINT " !": END
20 PRINT " !"
FOR...TO...NEXT... , . FOR...TO... - , NEXT... - . , , . , .
FOR X=A TO B STEP H
...................
NEXT X
X , A , B , H - , . STEP H , H=1. X . H , X<B. (B-A)/H. X=B , NEXT. , H<0, A>B.
. 20 .
CLS
FOR X=1 TO 20
PRINT " !"
NEXT X
. n S=1+1/4+1/9+...+1/n2
|
|
CLS
INPUT " : n=", n
FOR i = 1 TO n
S = S + 1 / i ^ 2
NEXT i
PRINT " n : S=", S
. 15 .
SCREEN 7
FOR i = 1 TO 15
CIRCLE (160, 100), i * 6, i
NEXT i
. .
SCREEN 7
FOR i = 1 TO 32
LINE (0, 10 * i)-(320, 10 * i), 15
LINE (10 * i, 0)-(10 * i, 200), 15
NEXT i