Bac pratique 2014

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

haiethem

Messages : 409
Points : 13520
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

haiethem

Messages : 409
Points : 13520
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 ne pouvez pas répondre aux sujets dans ce forum