Pages - Menu

Pages

Examen final Programmation Pascal

Exercice 1 (cf. programme « variables ») : (10 points)

1.  Pour les lignes numérotées du programme « variables » ci-dessous, des affirmations sont faites. Indiquez par une croix si elles sont vraies ou fausses.




2.  Donner le résultat des différents affichages du programme dans le tableau ci contre. Respectez l‘ordre dans lesquels les affichages apparaissent au
cours de l‘exécution du programme.

Exercice 2 : (10 points)
Faire un programme qui demande à l‘utilisateur de rentrer une phrase et qui l‘informe si cette phrase est un palindrome (mot ou groupe de mots qui peut être lu indifféremment dans les deux sens, de gauche à droite ou de droite à gauche) .
Voici 4 exemples : Laval, Ici, Elle, Esope reste ici et se repose.
Pour la phrase, vous utiliserez une chaîne de caractères (50 caractères au maximum)

-------------------------------------------------------------------------------------------------

1 Program Variables ;
2
3 Uses Crt ;   
4
5 Const c = 5 ;
6
7 Var  a, b  : INTEGER ; 
8
9
10  { *********************************************** }
11  
12  Procedure calcul_1 (z : INTEGER ; var x : INTEGER ) ;
13  
14  Var y : INTEGER ;
15  
16  Begin
17    y := x * z + a ;
18    Writeln(x,y,z) ;
19    x := y + 1 - b ;
20    z := z * 2 + c ;
21    y := 0 ;
22    Writeln(x,y,z) ;
23  End ;
24  
25  { ********************************************** }
26  
27  Function calcul_2 ( a , b : INTEGER ) : INTEGER ;
28  
29  Var x : INTEGER ;
30  
31  Begin
32    x := a + b + c ;
33    Writeln(x,a,b) ;
34    a := x * 2 ;
35    b := x + 2 ;
36    x := 2 ;
37    Writeln(x,a,b) ;
38    Calcul_2 := x
39  End ;
40  
41  
42  { ********************************************** }
43  
44  Begin 
45    a := 1 ;
46    b := a * 2 ;
47    Writeln(a,b,c);
48    Calcul_1 (a,b);
49    Writeln(a,b,c);
50    a := Calcul_2 (b,c);
51    Writeln(a,b,c);
52  End.
-------------------------------------------------------------------------------------------------

                             

Aucun commentaire:

Enregistrer un commentaire