ÌûºÅ£º2352
±êÌ⣺×Ö·û´®´¦Àí
ÄÚÈÝ£º
1
REM XM
CLS
DATA Li li,Zhang jie,Wang wen,ding hui,Li xi
DATA Liu bei,Cao REM,Guan yuling,Zhang fei ,Zhao huan
FOR I=1 TO 10
READ X$
Y$=LEFT$(X$,5)
IF Y$=¡±ZHANG¡± THEN N=N+1
NEXT Y
PRINT N
2
REM DC
CLS
DATA MODE,END,FILE,ENTER,TEXT
DATA FORMAT,WINDOWS,ENGLISH
FOR I=1 TO 8
READ X$
IF MID$(X$,2,1)=¡±N¡± THEN N=N+1
NEXT I
PRINT N
END
3
REM DC
CLS
DATA MODE,END,FILE,ENTER,TEXT
DATA FORMAT,WINDOWS,ENGLISH
FOR I=1 TO 8
READ X$
IF RIGHT$(X$,1)=¡±E¡± THEN N=N+1
NEXT I
PRINT N
END
4
REM DC
CLS
INPUT ¡°MODEN¡±,X$
PRINT MID$(X$,1,1);¡°-¡°; MID$(X$,2,1);¡°-¡°; MID$(X$,3,1);¡°-¡°; MID$(X$,4,1);¡°-¡°; MID$(X$,5,1)
END
5
REM JZ
CLS
A$=¡±THE PEOPLE`S¡±
B$=¡±REPUBLIC OF CHINA¡±
PRINT A$+B$
PRINT LEN(A$+B$)
FOR I=1 TO 12
IF MID$(A$,I,1)=¡±E¡± THEN N=N+1
NEXT I
PRINT N
END
ÌûºÅ£º2351
±êÌ⣺һάÊý×é
ÄÚÈÝ£º
1
REM SG
CLS
DATA 1.58,1.72,1.65,1.74,1.67
DIM SG(5)
FOR I=1 TO 5
READ SG(I)
PRINT SG(I)
NEXT I
END
2
REM CJ
CLS
DATA 90,78,85,67,95,74,86,93
DIM CJ(8)
FOR I=1 TO 8
READ CJ(I)
PRINT CJ(I)
NEXT I
FOR I=2 TO 8 STEP 2
READ CJ(I)
PRINT CJ(I)
NEXT I
END
3
REM QX
CLS
DATA 8,8,8,7,7,6,6,7,8,9,11,14
DATA 16,18,18,20,20,19,19,18,15,13,10,9
DIM A(24)
FOR I=0 TO 23
READ A(I)
NEXT I
INPUT ¡°TIME¡±;T
PRINT A(T)
END
4
REM SL
CLS
DIM A(15)
FOR I=1 TO 13
A(1)=1
A(2)=2
A(I+2)=A(I)+A(I+1)
NEXT I
PRINT A(15)
END
5
REM QC
CLS
DIM A(13)
FOR I=1 TO 12
A(1)=3
A(I+1)=(A(I)-1)*2
PRINT A(I)
SUM=SUM+A(I)
NEXT I
PRINT SUM
END
ÌûºÅ£º2350
±êÌ⣺·ÖÖ§½á¹¹²¿·Ö
ÄÚÈÝ£º
1
REM jds
cls
input ¡°liang ge shu¡±;x;y
if x>y then print x else print y
end
2
REM QZ
CLS
INPUT ¡°X=¡±;X
IF X<0 THEN PRINT ¨CX ELSE PRINT X^2
END
3
REM TJZFS
CLS
DIM A(10)
DATA 12,4,2,5,-5,4,-6,-4,25,-9
FOR I=1 TO 10 STEP 1
READ A(I)
IF A(I)>0 THEN N=N+1 ELSE M=M+1
NEXT I
PRINT ¡°ZHENG¡±;N,FU¡±;M
END
4
REM JDZ
CLS
INPUT ¡°X=¡±;X
PRINT ABS(X)
END
5
REM JS
CLS
INPUT ¡°WEIGHT=¡±;W
IF W<=50 THEN
PRINT W*1.3
ELSE
PRINT 50*1.3+(W-50)*2
END IF
END
6
REM HY
CLS
SCREEN 12
INPUT ¡°0 OR 1¡±;A
IF A=0 THEN
CIRCLE (320,240),100,4:PAINT (320,240),4,4
ELSE
CIRCLE (320,240),100,2:PAINT (320,240),2,2
END IF
END
7
REM SELL
CLS
INPUT ¡°WEIGHT¡±;W
IF W>=5 THEN PRINT W*1.5 ELSE PRINT W*1.2
END
8
REM JS
CLS
INPUT ¡°A,B=¡±;A,B
IF 4*A*B<0 THEN PRINT ¡°WU DING YI¡±:END
PRINT (A^2+B^2)^(SQR(4*A*B))
END
9
REM CSZ
CLS
RANDOMIZE TIMER
A=FIX(RND*10)
INPUT X
IF X=A THEN PRINT ¡°RIGHT¡± ELSE PRINT ¡°WRONG¡±
END
10
REM HS
CLS
INPUT X
IF X>0 THEN PRINT 1:END
IF X<0 THEN PRINT ¨C1 ELSE PRINT 0
END
11
REM SG
CLS
DIM A(8)
DATA 182,175,168,159,177,166,157,178
FOR I=1 TO 8
READ A(I)
IF A(I)>=180 OR A(I)<=160 THEN N=N+1
NEXT I
PRINT N
12
REM SJS
CLS
RANDOMIZE TIMER
FOR I=1 TO 20
X=FIX(RND*90+10)
IF X>80 THEN N=N+1
PRINT X,
NEXT I
PRINT ¡°N=¡±;N
END
ÌûºÅ£º2348
±êÌ⣺¶Ô²»Æð£¬Ç°Ãæ³ÌÐòÓÐС´íÎó£ºË³Ðò½á¹¹²¿·Ö
ÄÚÈÝ£º
1
REM qttj
CLS
INPUT ¡°r=¡±;r
V=(4/3)*3.14159*r^3
PRINT ¡°v=¡±;v
END
2
REM yztj
CLS
INPUT ¡°r=¡±;r
INPUT ¡°h=¡±;h
V=1/3*3.14159*h*r^2
PRINT ¡°v=¡±;v
End
3
REM qz
CLS
INPUT ¡°x=¡±;x
Y=x^2+4*x+8+ABS(x-1)
PRINT y
End
4
REM js
CLS
X=3.5
Y=7
PRINT SQR((x^2+3*x*y)/(y*x))
END
5
REM dyxc
CLS
PRINT *
PRINT ***
PRINT *****
PRINT *
PRINT *
PRINT *************
PRINT ***********
PRINT *********
END
6
REM qsd
CLS
INPUT ¡°t=¡±;t
V=18/3.6+.5*t
PRINT ¡°v=¡±;v
END
7
REM sell
CLS
INPUT ¡°apples=¡±;a
INPUT ¡°pears=¡±;b
Sum=3*a+2.5*b
PRINT ¡°sum=¡±;sum
END
8
REM js
CLS
RANDOMIZE TIMER
A=FIX(RND*100+10)
B=FIX(RND*100+10)
H=a+b
C=a-b
J=a*b
S=a/b
PRINT h,c,j,s
END
9
REM hhj
SCREEN 12
CLS
LINE (280,200)-(310,170)
LINE ¨C(340,200)
LINE (280,200)-(340,260),,B
LINE (280,260)-(280,290)
LINE (310,260)-(310,290)
LINE (340,260)-(340,290)
END
10
REM js
CLS
DIM sum(3)
DATA 3,4,10,2,5,5,4,3,10
FOR i=1 TO 3 STEP 1
READ a,b,c
Sum(i)=2*a+4.5*b+3*c
PRINT sum(i)
NEXT i
PRINT sum(1)+sum(2)+sum(3)
END
11
REM qsws
CLS
B=3
A=b+1
C=2*a
PRINT a*100+b*10+c
END
12
REM hy
CLS
SCREEN 12
CIRCLE (320,240),100
CIRCLE (240,240),20
CIRCLE (290,240),30
CIRCLE (370,240),50
END