Esempio: cicli e controllo

Fare clic per copiare questa espressione

Il valore di b è definito localmente ed è noto solo all'interno del programma.

Il programma esegue la stessa operazione dell'operatore di sommatoria:

<region id="ID0E4FZPB" top="672" left="48" height="101.552" width="343.39" xml:lang="it" xmlns="http://schemas.mathsoft.com/worksheet50">
  <math xml:lang="it">
    <define xml:lang="it" xmlns="http://schemas.mathsoft.com/math50">
      <function xml:lang="it">
        <id xml:lang="it" label="Variable">sqrt</id>
        <boundVars xml:lang="it">
          <id xml:lang="it" label="Variable">a</id>
          <id xml:lang="it" label="Variable">ε</id>
        </boundVars>
      </function>
      <program xml:lang="it">
        <localDefine xml:lang="it">
          <id xml:lang="it" label="Variable">estsqrt</id>
          <real xml:lang="it">1</real>
        </localDefine>
        <while xml:lang="it">
          <apply xml:lang="it">
            <greaterOrEqual xml:lang="it" />
            <apply xml:lang="it">
              <absval xml:lang="it" />
              <apply xml:lang="it">
                <minus xml:lang="it" />
                <apply xml:lang="it">
                  <pow xml:lang="it" />
                  <id xml:lang="it">estsqrt</id>
                  <real xml:lang="it">2</real>
                </apply>
                <id xml:lang="it">a</id>
              </apply>
            </apply>
            <id xml:lang="it">ε</id>
          </apply>
          <program xml:lang="it">
            <localDefine xml:lang="it">
              <id xml:lang="it" label="Variable">estsqrt</id>
              <apply xml:lang="it">
                <mult xml:lang="it" />
                <apply xml:lang="it">
                  <div xml:lang="it" />
                  <real xml:lang="it">1</real>
                  <real xml:lang="it">2</real>
                </apply>
                <parens xml:lang="it">
                  <apply xml:lang="it">
                    <plus xml:lang="it" />
                    <id xml:lang="it">estsqrt</id>
                    <apply xml:lang="it">
                      <div xml:lang="it" />
                      <id xml:lang="it">a</id>
                      <id xml:lang="it">estsqrt</id>
                    </apply>
                  </apply>
                </parens>
              </apply>
            </localDefine>
          </program>
        </while>
      </program>
    </define>
  </math>
</region>

<region id="ID0EOIZPB" top="984" left="48" height="140.6" width="256.06" xml:lang="it" xmlns="http://schemas.mathsoft.com/worksheet50">
  <math xml:lang="it">
    <define xml:lang="it" xmlns="http://schemas.mathsoft.com/math50">
      <function xml:lang="it">
        <id xml:lang="it" label="Variable">addOdd</id>
        <boundVars xml:lang="it">
          <id xml:lang="it" label="Variable">n</id>
        </boundVars>
      </function>
      <program xml:lang="it">
        <localDefine xml:lang="it">
          <id xml:lang="it" label="Variable">s</id>
          <real xml:lang="it">0</real>
        </localDefine>
        <for xml:lang="it">
          <id xml:lang="it">k</id>
          <range xml:lang="it">
            <real xml:lang="it">0</real>
            <id xml:lang="it">n</id>
          </range>
          <program xml:lang="it">
            <if xml:lang="it">
              <test xml:lang="it">
                <apply xml:lang="it">
                  <equal xml:lang="it" />
                  <apply xml:lang="it">
                    <id xml:lang="it">mod</id>
                    <sequence xml:lang="it">
                      <id xml:lang="it">k</id>
                      <real xml:lang="it">2</real>
                    </sequence>
                  </apply>
                  <real xml:lang="it">0</real>
                </apply>
              </test>
              <then xml:lang="it">
                <program xml:lang="it">
                  <continue xml:lang="it" />
                </program>
              </then>
            </if>
            <localDefine xml:lang="it">
              <id xml:lang="it" label="Variable">s</id>
              <apply xml:lang="it">
                <plus xml:lang="it" />
                <id xml:lang="it">s</id>
                <id xml:lang="it">k</id>
              </apply>
            </localDefine>
          </program>
        </for>
        <id xml:lang="it">s</id>
      </program>
    </define>
  </math>
</region>

<region id="ID0ERLZPB" top="1392" left="48" height="201.552" width="422.66" xml:lang="it" xmlns="http://schemas.mathsoft.com/worksheet50">
  <math xml:lang="it">
    <define xml:lang="it" xmlns="http://schemas.mathsoft.com/math50">
      <function xml:lang="it">
        <id xml:lang="it" label="Variable">sqroot</id>
        <boundVars xml:lang="it">
          <id xml:lang="it" label="Variable">a</id>
          <id xml:lang="it" label="Variable">ε</id>
          <id xml:lang="it" label="Variable">maxiter</id>
        </boundVars>
      </function>
      <program xml:lang="it">
        <localDefine xml:lang="it">
          <id xml:lang="it" label="Variable">estsqrt</id>
          <real xml:lang="it">1</real>
        </localDefine>
        <for xml:lang="it">
          <id xml:lang="it">i</id>
          <range xml:lang="it">
            <real xml:lang="it">0</real>
            <id xml:lang="it">maxiter</id>
          </range>
          <program xml:lang="it">
            <localDefine xml:lang="it">
              <id xml:lang="it" label="Variable">estsqrt</id>
              <apply xml:lang="it">
                <mult xml:lang="it" />
                <apply xml:lang="it">
                  <div xml:lang="it" />
                  <real xml:lang="it">1</real>
                  <real xml:lang="it">2</real>
                </apply>
                <parens xml:lang="it">
                  <apply xml:lang="it">
                    <plus xml:lang="it" />
                    <id xml:lang="it">estsqrt</id>
                    <apply xml:lang="it">
                      <div xml:lang="it" />
                      <id xml:lang="it">a</id>
                      <id xml:lang="it">estsqrt</id>
                    </apply>
                  </apply>
                </parens>
              </apply>
            </localDefine>
            <if xml:lang="it">
              <test xml:lang="it">
                <apply xml:lang="it">
                  <lessThan xml:lang="it" />
                  <apply xml:lang="it">
                    <absval xml:lang="it" />
                    <apply xml:lang="it">
                      <minus xml:lang="it" />
                      <apply xml:lang="it">
                        <pow xml:lang="it" />
                        <id xml:lang="it">estsqrt</id>
                        <real xml:lang="it">2</real>
                      </apply>
                      <id xml:lang="it">a</id>
                    </apply>
                  </apply>
                  <id xml:lang="it">ε</id>
                </apply>
              </test>
              <then xml:lang="it">
                <program xml:lang="it">
                  <localDefine xml:lang="it">
                    <id xml:lang="it" label="Variable">maxiter</id>
                    <id xml:lang="it">i</id>
                  </localDefine>
                  <break xml:lang="it" />
                </program>
              </then>
            </if>
          </program>
        </for>
        <matrix rows="2" cols="1" xml:lang="it">
          <id xml:lang="it">estsqrt</id>
          <id xml:lang="it">maxiter</id>
        </matrix>
      </program>
    </define>
  </math>
</region>