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 

correction bac pratique 28-05-2012 a 15h30

 
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 - 16:26    Sujet du message: correction bac pratique 28-05-2012 a 15h30 Répondre en citant

program ean13_;
uses wincrt;
type tab=array[1..100] of integer;
var ch:string;
n,p,s,x: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 ean13');
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=13);
until valide= true and (length(chaine)=13);
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 ean13(t:tab;n:integer):integer;
var
i,s:integer;
begin
s:=0;
for i:=1 to n-1 do
begin
if i mod 2 = 0 then
s:=s+3*t[i]
else
s:=s+t[i];
end;
ean13:=s ;
end;
function ean(s:integer) :integer ;
var r,p:integer;
begin
r:=0;
p:=0;
r:=s mod 10;
p:=10-r;
ean:=p;
end;
begin
x:=0;
saisie(ch);
chiffre(t,n,ch);
x:=ean13(t,n);

if (ean(x)=t[n]) then
writeln(' le code ean13 est valide')
else
writeln(' le code ean13 n''est pas valide');
end.



Revenir en haut
Publicité






MessagePosté le: Lun 28 Mai 2012 - 16:26    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