Grundkurs Informatik in Stufe 11
Themen: Wiederholungsstrukturen und Wertebelegungstabelle

Lösung:

 1  procedure potenz_durch_multiplikation ();
 2  const basis     = 2;
 3        exponent  = 3;
 4  var i, ergebnis : Integer;
 5  begin
 6    ergebnis := 1;
 7    i        := exponent;
 8    while i > 0 do
 9      begin
10        ergebnis := ergebnis * basis;
11        dec (i);
12      end;
13    ShowMessage ('2^3 = ' + IntToStr (ergebnis));
14  end;


Wertebelegungstabelle hierzu:

ZeileNr	| i	| ergebnis | i > 0 ?
--------+-------+----------+--------------
  1-6	| 	| 1	   |
  7	| 3	| 	   |
  8	|	|	   | 3 > 0? true!
  9-10	|	| 1*2 = 2  |
  11-12	| 2	|	   |
  8	|	|	   | 2 > 0? true!
  9-10	|	| 2*2 = 4  |
  11-12	| 1	|	   |
  8	|	|	   | 1 > 0? true!
  9-10	|	| 4*2 = 8  |
  11-12	| 0	|	   |
  8	|	|	   | 0 > 0? false!
  13-14 |	|	   |

(c) November 2002  OStR M. Ziemke / LLG