Corrigé bac pratique 2011 Sciences Informatique (10h 30 minute)

program nombre_rigolo;
uses wincrt;

type
tab=array[1..100] of integer;

var
nb,n,m:integer;
resultat:text;

Code:

procedure saisir(var n,m:integer);
begin
repeat
write('M= ');
readln(m);
until (m >100) and (m<999);
repeat
write('N= ');
readln(n);
until (n >m) and (n<1000);
end;

Code:

procedure creation(var resultat:text);
begin
assign(resultat,'resultat.txt');
rewrite(resultat);
end;

Code:

function somme_chiffre(i:integer):integer;
var
s:integer;
begin
s:=0;
repeat
s:=s+i mod 10;
i:=i div 10;
until i=0;
somme_chiffre:=s;
end;

Code:


procedure fact_premier(var t:tab;var f,s :integer;i:integer);
var
j:integer;
begin
f:=0;
s:=0;
j:=2;
repeat
if i mod j = 0 then
begin
i:=i div j;
f:=f+1;
t[f]:=j;
if j <10 then
  s:=s+j
    else
    s:=s+somme_chiffre(j);
end
else
j:=j+1;
until i=1;
end;


Code:

procedure generer(var resultat:text;var nb:integer;n,m:integer);
var
j,i,s,f:integer;
t:tab;
begin
nb:=0;
append(resultat);
for i:=m to n do
begin
fact_premier(t,f,s,i);
if somme_chiffre(i)=s then
begin
nb:=nb+1;
write(resultat,i,'=');
for j:=1 to f-1 do
write(resultat,t[j],'*');
writeln(resultat,t[f]);
end;
end;
end;

Code:

procedure afficher(var resultat:text;nb:integer);
var
ch:string;
begin
reset(resultat);
if nb=0 then
writeln('Il n''y a auccun nombre rigolo')
else
while not (eof(resultat)) do
begin
readln(resultat,ch);
writeln(ch);
end;
end;


Code:

begin
saisir(n,m);
creation(resultat);
generer(resultat,nb,n,m);
afficher(resultat,nb);
close(resultat);
end.

Merci Nejah pour le partage de la solution.
Nchallah Nejah.

NB: j'ai réédité ton message pour rendre le code plus lisible.

nabiL a écrit:Merci Nejah pour le partage de la solution.
Nchallah Nejah.

NB: j'ai réédité ton message pour rendre le code plus lisible.

Au plaisir Nabil

@nejah, comment tu évalues cet exercice? facile? difficile? moyen? par rapport au niveau des élèves cette année.

methodiX a écrit:
@nejah, comment tu évalues cet exercice? facile? difficile? moyen? par rapport au niveau des élèves cette année.

c'est un exercice qui représente un travail demandé qui est clair pour l'élève, et qui est à la portée des élèves par rapport à leur niveau cette année malgré que le taux de difficulté et le même par rapport aux autres examens des années précédentes.

@Nejah: comment tu évalues la complexité ou la difficulté d'un exercice de programmation par exemple? et celle d'un exercice de B.D?

Napoléon a écrit:@Nejah: comment tu évalues la complexité ou la difficulté d'un exercice de programmation par exemple? et celle d'un exercice de B.D?

la complexité d'un exercice de programmation reste un peu haute par rapport au niveau des élèves, en plus des difficultés de compréhension de l'énoncé à cause de la langue française qu'il ne maîtrise pas

j'ai eu une petite expérience avec les élèves du bac section info; j'ai proposé un exercice que je voyais très basique, ils ont trouvé qu'il est difficile et non standard "pas comme celui étudié en classe". J'ai vérifié avec le programme officiel. Tout ce que j'ai demandé n'est pas hors programme!

Comment expliquer ça?

informix a écrit:j'ai eu une petite expérience avec les élèves du bac section info; j'ai proposé un exercice que je voyais très basique, ils ont trouvé qu'il est difficile et non standard "pas comme celui étudié en classe". J'ai vérifié avec le programme officiel. Tout ce que j'ai demandé n'est pas hors programme!

Comment expliquer ça?

ça dépend des élèves, mais est ce que vous pouvez nous donner cet exercice pour l'évaluer ensemble?