Discussion :

[heart100]

Salut,

J'ai fait plusieurs recherches mais j'ai pas trouvé la solution à mon problème.
Si j'ai un valeur entière comme 4648744 , comment prendre seulement le chiffre (4) en position 2 à droite par programme ?

[anapurna]

salut

transforme le en chaine de caractere ce seras plus simple
ou alors il faut passer par les divisions mais cela deviens plus ardu

[hocine]

bonjour,
pour avoir une réponse précise, si ce que vous souhaitez c'est le second nombre à partir de la droite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.Button2Click(Sender: TObject);
var a :integer;
b:variant ;
ch:string;
begin
 a:=4648744;
 ch:=inttostr(a);
 b:=iNT((A/100-int(A/100))*10); // votre résulta
 showmessage(vartostr(b));
 showmessage(ch[length(ch)-1]);// votre résultat par chaîne de caractère
end;

bonne chance.

[anapurna]

salut

domage la formule n'est pas bonne
voici la formul correspondant sous ecxel

=QUOTIENT(A1-(QUOTIENT(A1;100)*100);10)

indice en pascal on utilisera la fonction DIV

[heart100]

resolu ..Merci