Weiterführung vom "Thread Fermats Vermutung"

[kleiner Unwissender]

Zitat von kleiner Unwissender:

Somit kann ich auch mit den "beschänkten" Integer das Programm laufen lassen.

Wie gesagt, den hab ich nicht eingebaut.
Aber ich kann dir gerne Zeigen wie ich es gemacht hab (auch wenn es oben steht)

Code:

procedure TForm1.Button1Click(Sender: TObject);
var i,j,k,l:integer;
begin
for i:=3 to 100 do
begin
 n:=i;
 for j:=127 to 1000 do
  begin
   a:=j;
   for k:=101 to 1000 do
    begin
     b:=k;
     Application.ProcessMessages;
     for l:=101 to 1000 do
     begin
     c:=l;
     Ergebnis1:=(power(a,n))+(power(b,n));
     Ergebnis2:=(Power (c,n));
     Endergebnis:=Ergebnis2-Ergebnis1;
     if Endergebnis=0 then
     begin
     if a<>c then                     // hier findet die Entscheidende Abfrage statt
     begin                            // wenn a=c ist und ich b dazuadiere, kann ja nicht
      if b<>c then                    // auf beiden Seiten das gleiche rauskommen 
      begin                           // (gleiche gilt für b)
       Edit1.text:=inttostr(a);
       Edit2.text:=inttostr(b);
       Edit3.text:=inttostr(c);
       Edit4.text:=inttostr(n);
      end;
     end;
     end;
     Edit5.text:=inttostr(n);
     Edit6.text:=inttostr(a);
     Edit7.text:=inttostr(b);
     Edit8.text:=inttostr(c);
     end;
    end;
   end;
end;
showmessage('Fertig!');
end;