Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
procedure getValueByPos(value,pos:long;):long
wert:long;
begin
wert:=value mod (pos*10);
return wert;
end;
procedure dual2decimal(dual,length:long;):long
i,decimal:long;
begin
decimal:=0;
for 1 to i DO
begin
decimal:=decimal+getValueByPos(dual,i)*POW(2,i-1);
end;
return decimal;
end;