Also das programm soll sich eine hohe zahl auswählen und sie dann auseinander nehmen und kommt drauf an wenn es eine 4 stellige zahl ist dann so mit jder zahl hoch 4 genommen werden und wenn es eine 5 stellige zahl ist dann muss jede ziffer mit hoch 5 genommen werden.
Es funkt aber nicht.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var zahl1 , zahl2:integer;
ziffer: Array [ 1..4 ] of integer;
begin
zahl1:= 1000;
repeat
zahl1:= zahl1+1;
ziffer[1]:= ( zahl1 mod 10 ) div 1;
ziffer[2]:= ( zahl1 mod 100 ) div 10;
ziffer[3]:= ( zahl1 mod 1000 ) div 100;
ziffer[4]:= ( zahl1 mod 10000 ) div 1000;
for i:= 1 to 4 do
ziffer[i]:= ziffer[i] * ziffer[i] * ziffer[i] * ziffer[i];
until zahl1= zahl2;
edit2.text:= InTTostr(zahl1);
end;
Edit: sorry habe das wichtige ausgelassen, das ergebnis soll der gleichen zahl gleich sein