program rekursi

listing program rekursi biner ke desimal.

uses crt;
var
biner:string;
function convert(biner:string):real;
var
i,m,x,code,dum,hasil:integer;
begin
m:=0;
hasil:=0;
for i:=length(biner) downto 1 do
begin
val(biner,x,code);
dum:=x*trunc(exp(m*ln(2)));
hasil:=hasil+dum;
inc(m);
end;
convert:=hasil;
end;
begin
clrscr;
write('Input Bilangan Biner : ');
readln(biner);
write('Bilangan Desimalnya : ',convert(biner):3:0);
readln;
end.

output program berupa
input bilangan binner : 25
bilangan desimalnya : 75

maksudnya, jika kita masukkan bilangan binner 25
maka akan muncul bilngan desimalnya yaitu 75