Bac pratique 2014

par **haiethem** 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.

par **haiethem** 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.

Bac pratique 2014

Bac pratique 2014

Re: Bac pratique 2014