Forum pour 3éme année de l’Informatique
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
-20%
Le deal à ne pas rater :
-20% sur le Lot de 2 écrans PC GIGABYTE 27″ LED M27Q
429 € 539 €
Voir le deal

Fonction Conversion B-10

Aller en bas

Fonction Conversion B-10 Empty Fonction Conversion B-10

Message par Imen ESSASSI Mar 3 Avr - 20:08

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

Imen ESSASSI

Messages : 9
Date d'inscription : 21/02/2018

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum