Association Tunisienne pour l'Informatique Scolaire Index du Forum

Association Tunisienne pour l'Informatique Scolaire
BACCALAUREAT INFORMATIQUE et CAPES INFORMATIQUE

 FAQFAQ   RechercherRechercher   MembresMembres   GroupesGroupes   S’enregistrerS’enregistrer 
 ProfilProfil   Se connecter pour vérifier ses messages privésSe connecter pour vérifier ses messages privés   ConnexionConnexion 

bac pratique 28-05-2012 sujet 14h

 
Poster un nouveau sujet   Répondre au sujet    Association Tunisienne pour l'Informatique Scolaire Index du Forum -> Bac Sciences de l'Informatique -> BAC 2008 - 2009 - 2010 - 2011 - 2012 -> BAC PRATIQUE 2012
Sujet précédent :: Sujet suivant  
Auteur Message
djo


Hors ligne

Inscrit le: 25 Avr 2011
Messages: 2
Emploi: Autres
Localisation: Gafsa
Lycée/collège: metlaoui
Point(s): 0

MessagePosté le: Lun 28 Mai 2012 - 15:35    Sujet du message: bac pratique 28-05-2012 sujet 14h Répondre en citant

program imei;
uses wincrt;
type tab=array[1..100] of integer;
var ch:string;
n:integer;
t:tab;


procedure saisie(var ch :string);
var chaine:string;
i,d,e:integer;
valide:boolean;

begin
repeat
chaine:='';
i:=0;
valide:=true;
writeln('donner un num imei');
readln(chaine);
repeat
i:=i+1;
val(chaine[i],d,e);
if d in [0..9] then
valide:=true else valide:=false;
until valide=false or (i=15);
until valide= true;
ch:=chaine;
end;

procedure chiffre(var t:tab; var n:integer; ch:string);
var i,d,e:integer;
begin
for i:=1 to length(ch) do
begin
val(ch[i],d,e);
t[i]:=d;
end;
n:=length(ch);
end;

function somme(n:integer):integer;
var x,i,d,e,s:integer;
ch:string;
begin
x:=2*n;
ch:='';
str(x,ch) ;
s:=0;
d:=0;
for i:=1 to length(ch) do
begin
val(ch[i],d,e);
s:=s+d;
end;
somme:=s;
end;

function luhn(t:tab;n:integer):integer;
var
i,s:integer;
begin
s:=0;
for i:=1 to n do
begin
if i mod 2 = 0 then
s:=s+somme(t[i])
else
s:=s+t[i];
end;
luhn:=s ;
end;

begin
saisie(ch);
chiffre(t,n,ch);
if luhn(t,n) mod 10 =0 then
writeln(' le num imei est valide')
else
writeln(' le num imei n''est pas valide');
end.


Revenir en haut
Publicité






MessagePosté le: Lun 28 Mai 2012 - 15:35    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Association Tunisienne pour l'Informatique Scolaire Index du Forum -> Bac Sciences de l'Informatique -> BAC 2008 - 2009 - 2010 - 2011 - 2012 -> BAC PRATIQUE 2012 Toutes les heures sont au format GMT + 1 Heure
Page 1 sur 1

 
Sauter vers:  

Index | Creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com