Rekursiv function

[mkinzler]

Besser

Delphi-Quellcode:

function ZweiHoch(n:integer):Extended;
var i:integer;
    p:real;

begin
   if n=0 then result :=1
          else result := 2*Zweihoch(n-1);

function bindual(s:string):integer;
begin
  if length(s)=0 then result := 0 
                 else if s[1]='1' then result := Trunc(zweihoch(length(s)))+bindual(copy(s,2,length(s)-1))
                                  else result := bindual(copy(s,2,length(s)-1));
end;