Informatica - Pascal programmeren
 

Voor een informatica moet ik een converter maken maar k kom er niet uit bij gedeelte van hexadecimale getallen naar decimale getallen. HELP!!!

misschien dat je op exacte vakken verder komt ;)

verplaatst

?
slotje ofzo?

Op S&M:
http://forum.scholieren.com/showthre...threadid=57057

Da's nie moeilijk

function Convert(HEX:string);
var i,RES,C:integer;
begin
RES=0;
for i:=1 to 255 do
begin
if HEX[256-i]=A then C:=10 else
if HEX[256-i]=B then C:=11 else
if HEX[256-i]=C then C:=12 else
if HEX[256-i]=D then C:=13 else
if HEX[256-i]=E then C:=14 else
if HEX[256-i]=F then C:=15 else
C=strtoint(HEX[256-i]);
{STRTOINT is delphi, kan ook val() zijn }
if i=1 then RES:=RES+C
else RES:=RES+(C*(i-1)*16);
end;
CONVERT:=RES;
end;

P.S. kan zijn dat hier en daar een foutje zin.... kan hier niet testen maar zo moet het in elk geval ongeveer

idd
sorry, kan niet samenvoegen, anders had ik gedaan.