Fonction Conversion B-10
Page 1 sur 1
Fonction Conversion B-10
function convB10(ch:string, B: integer):integer;
var
i,d,e,s:integer;
begin
s:=0;
for i:=length(ch) downto 1 do
begin
if(ch[i] in ['0'..'9']) then
begin
val(ch[i],d,e);
s:=s+(d*puissance(B,length(ch)-i));
end
var
i,d,e,s:integer;
begin
s:=0;
for i:=length(ch) downto 1 do
begin
if(ch[i] in ['0'..'9']) then
begin
val(ch[i],d,e);
s:=s+(d*puissance(B,length(ch)-i));
end
Imen ESSASSI- Messages : 9
Date d'inscription : 21/02/2018
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|