Bonjour,
je veux  faire un programme pascal qui transforme "123" en "102030" ,un programme qui mets des "0" entre le nombre que je lui insère . je le mets le nombre 654 il me donne en résultat 605040 .
je pence qu'on doit divisé 654 par 100 pour avoir le 6 "on utilise dans VAR integer " alors sans virgule ,mais pour le reste je ne sais plus ,si vous pouvez bien me donner une solution ,et merci .

Il faudrais récupérer  
   le poids des unités et  
       multiplier par dix
le poids des disaine et  
       multiplier par 100
le poids des centaines et
       multiplier par 1000
 
Ainsi de suite.
 
Et faire l'addition.
 
       

ARff    
 
Faut tout miltuplier par 10 en fait.

merci pour votre réponse mais j'ai pas bien compris en tous cas j'ai trouvé la solution je pense  "x=654"  
a:=x/100                     =6
b:=x/10 -a*10              =5
c:=x -a*10 -a*100         =4  
 
apres en affiche  a,(0),b,(0),c,(0)
et voila le résultat   605040 .

Non, il doit falloir le calculer, insérer un zéro en vrac, c'est pas du job.
 
Je m'embrouille un peu.    
 

with Text_Io;
with Ada.Integer_Text_Io;
 
procedure Insert_O is
 
   subtype T_Data is natural range 0..999;
   Input : T_Data;
 
   Units : constant array (1..3) of Natural := (100, 10, 1);
   S_Resultat : array (1..3) of Natural := ( others => 0 );
   Resultat : Natural := 0;
begin
   loop
 
      -- Saisie de la donnée;
      begin
         Text_Io.New_Line;
         Text_Io.Put( "Entrez un entier entre 0 et 1000 : " );
         Ada.Integer_Text_Io.Get ( Input );
         exit;
      exception
         when Constraint_Error =>
            null;
 
      end;
   end loop;
 
   begin
 
      -- Calcul du s-résultat
 
      for I in 1..3 loop
         while input >= Units ( I ) loop
           input := input - Units ( I );
           S_Resultat( I ) := S_Resultat( I ) + 1;
         end loop;
      end loop;
   end;
 
 
   begin
 
      -- Calcul du résultat
 
      for I in 1..3 loop
         Resultat := Resultat + S_Resultat( I ) * (Units (I) * Units (I) * 10);
      end loop;
 
      --affichage du résultat
   Text_Io.New_Line;
   Text_Io.Put( "Le résultat est : " );
   Ada.Integer_Text_Io.Put ( Resultat );
 
 
   exception
      when Constraint_Error =>
         Text_Io.Put_Line("Le résultat est trop grand." );
   end;
 
 
end Insert_O;

Moi quand je vois "123" je me dis que c'est pas un nombre (123 lui est un nombre par contre!), mais une chaine de caractères qu'il faut lire char par char et écrire dans un autre buffer en insérant un "0" entre chaque.

Tu déconnes ?

Ça peut être une solution d'en faire une chaîne de caractères décimale, de rajouter les 0, et de parser le résultat.
 
Pas forcément la meilleure, mais ça peut être une solution.

Sinon avec la récursivité c'est facile, voici ce que j'ai fait en C:

pour que je puisse exécuter bien mon programme ,j'ai besoin de la division mais ca marche pas .
 
program hhh;
var a,b :char  ;
begin
readln (a) ;
b:=a/10 ;
writeln (b) ;
end .
 
il m'affiche "error 26 type mismatch" ,je veux reglé ce problème pour exécuter le programme

Tu ne peux pas diviser un caractère par un entier.

 
ya pas une solution pour la division ,parce que avec l'adition ou la multiplication ca marche .
pour le programme que tu m'as ecris je le comprend pas du tous ,puisque je viens de commencer pascal .
si ya une solution avec un programme plus simple ,indique-le moi .
 

Tu peut tenter de déclarer b comme un réel.

Tu débute tout court en programmation ?
Un autre exemple avec le langage Ada ne t'avancera pas d'avantage.
 
Tu peut remarquer que je n'utilise pas de réel, ce qui peut te montrer que d'en utiliser serait une erreur.
 
Pour t'aider dans le sens de ton programme, déclare plutôt a, b, c comme entier, comme prévu, et cherche comment saisir et afficher un entier au clavier.

program insert_o;
 
var
        data : longint;
        units      : array[1..3] of integer = (100, 10, 1);
        s_resultat : array[1..3] of integer = (0, 0, 0);
        unit_index : integer;
        begin
                write('Entrez un nombre entier entre 1 et 999 : ');
                readln(data);
                for unit_index := 1 to 3 do
                        while data >= units[unit_index] do
                        begin
                                data := data - units[unit_index];
                                s_resultat[unit_index] := s_resultat[unit_index] + 1;
                        end;
                        data := s_resultat[1] * 100 * 100 * 10 +
                                s_resultat[2] * 10 * 10 * 10 +
                                s_resultat[3] * 10;
 
               writeln('Le r‚sultat est : ', data);
        end.

 
Pour copier le code tu double clique dessus pour faire péter le numéro des ligne.

Désolé pour le problème de la saisie, en fait, je ne savais pas à quel point Pascal était puissant.

j'ai reussi a faire le programme qu'il me faut .
 
program hhh;
var a,x,y,z  :integer ;
begin
readln (a) ;
x:=a div 100 ;
y:=a div 10 - (x*10) ;
z:=a - (x*100)-(y*10) ;
writeln (x,0,y,0,z);
readln ;
end .
merci pour votre aide.

 
456 => 40506
 
Il manque un zero.  

Et si l'utilisateur rentre un nombre à 4 chiffres?
Tu devrais revoir ta façon de résoudre le problème...

 
   
 
si c'est pour au final ajouter des 0, tu prend l'entrée en var tmp:string; pis la sortie tmp2:string;
 
pis tu fait  
 

 
mais ouais c'est surement pas le but du sujet  

uses crt;
var a:string ;
      i:integer;
begin
     clrscr;
     readln(a);
     for i:=1 to length(a) do insert('0',a,2*i);
     writeln(a);
     readln;
end.
 
Il est toujours possible de convertir avec "val" et "str" les chaînes en nombres et les nombres en chaînes.