Devoir de contrôle N°3

Voir le sujet précédent Voir le sujet suivant Aller en bas

Devoir de contrôle N°3

Message par haiethem le Mer 24 Avr - 23:33

Devoir de contrôle N°3 :

=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=

4 ème Sciences Expérimentales 2 :

Les notes sont entre 00.00 et 17.00

_________________
=================================
Haiethem Elguediri
Lycée Secondaire Mareth
+21652084191
+21652906038
+21631139805
+21675321050
haiethem@gmail.com
www.haiethem.tk
avatar
haiethem

Messages : 419
Points : 14770
Réputation : 3
Date d'inscription : 08/11/2010
Age : 41

Voir le profil de l'utilisateur http://www.haiethem.tk

Revenir en haut Aller en bas

Re: Devoir de contrôle N°3

Message par haiethem le Mer 24 Avr - 23:36

Devoir de contrôle N°3 :

=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=

4 ème Sciences Expérimentales 1 :

_________________
=================================
Haiethem Elguediri
Lycée Secondaire Mareth
+21652084191
+21652906038
+21631139805
+21675321050
haiethem@gmail.com
www.haiethem.tk
avatar
haiethem

Messages : 419
Points : 14770
Réputation : 3
Date d'inscription : 08/11/2010
Age : 41

Voir le profil de l'utilisateur http://www.haiethem.tk

Revenir en haut Aller en bas

Re: Devoir de contrôle N°3

Message par haiethem le Jeu 25 Avr - 11:42

program ean13;
uses wincrt;
var n:string;

{******** FONCTION CALCUL ********}
function calcul(ch:string):integer;
var s,i,d,e:integer;
begin
s:=0;
for i:=1 to length(ch)-1 do
begin
val(ch[i],d,e);
if i mod 2 =0 then s:=s+3*d
else s:=s+d;
end;
calcul:=s mod 10;
end;

{******** FONCTION TEST ********}
function test(ch:string):boolean;
var i:integer;
begin
i:=1;
repeat
i:=i+1
until not(ch[i]in['0'..'9']) or(i>length(ch));
test:=(i>length(ch))and(length(ch)=13);
end;

{******** PROCEDURE SAISIR ********}
procedure saisir (var n:string);
begin
repeat
writeln('DONNER UN CODE EAN');
readln(n)
until test(n);
end;

{******** PROCEDURE AFFICHER ********}
procedure afficher (n:string);
var c,e:integer;
begin
val(n[length(n)],c,e);
if (10-calcul(n))= c then writeln('CODE EAN valide')
else writeln('CODE EAN non valide');
end;

{******** PROGRAMME PRINCIPAL ********}
begin
saisir(n);
afficher(n);
end.

_________________
=================================
Haiethem Elguediri
Lycée Secondaire Mareth
+21652084191
+21652906038
+21631139805
+21675321050
haiethem@gmail.com
www.haiethem.tk
avatar
haiethem

Messages : 419
Points : 14770
Réputation : 3
Date d'inscription : 08/11/2010
Age : 41

Voir le profil de l'utilisateur http://www.haiethem.tk

Revenir en haut Aller en bas

Re: Devoir de contrôle N°3

Message par haiethem le Jeu 2 Mai - 9:57

program appartenance;
uses wincrt;
type
tab=array[1..20] of integer;
var
n,p:integer;
t:tab;
{ ******* PROCEDURE SAISIR ******* }
procedure saisir(var n : integer );
begin
repeat
writeln('entrer n ');
readln(n);
until(n>=5) and (n<=20);
end;
{ ******* PROCEDURE REMPLIR ******* }
procedure remplir(var t:tab; n:integer);
var
i,x:integer;
begin
for i:=1 to n do
begin
repeat
writeln('Donner t[',i,'] '' de 4 chiffres'' :');
readln(x);
until(x div 1000 <> 0 );
t[i]:=x;
end;
end;
{ ******* PROCEDURE SAISIR P ******* }
procedure saisirp(var p : integer) ;
begin
repeat
writeln('Donner un entier p : ''de 4 chiffres'' :');
readln(p)
until(p div 1000 <>0)
end;
{ ******* FONCTION VERIF P ******* }
function verifp(t:tab;n,p:integer):boolean;
var
i:integer;
begin
i:=0;
repeat
inc(i);
until (i>n) or ( t[i] = p );
verifp:=( t[i] = p)
end;
{ ******* FONCTION VERIF P mod 10 ******* }
function verifp10(t:tab;n,p:integer):boolean;
var
i:integer;
begin
i:=0;
repeat
inc(i);
until (i>n) or (t[i] div 10 = p div 10 );
verifp10:=(t[i] div 10 = p div 10);
end;
{ ******* PROCEDURE AFFICHE ******* }
procedure affiche(t:tab;n,p:integer);
var
i,j:integer;
begin
if verifp(t,n,p) then
writeln(p,' appartient totalement à t')
else if verifp10(t,n,p) then
writeln(p,' appartient partiellement à t')
else
writeln(p,' n''appartient pas à t');
end;
{ ******* PROGRAMME PRINCIPAL ******* }
begin
saisir(n);
remplir(t,n);
saisirp(p);
affiche(t,n,p);
end.

_________________
=================================
Haiethem Elguediri
Lycée Secondaire Mareth
+21652084191
+21652906038
+21631139805
+21675321050
haiethem@gmail.com
www.haiethem.tk
avatar
haiethem

Messages : 419
Points : 14770
Réputation : 3
Date d'inscription : 08/11/2010
Age : 41

Voir le profil de l'utilisateur http://www.haiethem.tk

Revenir en haut Aller en bas

Re: Devoir de contrôle N°3

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

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