DC 01 4 Sc 2 A .pdf


Nom original: DC 01 - 4 Sc 2 A.pdfTitre: DC 01 - 4 Sc 2 AAuteur: hp

Ce document au format PDF 1.4 a été généré par PDFCreator Version 1.5.0 / GPL Ghostscript 9.05, et a été envoyé sur fichier-pdf.fr le 11/11/2017 à 10:45, depuis l'adresse IP 41.231.x.x. La présente page de téléchargement du fichier a été vue 186 fois.
Taille du document: 140 Ko (2 pages).
Confidentialité: fichier public


Aperçu du document


République Tunisienne
Ministère de l'éducation

Section : Scientifiques
Epreuve : Informatique

Examen du devoir de
contrôle 01

Classe :
Nom : ..............................................

Le Mardi 24 Octobre 2017
Durée : 1 heure
Coefficient : 1
4ème Sciences Expérimentales 2

Prénom : ........................................... Groupe

Lycée Ahd Jadid

Note :

1

/ 20

Important
Une fonction prédéfinie pour les entiers permet de définir l'imparité d'un entier saisi par exemple :

Programme
x := 9 ; b := odd( x ); write(b);

Résultat

TRUE

Exercice 01 : Traduire l'algorithme suivant en un programme pascal

[ 5 points ]

0 ) debut conversion
1 ) Ecrire ( " Caractere saisi : " ) , lire ( car )
2 ) nombre ← ord ( car )
3 ) convch ( nombre , ch )
4 ) nombre ← 33 + aléa ( 223 )
5 ) c ← chr ( nombre )
6 ) ch ← concat ( ch , c )
7 ) Ecrire ( " [ " , ch , " ] " )
7 ) fin conversion

Exercice 02 : Corrigez le programme suivant
Programme à corriger

[ 5 points ]

Programme corrigé

..........................................................................................................................
program exercice;
var
..........................................................................................................................
x,y : real;
..........................................................................................................................
z : integer ;
..........................................................................................................................
begin
x = 30.545 ; writeln(x : 5 : 3);
..........................................................................................................................
x := tronc (x); writeln(x : 5 : 3);
..........................................................................................................................
y := -76,32; Ecrire(y : 5 : 3);
..........................................................................................................................
y := abs(round(y)); writeln(y : 5 : 3);
..........................................................................................................................
randomize;
z := 67 + aléa(100); writeln(z : 5 : 3);
..........................................................................................................................
end.
Exercice 03 : Ecrire un programme pascal qui permet l'affichage de l'imparité des deux entiers par la méthode suivante [10 points ]

a) Lecture d'un entier composé par 10 chiffres,
b) Obtention deux entiers de 5 chiffres composé chacun par les 5 chiffres successifs de l'entier saisi
c) Rajout d'une partie décimale aux deux entiers d'une façon aléatoire de l'étape b)
d) Calcul de la valeur supérieure la plus proche des deux réels obtenus de l'étape c)
e) Affichage l'imparité des deux nombres obtenus de l'étape d)

1

Durée : 1 heure

Enseignante : Khaoula ABAIDI

République Tunisienne
Ministère de l'éducation

Section : Scientifiques
Epreuve : Informatique

Lycée Ahd Jadid

Le Samedi 11 Novembre 2017
Correction du devoir de contrôle 01

4ème Sciences Expérimentales 2 G 1

Exercice 01 :
program conversion ;
uses wincrt ;
var
car , c : char ;
nombre : byte ; { --- Le type nombre peut être aussi de type integer --- }
ch : string ;
begin
write ('Caractère saisi : ') ; { --- Affichage du message " Caractère saisi : " sans retour à la ligne ---}
readln(car) ; { --- lecture de la variable car c-a-d saisie d'un caractère et retour à la ligne --- }
nombre := ord(car) ; { --- retour de l'ordre ascii du caractère car dans la variable nombre --- }
str(nombre , ch) ; { --- conversion du nombre en une chaine de caractère ch --- }
randomize ; { --- initialisation du générateur des nombres à chaque exécution du programme ---}
nombre := 33 + random(223) ; { ---nombre est un entier dans l'intervalle [33 .. 255] obtenu aléatoirement ---}
c := chr(nombre); { --- retour du caractère dans la variable c ayant le code ascii nombre --- }
ch := ch + c ; { --- ajouter à la chaine ch le caractère c --- }
write( ' [ ' , ch , ' ] ' ) ; { Affichage de la chaine ch entouré par deux crochets }
end.

Exercice 02 :
program exercice ;
var
x , y : real ;
z : integer;
begin
x := 30.545 ; { --- initialisation de x à la valeur 30,545 ---}
writeln(x : 5 : 3); { --- Affichage de x sous forme de 5 caractères si possible avec 3 chiffres après la virgule ---}
x := trunc (x); { --- suppression de la partie décimale de x et sauvegarde du résultat à x ---}
writeln( x : 5 : 3); { --- Affichage de x sous forme de 5 caractères si possible avec 3 chiffres après la virgule ---}
y := -76.32; { --- initialisation de y à la valeur -76,32 ---}
writeln(y : 5 : 3); { --- Affichage de x sous forme de 5 caractères si possible avec 3 chiffres après la virgule ---}
y := abs(round(y)); { ---- y := abs (arrondi(y)); ----}
writeln(y : 5 : 3); { --- Affichage de x sous forme de 5 caractères si possible avec 3 chiffres après la virgule ---}
randomize ; { --- initialisation du générateur des nombres à chaque exécution du programme ---}
z := 67 + random (100); { ---- z est un entier choisi aléatoirement tel que z dans l'intervalle [67..164] ----}
writeln(z); { --- Affichage de l'entier z ---}
end.

Exercice 03 :
program exercice03 ;
uses wincrt ;
var
e1 , e2 : longint ; { -- variables pour extraire les deux entiers composés par 5 chiffres --}
e1r , e2r : real ; { -- variables pour mettre les réels obtenus après l'ajout de la partie décimale aléatoirement --}
e : integer ; { -- variable pour mettre la position du caractère posant une erreur lors de la conversion vers entier --}
ch : string ; {-- variable contenant l'entier saisi composé par 10 chiffres --}
ch1 ,ch2 : string[5] ; { -- variables chaines de 5 caractères pour sauvegarder les entiers sous forme de chaines --}
b : boolean ; { -- variable booléenne pour sauvegarder l'imparité d'un entier -- }
begin
write('Veuillez saisir un entier de 10 chiffres : '); { -- Affichage du message "'Veuillez saisir un entier de 10 chiffres : " --}
readln(ch); { --Saisie de l'entier composé par 10 chiffres et sauvegarde de la valeur dans la chaine ch --}
ch1 := copy(ch , 1 , 5); { -- extraction d'une copie de 5 caractères de la chaine ch à partir de la position 1 --}
ch2 := copy(ch , 6 , 5); { -- extraction d'une copie de 5 caractères de la chaine ch à partir de la position 6 --}
val(ch1 , e1 , e); { -- conversion de ch1 vers un entier e1 avec la position d'une erreur e lors de la conversion sinon e = 0--}
val(ch2 , e2 , e); { -- conversion de ch2 vers un entier e2 avec la position d'une erreur e lors de la conversion sinon e = 0--}
randomize ; { -- Initialisation du générateur des nombres à chaque exécution du programme --}
e1r := e1 + random ; { -- Ajout d'une partie décimale aléatoirement à l'entier obtenu e1 puis sauvegarde du réel en e1r --}
e2r := e2 + random ; { -- Ajout d'une partie décimale aléatoirement à l'entier obtenu e2 puis sauvegarde du réel en e2r --}
e1 := round(e1r); { -- calcul de la valeur entière supérieure la plus proche au réel e1r --}
e2 := round(e2r); { -- calcul de la valeur entière supérieure la plus proche au réel e2r --}
b := odd(e1); writeln (e1 , ' est un entier impair ? ' , b); { -- vérification d'imparité de e1 et affichage du résultat --}
b := odd(e2); writeln (e2 , ' est un entier impair ? ' , b); { -- vérification d'imparité de e2 et affichage du résultat --}
end.

2

Durée : 1 heure

Enseignante : Khaoula ABAIDI


DC 01 - 4 Sc 2 A.pdf - page 1/2


DC 01 - 4 Sc 2 A.pdf - page 2/2



Télécharger le fichier (PDF)


DC 01 - 4 Sc 2 A.pdf (PDF, 140 Ko)

Télécharger
Formats alternatifs: ZIP



Documents similaires


dc 01 4 sc 2 b
dc 01 4 sc 2 a
correctionserie01cours structures de donnees
serie 1structures de donnees
fiche1 ex mod div
exercices

Sur le même sujet..