Hp Prime-Grafenberechner User Manual download pdf (Page 610)

608 Programmieren

WHILE Syntax: WHILE Test DO Befehle END;

Auswerten von „Test“. Wenn das Ergebnis wahr ist (nicht

0), werden die Befehle ausgeführt, und der Vorgang wird

Beispiel: Eine perfekte Zahl ist gleich der Summe aller

ihrer eigenen Teiler. Beispielsweise ist 6 eine perfekte

Zahl, da 6 = 1+2+3 ist. Das Beispiel unten liefert "wahr"

zurück, wenn das Argument eine perfekte Zahl ist.

EXPORT ISPERFECT(n)

LOCAL d, sum;

WHILE sum <= n AND d < n DO

IF irem(n,d)==0 THEN

RETURN sum==n;

Das folgende Programm zeigt alle perfekten Zahlen bis

zur Zahl 1000 an:

EXPORT PERFECTNUMS()

FOR k FROM 2 TO 1000 DO

IF ISPERFECT(k) THEN

MSGBOX(k+" ist perfekt, drücken Sie

REPEAT Syntax: REPEAT Befehle UNTIL Test;

Wiederholt die Sequenz der Befehle, bis Test "wahr" ist

Hp Prime-Grafenberechner User Manual Page 610