Registriert seit: 9. Jul 2005
Ort: Hohenaltheim
1.001 Beiträge
Delphi 2005 Personal
|
Re: Hilfe beim Programmieren von einer Gleichung
28. Nov 2005, 18: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
|
|
Zitat
|