Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

Page 1/3 Exercice n°1 : (1 point) Écrire la manière avec laquelle les variables

Page 1/3 Exercice n°1 : (1 point) Écrire la manière avec laquelle les variables suivantes s'affichent à l'écran : Déclaration Exemple Affichage 1 2 3 4 5 6 7 8 9 10 Var n :integer ; N:=218; WRITELN (n:2); 2 1 8 Var x: real; X:=19.5; WRITELN (x:7:2); 1 9 . 5 0 Var ch :string; 'Bac2017' WRITELN (ch:10); B a c 2 0 1 7 Var c: char; C:='B'; WRITELN (c:6); B Exercice n°2 : (2 points) Bac2007 Dans le tableau ci-dessous, remplir les deux colonnes « Résultat » et « Type du résultat » par le résultat et le type correspondant à chacune des expressions de la première colonne. Expression Résultat Type du résultat CONCAT(SOUS-CHAINE("Baccalauréat",1,3), "2007") Bac2007 Chaîne de caractères ( ("D"<"A") ET (ABS(-1)>0) ) Faux Booléen (15 DIV 3) MOD 2 1 Entier TRONC(7.25)+ARRONDI(7.23) 14 Entier Exercice n°3 : (2 points) Bac2009 Soient les déclarations Pascal suivantes : Type Langues_etrangeres=(Italien,Anglais,Espanol,Allemand) ; Jour_semaine=(Lundi,Mardi, Mercredi, Jeudi, Vendredi, Samedi, Dimanche) ; Var Aujourdui,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) ; X On ne peut pas lire une variable de type scalaire énuméré Aujourdhui :=Dimanche ; X Writeln(langue) ; X On ne peut pas afficher une variable de type scalaire énuméré N :=ord(langue) ; X Res :=aujourdhui<jour ; X Exercice n°4 : (2 points) Bac2008 Compléter le tableau ci-dessous, par les déclarations pascal adéquates: Description Déclaration en Pascal (préciser le mot clé adéquat : CONST, TYPE, VAR, etc.) Une chaîne ch de 20 caractères au maximum. Var ch : string[20] ; Un type tableau TAB pouvant contenir 5 chaînes. Type TAB=array[1..5] of string ; Une constante message de valeur « Bonne chance » Const message='Bonne chance' ; NB : cette copie doit être rendue à la fin de la séance. Devoir de contrôle n°1 Matière : Informatique Lycée : Abou el Kacem Chebbi Kalâa Kébira-Sousse Enseignant : N.DHIFALLAH Année scolaire 2016-2017 Coefficient : 1 Durée: 1 heure Date : Mercredi 26 novembre 2016 Classe : 4ème Mathématiques Nom : .......................... Prénom : ..................... N° : ............. Note : ......... / 20 Cours d’informatique en ligne : Corrigé Devoir de contrôle n°1- 4ème Mathématiques-Corrigé Année Scolaire 2016-2017 Page 2/3 Exercice n°5 : (2.5 points) 1) Traduire l'expression suivante en Pascal :   3 4 2 + x + x  = SQRT( ABS(4 *x + SQR(x)+3 ) ) 2) Évaluer les expressions suivantes :  2+ 2 * 10 div 7 + 9 mod 6 =2+20 div 7+9 mod 6=2+2+3 =7  NON (6-2<2) OU (10>5-4) ET (8=2) = Non(4<2) ou (10>1) et (8=2)= vrai ou vrai et faux = Vrai Non( Faux) ou vrai et faux faux  SUCC(CHR(ORD("B")+1) ="D"  Aléa(50)<0 ET arrondi(5.25)=5 OU Majus("A")<>"A" = Faux ET vrai OU faux = Faux Exercice n°6 : (2 points) Bac2012 Compléter le tableau suivant par les valeurs des variables indiquées : Instructions Valeurs Instructions Valeurs Valeur(''138.25'', N, E) N=138.25 N=0 E=0 E=4 Ch1 ← ''information'' Efface(ch1, 3, 6) Ch1= "inion" Convch(138.25, ch) Ch= "138.25" Ch1 ← ''information'' ch2 ← sous_chaine(ch1, 3, 6) Ch1= "information" Ch2= "format" Exercice n°7 : (1.5 points) Bac2008 Compléter les affectations suivantes par une valeur d’opérande ou d’opérateur permettant d’obtenir dans chacun des cas, la valeur voulue de Y : Affectation Valeur de Y Y :=round(99.51)= 100 ; True Y :=(upcase('a') in ['A'.. 'Z'] ) and ( 1 in [1..10] ); True Y :=length('PASCAL') mod 4 =2 ; True Y :=random(4) < 4 ; True Y :=pred('D') = chr(ord(' B ')+ 1) ; True Y :=copy('informatique',1,4) < > 'info' False Exercice n°8 : (7 points) On se propose de saisir un entier n composé de 3 chiffres puis de déterminer puis d'afficher un autre entier m composé par l'affichage inverse de n, enfin d’afficher si n est palindrome( c-à-d un nombre symétrique. exemples 121, 858…). Exemple :Donner un entier de 3 chiffres : 456 le chiffre inverse est : 654 non palindrome NB : -Le nombre m peut être formé en utilisant (convch et valeur) ou la formule : 4 + 5 * 10 + 6 * 100 = 654 -Un nombre est palindrome si n=m et non palindrome dans le cas contraire. 1) Donner un algorithme et le tableau de déclaration de valeurs correspondant 2) En déduire le programme pascal correspondant, l’enregistrer avec le nom chiffres.pas sous C:\BAC2017 1) Algorithme : 0)Début palindrome 1) Ecrire("Donner un entier de 3chiffres"), lire(n) 2) c n div 100 3) d(n mod 100) div 10 4) un mod 10 5) mc+10*d+100*u 6) Ecrire("le chiffre inverse est : ",m) 7) Si m=n alors écrire(n, " est palindrome") Sinon écrire (n , "n’’est pas palindrome") Finsi 8) Fin Palindrome T.D.O Objet Type/Nature Rôle C, d, u N M Entier Entier entier Centaine, dizaine, unité Entier à saisir Entier inverse de n Cours d’informatique en ligne : faux Devoir de contrôle n°1- 4ème Mathématiques-Corrigé Année Scolaire 2016-2017 Page 3/3 Pascal : Program palindrome ; Uses wincrt ; Var C,d,u,n ,m :integer ; Begin Writeln('Donner un entire de 3 chiffres :') ; Readln(n) ; C :=n div 100 ; D:=n mod 100 div 10; U:= n mod 10; M:=c+d*10+u*100; Writeln('le chiffre inverse est : ',m) ; If m=n then writeln (n ,' est palindrome’) Else writeln (n ,' n’’est pas palindrome’); End. Autre méthode : Program palindrome ; Uses wincrt ; Var n ,m,e :integer ; ch, chm:string; Begin Writeln('Donner un entire de 3 chiffres :') ; Readln(n) ; Str(n,ch); Chm:=ch[3]+ ch[2]+ ch[1]; { Chm:=concat(ch[3], ch[2], ch[1]); } Val(chm,m,e); M:=c+d*10+u*100; Writeln('le chiffre inverse est : ',m) ; If m=n then writeln (n ,' est palindrome’); Else writeln (n ,' n’’est pas palindrome’); End. Cours d’informatique en ligne : uploads/Litterature/ dc1-4maths-2016-2017-corrige 1 .pdf