Bac pratique 2014

Poster un nouveau sujet   Répondre au sujet

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

Bac pratique 2014

Message par haiethem le Mar 27 Mai - 15:58

26 - 05 - 2014 :
*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
Sujet 2 : 9 h 30 - 10 h 30 :
program _26_05_2014_9h30;
uses wincrt;
var NB:integer;


procedure saisir(var n:integer);
begin
repeat
writeln('taper un entier pair svp ');readln(n);
until (n>=4)and(odd(n)=false);
end;

function premier(x:integer):boolean;
var y,i:integer;test:boolean;
begin
{  cette methode considere 1 comme premier  
i:=2;
test:=true;
while (i<=x div 2)and(test) do
begin
if x mod i=0 then test:=false else inc(i);
end; }


 y:=0;
 for i:=1 to x do
 if x mod i=0 then inc(y);
 test:=y=2;
premier :=test;
end;


procedure affiche(N:integer);
var i:integer;
begin
for i:=1 to n do
if premier(i) and(premier(n-i)) then writeln('(',i:3,',',n-i:3,') est un couple premier');
end;

begin
saisir(NB);
affiche(nb);

end.


Dernière édition par haiethem le Mar 27 Mai - 16:03, édité 2 fois

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

Messages : 414
Points : 13858
Réputation : 3
Date d'inscription : 08/11/2010
Age : 40

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

Revenir en haut Aller en bas

Re: Bac pratique 2014

Message par haiethem le Mar 27 Mai - 16:00

26 - 05 - 2014 :
*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
Sujet 3 : 11 h 00 - 12 h 00 :

program _26_05_2014_11h00;
uses wincrt;


type tab=array[1..100] of integer;


var T,T1,T2,T3 :tab;
n:integer;




procedure saisir(var n:integer);
begin
repeat
writeln('Taper N svp '); readln(N);
until n in [5..30];
end;


function existe(x,nb:integer;T:tab):boolean;
var test:boolean;j:integer;
begin
test:=false;j:=1;
while (test=false)and(j<=nb) do
if t[j]=x then test:=true else inc(j);
existe:=test;
end;


procedure remplir(var t:tab; N:integer);
var i:integer;
begin
for i:=1 to n do
repeat
writeln('Taper un nombre num ', i, '  positif <99  et non deja saisi ');
readln(T[i]);
until (t[i]in [1..99]) and(existe(t[i],i-1,T)=false);
end;


procedure Tri(var T,T1:tab; N:integer);
var i,j,p:integer;
begin
for i:=1 to 99 do
T1[i]:=0;
for i:= 1 to N do
begin
p:=t[i];
T1[p]:=t[i];
end;
j:=1;
for i:=1 to 99 do
if t1[i]<>0 then begin
                 t[j]:=t1[i];
                 inc(j);
                 end;
end;


procedure affiche(T:tab;n:integer);
var i:integer;
begin
for i:=1 to n do
write(T[i]:2,'|');
writeln;
end;


begin
saisir(n);
remplir(T,N);
clrscr;
affiche(t,n);readkey;
Tri(t,t1,n);
affiche(t,n);
end.

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

Messages : 414
Points : 13858
Réputation : 3
Date d'inscription : 08/11/2010
Age : 40

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

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 pouvez répondre aux sujets dans ce forum