HP NW280AAABA Uživatelský manuál Strana 536

  • Stažení
  • Přidat do mých příruček
  • Tisk
  • Strana
    / 616
  • Tabulka s obsahem
  • ŘEŠENÍ PROBLÉMŮ
  • KNIHY
  • Hodnocené. / 5. Na základě hodnocení zákazníků
Zobrazit stránku 535
530 Programming in HP PPL
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 finish [STEP increment]
DO commands END;
Sets variable var to start, and for as long as this variable
is less than or equal to finish, executes the sequence of
commands, and then adds increment to var.
Example 2: This program
draws an interesting
pattern on the screen.
EXPORT
DRAWPATTERN()
BEGIN
LOCAL
xincr,yincr,co
lor;
STARTAPP("Function");
Zobrazit stránku 535
1 2 ... 531 532 533 534 535 536 537 538 539 540 541 ... 615 616

Komentáře k této Příručce

Žádné komentáře