insertion de zero

Aller en bas

insertion de zero

Message  Admin le Dim 17 Avr - 20:09

ÉNONCÉ
Ecrire un programme nommé insertzero qui permet de lire un entier A formé de 3 chiffres et insère le chiffre zéro(0) entre les chiffres de l’entier A.
Exemple : Pour A=125 le résultat est A=10205

méthode1
program insertzero;
uses wincrt;
var
c,d,u,a:integer;
ch,c1,d1,u1:string;
begin
repeat
writeln('saisir un entier');
readln(a);
until (a>=100) and (a<=999);
c:= a div 100;
d:= (a mod 100) div 10;
u:=a mod 10;
str(c,c1);
str(d,d1);str(u,u1);
ch:=concat(c1,'0',d1,'0',u1);
writeln(‘le chiffre après insertion de zéro est=’,ch);
end.

méthode2
program insertzero;
uses wincrt;
var
a:integer;
a1:string;
ch:string;
begin
repeat
writeln('saisir un entier');
readln(a);
until (a>=100) and (a<=999);
str(a,a1);
ch:=concat(a1[1],'0',a1[2],'0',a1[3]);
writeln('le chiffre après insertion de zéro est=',ch);
end.

Admin
Admin

Messages : 137
Date d'inscription : 29/12/2010

Voir le profil de l'utilisateur http://aidescolaire.yoo7.com

Revenir en haut Aller en bas

Revenir en haut


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