Download  Print this page

While - HP -28S Manual

Advanced scientific calculator.
Hide thumbs

Advertisement

Suppose that you want to completely evaluate
I
A
+B
I ,
where A con-
tains
I
P +G!
I
and P contains 2. The first evaluation of the loop clause
returns
I
A
+B
I
and
I
P
+0 +B
I •
These expressions are not the same, so
the loop clause is evaluated a second time, returning
I
P +0 +B
I
and
I
2 +G! +B
I •
These expressions are not the same, so the loop clause is
evaluated a third time, returning
I
2 +0 +B
I
and
I
2 +G! +B
I •
These ex-
pressions are the same, so the loop structure ends.
The effect of this example is similar to the effect of .... NUM, except
... NUM causes an error if a name is undefined. For a more versatile
version of this example, see "MULTI (Multiple Execution)" on page
253.
WHILE ... REPEAT ... END
The following example takes any number of vectors from the stack
and adds them to the current statistics matrix. Since
it
needs to test
whether the object in level 1 is a vector
before
attempting to add it,
this example uses WHILE ... REPEAT ... END.
WHILE DUP TYPE 3
==
REPEAT I+ END
This structure works as follows:
1. The test clause
DUP TYPE
3
==
is evaluated, leaving a flag on
the stack. The flag indicates whether the object in level 2 is a
real vector.
2.
The flag is taken from the stack. Its value determines whether
the loop clause is executed .
• If the flag is true, the loop clause
I +
is executed, adding the
vector to the current statistics matrix, and steps (1) and (2) are
repeated.
• If the flag is false, the loop structure ends.
Note that WHILE ... REPEAT ... END ends when the flag is false,
but DO ... UNTIL ... END ends when the flag is true. If you need to
change the truth value of a test clause, add NOT as the last com-
mand: WHILE ... NOT REPEAT or UNTIL ... NOT END.
For another example of WHILE ... REPEAT ... END, see "PAD (Pad
With Leading Spaces)" on page 257.
232
26: Program Structures

Advertisement

Table of Contents

   Also See for HP HP-28S

   Related Manuals for HP HP-28S

Comments to this Manuals

Symbols: 0
Latest comments: