Zamiana

Jak zamienić liczbę binarną na dziesiętną i odwrotnie?---------------------------
Delphi 6

Pozdrówka

dam przyklada:
liczba dwojkowa 1001 to w dziesietnym 12³⁺⁰2</sup>2+02¹⁺¹2</sup>0=8+1=9
3 bo sa cztery pozycje od 0 do 3

a odwrotnie to dla przykladu liczba 9

bierzemy potege 2 wieksza od 9 znaczy 2^{4 czyli 16 dzieki temu jest 5 kolumn}

2</sup>4 2^{3 2}2 2^{1 2}0
9:16=0 9:8=1 1:4=0 1:2=0 1:1=1

teraz spisujemy:
01001
chodzi o to ze dzielimy calkowicie liczbe dziesietna(przez kolejne potegi 2)i potem reszte z dzielenia dalej dzielimy. jak sie nie da podzielic calkowicie to przepisujemy stara liczbe.

He, he, tak to ja sobie sam mogę... :D
Ale jak to w delphi zrobić? Chociaż mimo wszystko dzięki :)---------------------------
Delphi 6

Pozdrówka

Nie wiem czy jest taka funkcja w Delphi, ale co za problem napisac wlasna?

function Binarna(Liczba: Integer): String;
var
A: String;
R, n: Integer;
begin
A:=; R:=Liczba; repeat if (R mod 2)=0 then A:=A+'0' else A:=A+'1'; R:=R div 2; until R=0; Result:=;
for n:=0 to Length(A) do
begin
Result:=Result+A[Length(A)-n];
end;
end;

function Dziesietna(Liczba: String): Integer;
var
n: Integer;
begin
if Liczba[Length(Liczba)]='1' then Result:=1 else Result:=0;
for n:=1 to Length(Liczba) do
begin
if Liczba[Length(Liczba)-n]='1' then Result:=Result+Round(Power(2,n));
end;
end;

I wszystko jasne :)--sys:> logout....

Dzięki Sheitar :)---------------------------
Delphi 6

Pozdrówka

No problemo, wkoncu moge sie wykazac wiedza zdobyta w szkole na ukladach cyfrowych hehehe--sys:> logout....