Prüfen ob Zahl irrational ist

[omata]

Hier nochmal eine Version ohne exit...

Delphi-Quellcode:

function IsSqrtIrrational(Zahl: integer): boolean;
var i, z: integer;
begin
  Result:=false;
  i:=2;
  while (i <= Zahl) and not Result do
  begin
    z:=0;
    while Zahl/i = Zahl div i do
    begin
      Zahl:=Zahl div i;
      inc(z);
    end;
    Result:=(z/2 <> z div 2);
    inc(i);
  end;
end;

Gruss
Thorsten