Einzelnen Beitrag anzeigen

ichbins

Registriert seit: 9. Jul 2005
Ort: Hohenaltheim
1.001 Beiträge
 
Delphi 2005 Personal
 
#3

Re: Hilfe beim Programmieren von einer Gleichung

  Alt 28. Nov 2005, 17:18
Wie willst du das machen? per brute-forcing?

Delphi-Quellcode:
uses
  math;

[...]

var
  a:integer=3;
  b:integer=4;
  c:integer=5;
  d:integer=18;
  i:integer;
begin
  for i:=-1000 to 1000 do
    if power(a,i)+power(b,i)+power(c,i)=power(d,i) then
      showmessage('Lösung für n: '+inttostr(i));
  showmessage('Alle Lösungen zwischen -1000 und 1000 probiert.');
end;
Michael Enßlin
Ich, der ich weiß, mir einzubilden, dass ich weiß, nichts zu wissen, weiß, dass ich nichts weiß.
Sokrates
  Mit Zitat antworten Zitat