bac pratique2008-correction

Série De Révision Pratique
Correction

Sujet 22mai 14h
program p22mai14h;
uses wincrt;
type tab=array[1..30] of integer;
var
i,p,n,x:integer;
t:tab;

procedure saisie(var n:integer;var t:tab;var p:integer);
var
i:integer;
begin
repeat
writeln('introduire n');readln(n);
until n in [5..30];
randomize;
for i:=1 to n do
t[i]:=random(1000)+1;
repeat
writeln('introduire un indice p');readln(p);
until p in [2..n];
end;

function verif(t:tab;x:integer):integer;
var
tr,s:integer;
begin
tr:=0;
i:=x-1;
s:=0;
repeat
s:=s+t[i];
i:=i-1;
if s=t[x] then tr:=i;
until((tr<>0) or (i=0));
verif:=tr;
end;

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

begin
saisie(n,t,p);
affiche(t,n);
x:=verif (t,p);
if x=0 then writeln('condition non vérifiée')
else
begin
for i:=x to p-1 do
write(t[i], ' ');
end;

end.


Sujet 22mai9h
program p22mai9h;
uses wincrt;

var n :longint;

procedure saisir(var x:longint);

begin
repeat
writeln('saisir un entier naturel>9');
readln(x);
until (x>9);
end;

procedure calcul(x:longint);
var i,z,y,e:integer;
ch:string;
t:array[1..50]of integer;
begin
str(x,ch);
for i:=1 to (length(ch)) do
begin
val (ch[i],z,e);
t[i]:=z;

end;
val (ch[1],y,e);
for i:= 2 to (length(ch)) do
begin
y:= y+t[i];
if (y>=9) then y:= y-9;
end;

if (y=0) then writeln('le nombre est divisible par 9');
if (y<>0) then writeln ('le nombre n''est pas divisible par 9');
end;

Sujet 22mai15h
program p22mai15h;
uses wincrt;
type tab= array [1..30] of string;
var i,n,j:integer;
t:tab;

procedure saisie(var n:integer;var t:tab);
var
i:integer;
begin
repeat
writeln('saisir n');
readln(n);
until n in [3..30];
for i:=1 to n do
begin
writeln('saisir t[',i,'] ');
readln (t[i]);
end;
end;

procedure supprime (var t:tab;n:integer );
var l,i,j:integer; ch:string;
begin
for j:=1 to n do
begin
ch:=t[j];
l:=length(ch);
i:=0;
repeat
i:=i+1;
if not (upcase(ch[i]) in ['A'..'Z']) then
delete (ch,i,1);

until(i=l);
writeln(j,'**',ch);
end;
end;

begin
saisie (n,t);
supprime (t,n);
end.

Sujet23mai9h
program p23mai9h;
uses wincrt;
var
ch,m:string;
procedure saisie(var m:string);
begin
repeat
readln(m);
until length(m) in [4..8];
end;

procedure codage(s:string;var mp:string);
var
c:char; i:integer; x:string;
begin
mp:='';
for i:=1 to length(s) do
begin
c:=s[i];
case c of
'0': x:='-----' ;
'1': x:='.----' ;
'2': x:='..---' ;
'3': x:='...--' ;
'4': x:='....-' ;
'5': x:='.....' ;
'6': x:='-....' ;
'7': x:='--...' ;
'8': x:='---..' ;
'9': x:='----.';
end;
mp:=mp+x+'?';
end;
end;
begin
saisie(ch);
codage(ch,m);
writeln('le code est',m);
end.


Sujet 23mai10h30
program p23mai10h30;
uses wincrt;
type tab=array[1..30] of string[10];

var
t:tab;n:integer;
procedure saisie1(var n:integer);
begin
repeat
writeln('introduire n');readln(n);
until n in [1..30];
end;


procedure saisie(var t:tab;n:integer);
var
x1:string;
j:integer;
trouve:boolean;

function existe(t:tab;n:integer;x:string):boolean;
var
tr:boolean;i:integer;
begin
i:=0;
tr:=false;
repeat
i:=i+1;
if t[i]=x then tr:=true;
until (tr or (i=n)) ;
existe:=tr;
end;

begin
for j:=1 to n do
begin
repeat
writeln('introduire l''élément d''indice ',j);readln(x1);
trouve:= existe(t,n,x1) ;
until ((length(x1)= and (trouve=false)) ;
t[j]:=x1;
end;
end;
procedure affiche(t:tab;n:integer);
var
i:integer;
begin
for i:=1 to n do
writeln(t[i]);
end;
begin
saisie1(n);
saisie(t,n);
affiche(t,n);
end.