. , . , :
)
GOTO N
N- , .
GOTO . , , . , GOTO , Quit of DATA ( ).
DATA 5,7
1:
RED R
PRINT "R="; R;
S=3. 1416*R^2
PRINT "S="; S
GOTO a1:
R=5 S=78.5
R=7 S=153.86
Out of DTA
) IF L THEN S
L - , , ;
S , .
IF : L -" ', S; L - ' ' ', S , IF . ,
INPUT A,
IF A> THEN PRINT ">"
IF A< THEN PRINT "A<B"
IF A=B THEN PRINT " "
END
IFHEN GOTO, THEN, GOTO, . ,
IF <> AND <>0 THEN GOTO m1
:
IF X<>Y AND B<>0 THEN m1
IF X<>Y AND B<>O GOTO m1
, IFTHEN , . ,
INPUT , ,
D=B*B-4**C
IF D<0 THEN PRINT " ": GOTO m1
X1= (-B + SQR (D)) / (2 *)
X2 = (-B -SQR (D))/(2 *A)
PRINT XI, X2
M1:
END
I F - N LS, (S1), , L " ".
IF L THEN S ELSE S1
, , , . ,
IF M<>N THEN m5 ELSE PRINT ""
4) , 1 A(X0,YO) Y=2*X^2-3*X+4 0 , .
5) , "", . < X<b "" .
.
, () , . . . .
|
|
1) 1 10.
DEFINT N, S
N=1
M1:
S=N^2
PRINT "N="; N,"S="; S
N=N+1
IF N<=10 THEN m1
END
2) , (, ).
INPUT ,
IF >0 AND >0 THEN PRINT 1: STOP
IF" x<0 AND y>0 THEN PRINT 2: STOP
IF x<0 AND y<0 THEN PRINT 3: STOP
IF x>0 AND y<0 THEN PRINT 4: STOP
3) , (, ) , (1,1), (x2, y2).
INPUT 0,0,1,1,2,and 2
DEF FNRAS (XL, El, x2, y2)=SQR ((xl-x2)^2+(yl-y2)^2)
KM=FNRAS (XL, yl, x2, y2)
AK=FNRAS (xO, yO, x1,I)
AM=FNRAS (xO, yO, x2, y2)
IFkm=Ak+Am THEN PRINT "" ELSE PRINT ""
END
1) , 1, 3, b1 .
2) ,
READ A, B
DATA 5., 6.
IF A\B>0 THEN V1 ELSE GOTO M2
3) ,
A=. 4
IF 3*A+1>0 THEN h1 ELSE n2
A=A+0.8
N1:
A=A-1
GOTO n3
N2:
A=A/2
N3:
A=A+1
4)
=0.5 sin x 1 0,1.
=0.
M1:
y=. 5-sin ()
If <. Then Int " ="; , "= ";
=+0.1
ifx<=1.thenm1
end
, , . , . IF (. ). BASIC , :
FOR V=A1 A2 STEP A3
()
NEXT V
V - ;A1,A2,A3 1, A2 A3.
, FOR N, V,
(A2-V)*A3>=0.
K=[(A2-A1)/A3]+1.
[ ] - .
S 3 , 3=1. ,
For x%=1 to 8 step 2
Print 2^x%;
Next x%
End
2, 8, 32, 128. , . ,
|
|
F1=3.5to1step-.5
pint1;
next1
3.5 3 2.5 2 1.5 1.
, , , , , , , . ,
For x=1 to 99 step 2
Print x;
X=2*x
Next x
End
: 1, 4, 10, 22, 46, 94.
, - . , , =^2-5*x+6 2.5 4 0,2.
Fr =2.5 to 4 step 0.2
=X^2-5*x+6
If y>0 then h1
Next x
H1:
Print "x= "; x, "y="; y
End
(1) (2) (3) .
( ).
. ,
For =...
ForB =...
Nexf
For =...
Next
next
. , . Z= (^2 + ^2)*(sinx + cosy) 1 3 0,4 4 0, 5.
INPUT x0, xk, hx, y0, yk, hy
For y=y0 to yk step hy
For x=x0 to xk step hx
Z=(x^2+Y^2)*(sin (x)+cos (y))
Print x=; x, y=; y,z=; z
Next x
Next y
End
1)
For i=0.2 to 5.6 step 0.2
2)
For k=7 to 20 step 4
3) M
For i=1 to 2
M=i\4
For j=1 to 3
M=M+j
Next j
Next I
4) L
L=3
For i=1 to 6 step 2
L=L+i
Next I
If L>20 then L=2
5) KS (2,3),
OPTION BASE 1
DIM KS%(2,3)
For k=1 to 2
For j=1 to 3
KS%(kJ)=k-j
Next j
Next k
End