programme sur pascal

[invite89e98d85]

bonjour,
j'ai écrit ce programme sur pascal ( il doit inverser un entier composé de 3 chiffres par exemple si n=123 alors i=321) mais sa fonctionne pas , j'obtient un autre résultat , aidez moi svp à trouver l'erreur

program inversion;
uses wincrt;
var n,i:integer;
begin
readln(n);
i:=(n div 100) + (n mod 10)*100 +(n mod 100)*10 -( n mod 10) ;
write(i);
end.
-----

[PA5CAL]

Bonjour

« (n div 100) » transforme les centaines en unités. C'est bon.
« (n mod 10)*100 » transforme les unités en centaines. C'est bon.

En revanche, la partie « +(n mod 100)*10 -( n mod 10) » est incorrecte. Le « *10 » est en trop.

[invite89e98d85]

ah oui , merci , le programme devient :
program inversion;
uses wincrt;
var n,i:integer;
begin
readln(n);
i:=(n div 100) + (n mod 10)*100 +(n mod 100) -( n mod 10) ;
write(i);
end.

[PA5CAL]

Un conseil pour la prochaine fois : afin d'augmenter la lisibilité du code, passe en mode avancé (bouton en bas à droite de la fenêtre d'édition) et utilise le bouton « # » afin d'insérer des balises [CODE]...[/CODE] autour de ton code source. Pense également à indenter et à aérer ce dernier.

Ça pourrait donner ceci :

program inversion;

uses wincrt;

var n,i : integer;

begin
    readln(n);
    i := (n div 100) + (n mod 10)*100 + (n mod 100) - (n mod 10) ;
    write(i);
end.

[A voir en vidéo sur Futura]

[invite89e98d85]

merci beaucoup