BAC 2010 : Corrigé : Section informatique : Algorithmique (Principal)

Bonjour

Vous trouvez ici l'énoncé et le corrigé de l'épreuve d'algorithmique du Bac 2010, session principale, section Sciences de l'Informatique : Cliquer ici pour télécharger l'énoncé

Corrigé (à suivre) :

BAC 2010 - Session principale
Algorithmique et Programmation


PARTIE 1

Exercice 1 (2,5 point)

b) Ecrire(F, Ch): fausse. F est un fichier d'entiers, alors que Ch est de type Chaine de caractère. Ce qui génère une erreur de non compatibilité de type (Type Mismatch)

c) Pointer(F2, 4): fausse. F2 est un fichier texte. Il n'est pas à accès direct. On doit répéter 4 fois la lecture d'un caractère pour arriver à la position 4 dans le fichier F2.

d) Ecrire(F1, E.Age): fausse. F1 est un fichier structuré d'enregistrements de type TEmployer. Alors que E.Age est de type Octet. Incompatibilité de types.


Exercice 2 (4 points)

a) U est une suite d'ordre 2. Pour calculer le terme d'ordre n, il faut disposer du terme d'ordre n-1, et celui d'ordre n-2.

b) Analyse d'une fonction qui vérifie un entier "p" est un terme de la suite U ou non.

Nom de la fonction : TestU(p, un1, un2, r) : Entier

Traitement

Code:

Résultat = TestU(p, un1, un2, r)
TestU =
    SI (p=un1) ALORS
        TestU := r+1
    SINON
          SI (p=un2) ALORS
            TestU := r
        SINON
            SI (p<un1 + k*un2) ALORS
                        TestU := -1
                    SINON
                SI (p = un1 + k*un2) ALORS
                              TestU := r+2
        SINON
              TestU( p, un1 + k*un2, un1, r+1 )
        FINSI
                    FINSI
        FINSI
    FINSI
FIN TESTU


Correction en Pascal (non demandée par l’énoncé)

Code:



uses wincrt;
const k = 1;
function TestU(p: integer; un1, un2: integer; r: integer): integer;
begin
    IF (p=un1) then
        TestU := r+1
    ELSE
          IF (p=un2) then
            TestU := r
        ELSE
            IF (p
                  TestU := -1
              ELSE
                IF (p = un1 + k*un2) then
                      TestU := r+2
                ELSE
                  TestU := TestU(p, un1 + k*un2, un1, r+1 );
end;
var
  p: integer;
begin
  write('p = '); readln(p); 
  writeln('Résultat = ',TestU(p, 2, 1, 1));
end.


bonjours,

svp la variable r est définie par la valeur 0 ou koi!!!!!!

merci pour tout avance

elies162002 a écrit:bonjours,

svp la variable r est définie par la valeur 0 ou koi!!!!!!

merci pour tout avance

Bonjour,

"r" signifie le rang du dernier terme de la suite, qui vient d'être évalué.
"un1" signifie U(n-1)
"un2" signifie U(n-2)

J'espère que tu as compris maintenant.
J'attire ton attention que cet exercice est un peu délicat; ne te démoralise pas si tu sens que la solution est un peu floue ou très différente de ce que tu as pu imaginer.