HP 39gII, Руководство пользователя

Страница: 279 / 355

Programming 269
EXPORT DRAWPATTERN()
BEGIN
LOCAL xinc,yinc,color;
STARTAPP("Function");
RECT();
xincr := (Xmax - Xmin)/254
;
yincr := (Ymax - Ymin)/110
;
FOR X FROM Xmin TO Xmax STEP xincr DO
FOR Y FROM Ymin TO Ymax STEP yincr DO
color := FLOOR(X^2+Y^2) MOD 4;
PIXON(X,Y,color)
;
END;
END;
FREEZE;
END;
REPEAT…UNTIL… Syntax:
REPEAT
commands
UNTIL
test ;
Repeats the sequence of commands until test is true (non
0).
This code prompts for a positive value for SIDES,
modifying an earlier program in this chapter.
Example:
EXPORT SIDES;
EXPORT GETSIDES()
BEGIN
REPEAT
INPUT(SIDES,"Die Sides","N = ","Enter
num sides",2)
;
UNTIL SIDES>0;
END;
WHILE…DO…END Syntax:
WHILE
test
DO
commands
END
;