Átalakítás 10-es számrendszerből 2-es és 16-os számrendszerre! Segítene valaki? Turbo Pascal nyelven kéne.

dec a decimális számod, bin a bináris szám, egy String típus

while dec>0 do

begin

bin:=inttostr(dec mod 2)+bin;

dec:=dec div 2;

end;

kb valahogy így. Hexában is, csak ott figyelni kell, mert ugya 10=A...16=F

Tehát elosztod a decimálist a kívánt számrendszer alapjával, maradékot leírod egy string elejére (!), az egészosztás eredménye pedig a következő ciklus decimálisa lesz.

Addig osztod a számot 16 al, amíg a a szám 0 nem lesz.

De még mielőtt, osztód, elmented a 16 al való osztási maradákát.

ezt a maradékot egy string változóhoz adod hozzá,majd ha már az eredeti szám elfogyott, a kapot stringet megfordítod.