Prüfen ob Zahl irrational ist

[HannosG]

Zitat von Axxus:

Erst ma sollte es für den PC kein Problem sein zumindest zu prüfen ob ein Wurzelausdruck irrational ist und Zwar so:
...
wäre interessant sowas ma selbst zu programieren

Dem stimme ich zu.

Delphi-Quellcode:

function IsSqrtIrrational(Zahl: Integer): boolean;
var
I,Z: Integer;
begin
Result:=false;
For I:=2 to Zahl Do
  begin
  Z:=0;
  While Zahl/I = Zahl div I Do
    begin
    Zahl:=Zahl div I;
    Inc(Z);
    end;
  If Z/2<>Z div 2 then
    begin
    Result:=true;
    exit;
    end;
  end;
end;