
Sets variable var to start, and for as long as this variable is less than or equal to nish, executes the sequence
of commands, and then adds 1 (increment) to var.
Example 1: This program determines which integer from 2 to N has the greatest number of factors.
EXPORT MAXFACTORS(N)
BEGIN
LOCAL cur,max,k,result;
1 ▶ max;1 ▶ result;
FOR k FROM 2 TO N DO
SIZE(CAS.idivis(k)) ▶ cur;
IF cur(1) > max THEN
cur(1) ▶ max;
k ▶ result;
END;
END;
MSGBOX("Max of "+ max +" factors for "+result);
END;
In Home, enter MAXFACTORS(100).
FOR STEP
Syntax: FOR var FROM start TO nish [STEP increment] DO commands END;
Sets variable var to start, and for as long as this variable is less than or equal to nish, executes the sequence
of commands, and then adds increment to var.
Example 2: This program draws an interesting pattern on the screen.
Program commands 585
Komentarze do niniejszej Instrukcji