1 Année scolaire : 2015/2016 Devoir de contrôle N° 2 Date : 10/02/2016 Enseigna

1 Année scolaire : 2015/2016 Devoir de contrôle N° 2 Date : 10/02/2016 Enseignant : HADHRI Aymen Matière : Informatique Durée : 1 heure Lycée : Abou El Kacem Chebbi Classe : 3ème Sciences Techniques Note : Exercice 1 : Soit le programme suivant : program TEST; uses wincrt; type JOUR=(Lundi,Mardi,Mercredi,Jeudi,Vendredi,Samedi,Dimanche); Tab=array[Lundi .. Dimanche] of …………………………. ; var E: ……………………………; B: ……………………………; C: ……………………………; D : ……………………………; M, A : ……………………….. ; begin D[Mardi]:= CONCAT (‘Bon’,’jour’); D[Jeudi]:= COPY (‘Disquette’,1,6); STR(2014,D[Samedi]); D[Lundi]:=’Bon’+’Bon’; D[Mercredi]:=upcase(‘b’); D[Vendredi]:=upcase(‘$’); D[Dimanche]:=upcase(’M’); E := SUCC(Mardi) ; B := ORD (Samedi) < 5 MOD 3; C:=’TVA=18%’; Val(copy(C,5,2),M,A); end. a) Compléter les pointillés ci-dessus. b) Compléter les variables suivantes par leurs noms et leurs contenus, après exécution de programme TEST ……….. ……….. ……….. ……….. ……….. ……….. ……….. ……….. ……….. ……….. ……….. ……….. ……….. ……….. ……….. ……… ……….. Exercice 2 : Compléter le tableau suivant : Instructions Résultat Déclaration des variables en Pascal N1:= Concat(Copy(‘cartable’,4,5),’ ‘,’rouge’) ; N1=…………… …………………………… N2:= Trunc(17,2) Mod 3 = Length(‘cartable’) Div 2 ; N2=…………… …………………………… N3:= Succ(5) - Abs(-2.5) ; N3=…………… …………………………… N4:= (Pred(7) * 4) Div 6 ; N4=…………… …………………………… N5:= Upcase(Pred(‘b’)) ; N5=…………… …………………………… N6:= Non(Round(12,59)<Trunc(13,79)) Et ‘a’>’AA’ ; N6=…………… …………………………… N7:= Pos(‘voir’,’devoir’) ; N7=…………… …………………………… ……… ……….. ……… ……….. ……… ……….. ……… ……….. 2 Exercice 3 : Soit les affectations suivantes : 1. T ‘’Bonjour’’ 2. Ch  ‘’Bonne chance’’ 3. R  11.75 4. X  26 Compléter les instructions suivantes afin d’obtenir la valeur voulue de Y : Instructions Valeur de Y Y ……………………………(T[3])=’’N’’ Vrai Y ……………………………(T[1])=’’A’’ Vrai Y  ……………..(X)=27 Vrai Y (X ………….. 4)=2 Vrai Y (X ………….. 4)=6 Vrai Y ARRONDI (R)= ………………….. (Ch) Vrai Y ……………………….. (‘’ne’’,Ch)=4 Vrai Y ……………………. (R)=11 Vrai Y ………..………. (T,’’ ‘’,Ch)=’’Bonjour Bonne chance’’ Vrai Y  ……………..(Ch[9])=97 Vrai Y ……………………………..(Ch,7,6)=’’chance’’ Vrai Y T[1]+Ch[9]+Ch[11]=…………………….. Vrai Exercice 4 : 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) ; Exercice 5 : compléter les fonctions et les procédures applicables sur les chaines de caractères : Algorithmique Nombre de paramètres Pascal Delete Pos Length 3 Copy Concat n Convch Val 3 Exercice 6 : Compléter le schéma suivant : Exercice 7 : Compléter l’algorithme suivant pour permuter et afficher les contenus des variables A et B 0) Début PERMUTATION 1) Ecrire (‘’A=’’) 2) Lire (A) 3) Ecrire (‘’B=’’) 4) Lire (B) 5) ……………………… 6) ……………………… 7) ……………………… 8) Ecrire (‘’A=’’,…………,’’B=’’,…………) 9) Fin PERMUTATION Exercice 8 : compléter le tableau suivant Description Déclaration en pascal Une chaîne CH de 50 caractères au maximum Un type COULEUR contenant les identificateurs suivants : jaune, vert, bleu, jaune Un tableau T dont les indices sont de type entier pouvant contenir 15 caractères Une constante PI de valeur 3.14 Un objet informatique ........................... ………………… ………………… ………………… ………………… ………………… ………………… …………… …………… …………… …………… …………… …………… …………… …………… uploads/Geographie/ devoir-de-controle-n02-2015-2016-mr-hadri-aymen-abou-el-kacem-chebbi.pdf

  • 42
  • 0
  • 0
Afficher les détails des licences
Licence et utilisation
Gratuit pour un usage personnel Attribution requise
Partager