Sujets Bac 2008

program mai23_08_10h30;
uses wincrt;
type
tab = array[1..30]of string[8];
var
t:tab;
i,n:integer;

procedure saisie( var n:integer);
begin
repeat
writeln('saisir n');
readln(n);
until n in [4..30];
end;
function verif (ch:string):boolean;
var j:integer;
begin
j:=1;
while (ch[j] in ['0'..'9']) and (j<8)do
begin
j:=j+1;
end;
verif := ch[j] in ['0'..'9'];
end;
function exist (t:tab;i:integer):boolean;
var
j:integer;
begin
j:=0;
repeat
j:=j+1;
until (t[j] = t[i]) or (j=i-1);
exist:=t[i] = t[j];
end;
procedure remplir(var t:tab; n:integer);
begin
repeat
write('saisir t[1]= ');
readln(t[1]);
until (length(t[1])=8 and (verif (t[1]));
for i:=2 to n do
repeat
write('saisir t[',i,']= ');
readln(t[i]);
until (length(t[i])=8 and (verif(t[i])) and not(exist(t,i)) ;
end;
procedure affichage(t:tab; n:integer);
begin
for i:=1 to n do
writeln('t[',i,']= ',t[i]);
end;
{pp}
begin
saisie(n);
remplir(t,n);
affichage(t,n);
end.

22 Mai 2008 10H 30
on se propose d'écrire un programme Pascal permettant de déterminer et d'afficher un code à partir d'un entier N strictement positif et supérieur à 100, selon le principe suivant:

1. calculer la somme S des chiffrres qui composent le nombre N
   
2. recommencer le calcul de la somme des chiffres de la somme obtenue S tant que celle-ci n'est pas comprise entre 1 et 9
   
3. le code sera le nombre formé par N auquel on place à sa gauche la dernière somme obtenue.
   

exemple: pour N = 9867, le programme affichera: le code est: 39867
en effet: pour N = 9867:

• la 1ère somme S vaut 30 ( car 9+ 8+ 6+ 7 = 30)
  
• la 2ème somme vaut 3 (car 3+ 0=3)
  
• Etant donné que la dernière somme S, qui vaut 3, est comprise entre 1 et 9, le code sera 39867
  suggestion :
  

program espoir bac;
uses wincrt;
var
n:integer;
ch:string;
procedure saisie(var n:integer);
begin
repeat
writeln('n=');
readln(n);
until (n>0) and( n>100); si n>100 alors n>0
end;
ction calcul ( var n:integer):string;
var
i,a,e,s:integer;
ch,c,nb:string;
begin
str(n,ch);
for i:= 1 to length(ch) do
begin
repeat
val(ch[i],a,e);
s:=0;
s:=s+a;
until s in[1..9];
str(s,c);
nb:=c+ch;
end;
calcul:=nb;
end;

begin
saisie(n);
writeln('le code est',calcul(n))
end.

correction
program espoirbac;
uses wincrt;
var
n:integer;
ch:string;
procedure saisie(var n:integer);
begin
repeat
writeln('n=');
readln(n);
until ( n>100);
end;
function calcul ( var n:integer):string;
var
i,a,e,s:integer;
ch,c,nb:string;
begin
str(n,ch);

repeat
s:=0;
for i:= 1 to length(ch) do
begin
val(ch[i],a,e);
s:=s+a;
end;
str(s,ch);
until s in[1..9];
str(n,c);
calcul:=ch+c;;
end;
begin
saisie(n);
writeln('le code est',calcul(n))
end.

22 Mai 2008 14H:
Ecrire un programme Pascal qui permet de:

remplir un tableau T, d'une façon automatique et aléatoire, par N entiers strictement positifs, inférieurs ou égaux à 1000, avec (5 <= N <= 30)

vérifier pour l'élément de T d'indice P donné, s'il est égale à la somme d'un certains nombre d'éléments consécutifs de T qui le précèdent immédiatement. Dans ce cas, le programme affiche ces éléments, sinon il affiche "Condition non vérifiée".

Exemple 1: pour le tableau T suivant, avec N=7 et P=5

3

2

4

6

12

18

20

le programme affiche:6, 4, 2
Exemple 2: pour le tableau T suivant, avec N=7 et P=3

3

2

4

6

12

18

20

le programme affiche le message:"Condition non vérifiée".


program bacreussite;
uses wincrt;
type
tab= array[1..1000] of integer;
var
n:integer;
t:tab;

procedure saisie(var n:integer);
begin
repeat writeln('n=');
readln(n);
until n in [5..30];
end;
procedure remplir ( var t:tab);
var
i: integer;
begin
for i:=1 to n do
begin
randomize ;
writeln('t[',i,']=');
readln(t[i]);
end;
end;
procedure traitement(var t:tab;n :integer);
var
p,i,a:integer;
begin
writeln('p=');
readln(p);
a:=p+1;
for i:=1 to n do
begin
if (a =t[i]) and (a=t[i]+1) then
writeln('condition vérifiée')
else writeln('non vérif.');

end;
end;
begin
saisie(n);
remplir(t);
traitement(t,n);

end.
malheuresement !j'ai pas compris le sujet!