Hoch Rechnungsprogramm

[Sir Rufo]

Mein Vorschlag (ohne div und mod und Math)

Delphi-Quellcode:

function SpecialCalcToRuleWorld( aNumber, aPower : integer  ) : integer;
var
  nStr : string;
  nIdx, pIdx : integer;
  nDig, tVal : integer;
begin
  Result := 0;
  nStr := IntToStr( aNumber );
  for nIdx := 1 to Length( nStr ) do
    begin
      nDig := StrToInt( copy( nStr, nIdx, 1 ) );
      tVal := 1;
      for pIdx := 1 to aPower do
        tVal := tVal * nDig;
      Result := Result + tVal;
    end;
end;

// Aufruf der Funktion

...
ShowMessage( IntToStr( // nur schmückendes Beiwerk zum direkten Anzeigen in einer MessageBox
  SpecialCalcToRuleWorld( // der Funktionsname
    StrToInt( Edit1.Text ), // die Eingabe aus dem Edit-Feld in eine Zahl gewandelt
    3 // und hier die 3, weil ja alles ^3 sein soll
  ) // ab hier werden nur noch alle Klammern geschlossen =:o)
) );

BTW: natürlich kann man die Funktion auch anders benennen