³
X
Y
X
PROGRAM:TESTELSE
:Input "X=",X
:If X<0
:Then
:X "Y
:Else
:X"Y
:End
:Disp {X,Y}
:Pause
For( 8 4 4
For(
For(
block
variable
increment
end begin end
block
command
variable begin end increment
:For(
block
:
:End
command
:
³
begin
PROGRAM:SQUARE
:For(A,0,8,2)
:Disp A
:Pause
:End
Chapter 12: Programming
TESTELSE
Y
block
begin
increment
variable>end,
End For(
variable { end
SQUARE
end
increment
Y
X
end
variable end
End
)
A
231
X
For(
Press b
between results.