Delphi-Quellcode:
implementation
function ZweiHoch(n:integer):real;
var i:integer;
p:real;
begin
if n=0 then Zweihoch:=1
else Zweihoch:=2*Zweihoch(n-1);
end;
function bindual(s:string):integer;
begin
if length(s)=0 then bindual:=0 else
if s[1]='1' then
bindual:=zweihoch(length(s))+bindual(copy(s,2,length(s)-1)) else
bindual:=bindual(copy(s,2,length(s)-1));
end;
integer und extendet sind inkompatibel. d.h. ich kann nich kompilieren...warum??
PS das soll ne binärzahl in ne dezimalzahl rekursiv umwandeln
[edit=SirThornberry]Delphi-Tags gesetzt - nächstes mal bitte selbst machen - Mfg, SirThornberry[/edit]