Soit le programme suivant : - unBlog.fr

Exercice N° 1 :
Soit le programme suivant :
Program erreurs ;
Type
Eleves : (Ali, Safa, Sami, Wissem, Kamel) ;
Moyenne = 0 .. 20 ; Var
E1 : eleves ;
E2 : eleves ;
N1 : moyenne ;
N2 : moyenne ;
Reussir : boolean ;
Begin
E1 := "Safa" ;
N1 := ORD(Kamel) + 2 * succ(Ali) ;
E2 := Sami ;
N2 := 15 ;
Reussir := (n2 > 10) ;
End. 1) Corriger les erreurs du programme Pascal ci-dessus.
2) Evaluer les variables utilisées dans le programme.
Corrigé :
Program erreurs ;
uses wincrt;
Type
Eleves =(Ali, Safa, Sami, Wissem, Kamel) ;
Moyenne = 0..20 ; Var
E1 : Eleves ;
E2 : Eleves ;
N1,n3 : Moyenne ;
N2 : Moyenne ;
Reussir : boolean ;
Begin
E1 := succ(Safa) ;
N1 := ORD(Kamel) + 2 * ord(succ(Ali) );
E2 := Sami ;
N2 := 15 ;
Reussir := (N2 > 10) ;
writeln(n1);
writeln(n2);
writeln(reussir);
End. Exercice N° 2 : Soient les déclarations pascal suivantes :
Type
Jours_semaine = ( Lundi, Mardi, Mercredi, Jeudi, Vendredi, Samedi,
dimanche) ;
Langues_etrangeres = (Italien, Anglais, Espagnol, Allemand) ;
Var
Aujourdhui, jour : Jours_semaine ;
Langue : Langues_etrangeres ;
Res : boolean ;
N : integer ; Compléter le tableau ci-dessous en mettant une croix dans la colonne valide
ou dans la colonne non valide pour chaque instruction. Justifier votre
réponse pour les instructions non valides.
|Instruction |Valide |Non valide|Justification |
|Readln(jour) ; | | | |
|Langue :=Anglais ; | | | |
|Aujourdhui := | | | |
|Dimanche ; | | | |
|Writeln(langue) ; | | | |
|Res := aujourdhui < | | | |
|jour ; | | | |
|N :=ord(langue) ; | | | |
Corrigé :
program xxx;
uses wincrt;
Type
Jours_semaine = ( Lundi, Mardi, Mercredi, Jeudi, Vendredi, Samedi,
dimanche) ;
Langues_etrangeres = (Italien, Anglais, Espagnol, Allemand) ;
Var
Aujourdhui, jour : Jours_semaine ;
Langue : Langues_etrangeres ;
Res : boolean ;
N : integer ;
begin
Res := aujourdhui < jour ;
n:=ord(langue);
writeln(ord(espagnol)); writeln(res);
writeln(n);
end. |Instruction |Valide |Non valide|Justification |
|Readln(jour) ; | |x |On ne peut pas lire une |
| | | |variable de type scalaire |
| | | |énumérée. |
|Langue :=Anglais ; |x | | |
|Aujourdhui := |x | | |
|Dimanche ; | | | |
|Writeln(langue) ; | |x |On ne peut pas afficher une |
| | | |variable de type scalaire |
| | | |énumérée. |
|Res := aujourdhui < |x | | |
|jour ; | | | |
|N :=ord(langue) ; |x | | | Exercice N° 4 à la page 47: Corrigé :
a) Algo : |Objet |Type / Nature |Rôle |
|nom |String [20] |chaîne de 20 caractères au maximum | Pascal :
Var
Nom : string[20] ; b) Algo : |Objet |Type / Nature |Rôle |
|ent |Entier=0..100 |De 0 à 100 | Pascal :
Type
Entier = 0..100 ;
Var
Ent : entier ; c) Algo : |Objet |Type / Nature |Rôle |
|c |Car='A'..'Z' |Caractères alphabétiques |
Pascal :
Type
car = 'A'..'Z', 'a'..'z';
Var
c : car; d) Algo :