sujets Bac 2002(I)

Cette série d'exercices comporte tous les sujets d'algorithmique proposés aux épreuves pratiques d'informatique de la session de juin 2002 (baccalauréat tunisien -sections scientifiques).

Il est recommandé de décomposer chaque problème en plusieurs modules (fonctions ou procédures selon le besoin).

S1705092002

On se propose d’écrire un programme Pascal qui permet de calculer et d’afficher la somme des factorielles des chiffres d’un entier n donné (2 ≤ n ≤ 50). On donne 0! = 1.

Exemple :

Si n = 13 alors 7 sera affiché (1! + 3! = 7)

S1705102002

Écrire un programme Pascal qui permet de former puis d’afficher un entier r de quatre chiffres à partir de deux entiers m et n strictement positifs et formés chacun de deux chiffres et ceci en intercalant le nombre n entre les deux chiffres de m.

Exemple :

Si m=56 et n=21 alors l’entier r sera égal à 5216.

S1705142002

On se propose de répéter le traitement ci-dessous pour un entier n.

1- Si le nombre est impair alors on le multiplie par 3 et on lui ajoute 1

2- Si le nombre est pair alors on le divise par 2.

Il est éventuel que le nombre 1 apparaisse lors des n premières répétitions.

Écrire un programme Pascal qui permet d’appliquer ce traitement à tous les entiers compris entre A et B (2 £ A < B £ 50) et d’afficher chaque entier qui arrive à 1 dans un nombre de répétitions strictement inférieur à sa valeur.

Exemple :

L’entier 10 sera affiché car il arrive à 1 après 6 répétitions (6 < 10)

S1705152002

On se propose de répéter le traitement ci-dessous pour un entier n.

3- Si le nombre est impair alors on le multiplie par 3 et on lui ajoute 1

4- Si le nombre est pair alors on le divise par 2.

Il est éventuel que le nombre 1 apparaisse lors des 10 premières répétitions.

Écrire un programme Pascal qui permet d’appliquer ce traitement à tous les entiers compris entre A et B (2 £ A < B £ 50) et d’afficher ceux qui arrivent à 1 lors des 10 premières répétitions.

Exemple :

L’entier 10 sera affiché car il arrive à 1 après 6 répétitions.

S1805092002

Une anagramme est un mot obtenu par transposition des lettres d’un autre mot (par exemple chien, chine sont des anagrammes du mot niche).

Écrire un programme Pascal qui permet de saisir deux mots non vides MOT1 et MOT2 puis de déterminer si MOT2 est une anagramme de MOT1.

S1805102002

Écrire un programme Pascal permettant de déterminer et d’afficher la moyenne d’une classe MC de n élèves (10 ≤ n ≤ 30) ainsi que le nombre d’élèves qui ont une moyenne supérieure ou égale à MC.

Les moyennes des élèves sont des réels de l’intervalle [0, 20].

S1805142002

Écrire un programme Pascal qui simule le jeu suivant :

- à tour de rôle, l’ordinateur et l’utilisateur choisissent un nombre parmi : 0, 1 ou 2

- si la différence entre les deux nombres choisis vaut :

§ 2, le joueur qui a proposé le plus grand nombre gagne un point.

§ 1, le joueur qui a proposé le plus petit nombre gagne un point.

§ 0, aucun point n’est marqué.

- le jeu se termine quand l’un des deux joueurs totalise 10 points. Ce joueur sera considéré comme gagnant.

Remarque :

Pour un choix aléatoire fait par l’ordinateur, on pourra utiliser la fonction RANDOM.

S1805152002

On se propose de remplir un tableau TRESULTAT par les éléments d’un tableau T contenant n entiers positifs (3 ≤ n ≤ 10) en utilisant leurs positions rangées dans un tableau TPOS. Les positions de deux éléments consécutifs de T sont séparées dans le tableau TPOS par un élément de valeur 0.

NB : Les éléments de T sont supposés saisis différents deux à deux. On ne fera pas de test sur cette contrainte.

Écrire un programme Pascal qui permet de reconstituer le tableau TRESULTAT à partir des tableau T et TPOS.

Exemple :

TRESULTAT contiendra

S2005092002

Écrire un programme Pascal qui réalise le traitement suivant :

- choisir un entier n de l’intervalle [2,9] et un entier Max de l’intervalle [10,99]

- afficher tous les entiers de l’intervalle [1,Max] en remplaçant par le caractère ‘*’ tous les multiples de n ainsi que tous les entiers dont l’écriture contient le chiffre n.

Exemple d'exécution

Si n = 4 et Max = 18 alors la liste suivante sera affichée :

1 2 3 * 5 6 7 * 9 10 11 * 13 * 15 * 17 18

S2005102002

Écrire un programme Pascal qui réalise le traitement suivant :

- choisir un entier n de l’intervalle [100,500] et un entier m de l’intervalle [10,99]

- afficher tous les entiers de l’intervalle [1,m] en remplaçant par le caractère ‘*’ tous les diviseurs de n ainsi que tous les entiers comportant dans leurs écritures le chiffre des unités de n.

Exemples d'exécution:

Si n=100 et m=20 alors la liste suivante sera affichée:

* * 3 * * 6 7 8 9 * 11 12 13 14 15 16 17 18 19 *

S2005142002

Soit un tableau T de 20 entiers positifs. Écrire un programme Pascal qui permet d’afficher les éléments de T compris entre deux positions P1 et P2, leur moyenne arithmétique, la valeur maximale et la valeur minimale contenues dans cet intervalle.

On donne 1 £ P1 < P2 £ 20.

S2005152002

Soit le tableau T suivant :

Pour chaque élément de T on ne garde que sa première occurrence et on remplace les autres par 0.

On regroupe les éléments restant au début du tableau T.

Écrire un programme Pascal qui fait le traitement ci-dessus pour un tableau T de n (2 £ n £ 20) entiers positifs non nuls et détermine et affiche le nombre d’éléments différents de T.

S2105092002

Écrire un programme Pascal qui saisit une phrase et l’affiche renversée. La phrase commence, obligatoirement, par une lettre et ses mots sont séparés par un seul espace.

Exemple:

Votre phrase:

RESOLUTION DE PROBLEMES

Résultat:

PROBLEMES DE RESOLUTION

S2105102002

On se propose de chercher les entiers de l’intervalle [m, n] admettant le plus de diviseurs. Les entiers m et n vérifient la condition 5 ≤ m < n ≤ 100.

Pour cela, écrire un programme Pascal permettant de chercher puis d’afficher ces entiers ainsi que le nombre de leurs diviseurs.

S2105142002

Écrire un programme Pascal permettant de décomposer un entier N donné (2 £ N £100) en produit de facteurs premiers et d’afficher N et le produit de ses facteurs trouvés .

Exemple :

Si N = 60 alors on affiche 60 = 2*2*3*5

S2105152002

On veut écrire un programme Pascal permettant de supprimer les espaces superflus dans une chaîne de caractères.

Exemple :

Si la chaîne est ‘VVTravauxVVVpratiquesVV’
alors l’exécution du programme donnera la chaîne=’Travaux Vpratiques’



S2205092002

Écrire un programme Pascal qui permet de remplir un tableau T par n entiers
( 2 £ n £ 20 ) puis d’afficher les éléments d’un deuxième tableau M rempli de la manière suivante :

Si k=1 ou k=n alors M[k]=T[k]

sinon M[k]= (T[k-1] + T[k+1])/2

S2205102002

L’entier 36 a la propriété d’être divisible par la somme de ses chiffres, en effet 3+6 = 9 divise 36.

On se propose d’écrire un programme Pascal qui cherche et affiche tous les entiers naturels d’un intervalle [a, b] donné, (5 ≤ a < b ≤ 200) ; ayant cette propriété.

S2205142002

On se propose de chercher parmi les entiers de l’intervalle [2 , 9] celui qui admet le plus grand multiple inférieur ou égal à un entier donné N ( 20 < N < 50).

Écrire un programme Pascal permettant de chercher puis d’afficher cet entier ainsi que son multiple.

Exemple :

Pour N=49 le plus grand multiple des entiers de l’intervalle [2 , 9] est l’entier 49 qui est un multiple de 7.

Dans ce cas les valeurs 7 et 49 seront affichées.

N.B :

1- La solution doit comporter au moins deux modules.

2- Le candidat doit traiter les cas des ex æquo (le cas où il y’a plusieurs entiers admettant le plus grand multiple).

S2205152002

Écrire un programme Pascal permettant d’afficher tous les couples d’entiers naturels (m , n) vérifiant la propriété suivante :
m Î [1 , 100] et n Î [2 , 15]


et m figure dans l’écriture du produit m.n



Exemples :

1) Si m = 20 et n = 6

alors le produite m.n = 120 contient le nombre 20 dans ce cas le couple (20,6) sera affiché.

2) Si m = 20 et n = 12

alors le produite m.n = 20*12 = 240 ne contient pas le nombre 20

S2305092002

On veut écrire un programme en Pascal permettant d’afficher tous les entiers naturels formés de quatre chiffres dont la somme donnera un entier d’un seul chiffre.

Exemple :
La somme des chiffres de l’entier 2004 est égale à 6 (2+0+0+4=6) et par conséquent l’entier 2004 sera affiché.



N.B :

La solution doit comporter au moins deux modules.

S2305102002

On se propose d’afficher un histogramme à l’aide des lettres A, B et C comme celui de l’exemple ci-dessous.

Écrire un programme Pascal qui saisit le nombre de A, le nombre de B et le nombre de C puis affiche l’histogramme correspondant. Les nombres sont des entiers naturels inférieurs ou égaux à 15.

Exemple d'exécution:

Entrer trois nombres entiers compris entre 0 et 15: 6, 9, 3

B
B
B
A B
A B
A B
A B C
A B C
A B C



S2305142002

Écrire un programme Pascal qui permet de saisir les résultats de (N-1) matchs de football d’une équipe et d’afficher le nombre de matchs gagnés, nuls et perdus ainsi que le nombre de points correspondants. N est un entier tel que 10 ≤ N ≤ 14.

Le nombre de points attribués est de trois pour un match gagné, un pour un match nul et zéro pour un match perdu.

S2305152002

Écrire un programme Pascal qui permet de chercher puis d’afficher tous les entiers naturels de l’intervalle [1000, 2000] qui vérifient la propriété suivante :

La somme des chiffres des unités et des dizaines est égale au produit du chiffre des centaines par celui des milliers.

Exemple :

L’entier 1954 sera affiché car 4 + 5 = 9*1

N.B :

La solution doit comporter au moins deux modules.

S2405092002

On dispose de deux tableaux T1 et T2 contenant respectivement n éléments (5 ≤ n ≤ 20). Les éléments de T1 sont des entiers naturels différents deux à deux et ceux de T2 sont des entiers naturels représentant des fréquences de façon que T2[i] est la fréquence de T1[i].



On se propose d’écrire un programme Pascal qui permet de saisir les éléments de T1 et de T2 puis d’afficher les éléments de T1 qui ont une fréquence supérieure ou égale à 10.

S2405102002

Écrire un programme Pascal qui permet de saisir un entier n (100£ n £ 10000) et de déterminer et d’afficher tous ses chiffres qui le divisent.

Exemple :

Si N = 2376 alors les chiffres 2, 3 et 6 seront affichés.

S2405142002

Écrire un programme Pascal qui permet d’afficher tous les entiers de l’intervalle [10000, 20000] tel que le chiffre du milieu est égal à la somme des autres chiffres.

Exemple :

12942 sera affiché car : 1+2+4+2=9

S2405152002

On appelle poids d’un mot la somme des produits de la position de chaque voyelle contenue dans le mot par son rang dans l’alphabet français.

Une lettre a le même rang qu’elle soit écrite en majuscule ou en minuscule.

Écrire un programme Pascal qui calcule et affiche le poids d’un mot donné.

Exemple :

Le mot « Épreuve » a pour poids 165 car :

(1*5) + (4*5) + (5*21) + (7*5) = 165

S1705102002

Écrire un programme Pascal qui permet de former puis d’afficher un entier r de quatre chiffres à partir de deux entiers m et n strictement positifs et formés chacun de deux chiffres et ceci en intercalant le nombre n entre les deux chiffres de m.

Exemple :

Si m=56 et n=21 alors l’entier r sera égal à 5216.

solution
program xx;
uses wincrt;
var
m,n,e1,e2: integer ;
r,ch,ch1,ch2: string;
begin
writeln( 'saisir deux entier' );
readln(m,n);
if (m >0 )and( n > 0) then
begin
e1:= m div 10;
e2:= m mod 10;
end
else writeln ('erreur');
str (e1,ch1);
str(e2,ch2);
str(n,ch);
r:= concat(ch1,ch,ch2);
writeln('entier est',r);
end. ( ameni 4sc4)

très bien Amani mais la saisie de m et n est une saisie contrôlée donc on va utiliser repeat .. until
pour insérer les chiffres il suffit d'extraire les chiffres des unités et des dizaine (u:chiffre unité de m et d: chiffre unité de centaibe de m; d*1000 + n*100 +u) bon travail

program S2105092002;
uses wincrt;
var
ph,ch:string;
begin
writeln('saisir une chaîne');
readln(ph);
ch:='';{initialisation de la chaîne résultat}
while (pos(' ',ph)<>0) do
begin
ch:=copy(ph,1,pos(' ',ph))+ch;
delete (ph,1,pos(' ',ph));
end;
ch:=ph+ ' '+ch;
writeln(ch);
end.

program S2105152002;
uses wincrt;
var
ch:string;
begin
writeln('saisir une chaîne');
readln(ch);
while (pos(' ',ch)<>0) do
delete (ch,pos(' ',ch),1);
if ch[1]=' ' then
delete(ch,1,1);
if ch[length(ch)]=' ' then
delete (ch,length(ch),1);
writeln(ch);
end.

program ex;
uses wincrt;
var
u,d,c,m,n:integer;
procedure saisir ( n: integer);
begin
repeat
writeln ('saisir n');
readln(n);
until ( n<2000 ) and (n>1000);
end;
procedure traitement( var n,u,d,c,m:integer);
var
i:integer;
begin
for i:=1 to n do
u:= n mod 1000;
d:= n div 100 mod 10;
c:=n div 10 mod 10;
m:=n div 1000;

if (u+d)=(m*c) then
writeln(n);
end;
begin
saisir(n);
traitement(u,n,c,d,m);
writeln(n);
end.
bac 2002(s 2305152002)
j'ai essayé de résoudre ce problème mais j'ai pas trouver la solution.
veuillez m'aider !!! merci d'avance

très bien amani, mais ta solution a besoin d'une légère modification:
program ex;
uses wincrt;
var
u,d,c,m,n:integer;
procedure saisir (var n: integer);
begin
repeat
writeln ('saisir n');
readln(n);
until ( n<2000 ) and (n>1000);
end;
procedure traitement(n:integer);
var
u,d,c,m:integer;
begin
u:= n mod 10;
d:= n mod 100 div 10;
c:=n mod 1000 div 100;
m:=n div 1000;
if (u+d)=(m*c) then
writeln(n)
else
writeln('la condition n''est pas vérifiée');
end;
begin
saisir(n);
traitement(n);
end.
RQ: on ne va pas demander à l'utilisateur de saisir un entier mais on va afficher tous les entiers entre 1000 et 2000 qui vérifient la condition. j'attends la bonne réponse

bac s2405152002
program poidv;
uses wincrt;
var
ch:string;
procedure saisie( var ch:string);
var
i:integer;
begin
writeln('saisir ch');
readln(ch);
end;

function poids( ch:string):integer;
var
p,i,r:integer;
begin
p:=0;
for i:=1 to length(ch) do
begin
if upcase (ch[i]) in['A' ,'E', 'I', 'U', 'Y' ] then
r:= ord (upcase (ch[i]))-64;
p:=p+r*i;
end;
poids:=p ;

end;
begin
saisie (ch);
write( 'ch :',ch,' son poids:',poids(ch));
end.

RQ: lors de l'execution il s'affiche pour le mot' épreuve' (-28209) et non pas(165) comme il est indiqué dans le sujet!!!!
veuillez m'aider à retrouver la bonne réponse!merci

S1805092002

Une anagramme est un mot obtenu par transposition des lettres d’un autre mot (par exemple chien, chine sont des anagrammes du mot niche).

Écrire un programme Pascal qui permet de saisir deux mots non vides MOT1 et MOT2 puis de déterminer si MOT2 est une anagramme de MOT1.

suggestion :
program anagramme;
uses wincrt;
var
mot1,mot2: string;
procedure saisie( var mot: string);
begin
writeln(' saisie mot');
readln( mot);
end;
procedure permut( var a,b : char);
var
c: char;
begin
c:=a;
a:=b;
b:=c;
end;
function tri(mot: string):string ;
var
i:integer;
begin
for i:=1 to length(mot) do
begin
if mot[i]>mot[i+1] then
permut(mot[i],mot[i+1]);
end;
end;
procedure affichage( mot1,mot2:string);
begin
if tri(mot1) =tri(mot2)then
writeln( mot1,' anagramme ',mot2)
else
writeln('nn');
end;
begin
saisie(mot1);
saisie(mot2);
affichage(mot1,mot2);
end.

program anagramme;
uses wincrt;
var
mot1,mot2: string;
procedure saisie( var mot: string);
begin
writeln(' saisie mot');
readln( mot);
end;
procedure permut( var a,b : char);
var
c: char;
begin
c:=a;
a:=b;
b:=c;
end;
function tri(mot: string):string ;
var
i:integer;
begin
for i:=1 to length(mot) do
begin
if mot[i]>mot[i+1] then
permut(mot[i],mot[i+1]);
end;
tri:=mot;
end;
procedure affichage( mot1,mot2:string);
begin
if tri(mot1) =tri(mot2)then
writeln( mot1,' anagramme ',mot2)
else
writeln('nn');
end;
begin
saisie(mot1);
saisie(mot2);
affichage(mot1,mot2);
end.