Test d'évaluation 3

Date de mise à jour : 25 décembre 2009

Ce test d'évaluation (n° 3/5) pose quelques questions pièges afin de voir si vous avez assimilé les bases de la programmation en Turbo Pascal 7.0. Correction automatique on line : il vous suffit de cliquer sur le bouton de validation en bas de ce formulaire (après avoir répondu à toutes les questions) pour voir apparaître une correction personnalisée.

1. Sous le logiciel Borland Pascal 7.0, comment peut-on retourner au dernier écran MS-DOS affiché par un programme que l'on a fini d'exécuter ?

Debug / User Screen
Edit / Show clipboard
Window / Refresh display

2. Laquelle de ces instructions est incorrecte ?

avec Var nom : String ;

WriteLn(Chr(Round(ArcTan(Length(nom)*50))));
Circle(Ord(nom[5]),MaxAvail Mod 100,20);
WriteLn(ReadLn(nom));
OutTextXY(50,Ord(ReadKey),nom);

3. Laquelle des affectations suivantes est correcte ?

test := (a<20) not (nom = 'CyberZoïde');
test := a nor b;
test := (a xor b) + test2;
test := a xor b and c or d;

4. Quelle instruction ne permet pas faire de cercle ?

Circle(10,120,rayon);
Ellipse(GetMaxX Div 2,GetMaxY Div 3,0,180,a,a);
Arc(GetMaxY Div 2,100,0,360,i)

5. Comment effacer l'écran en mode graphique pour pouvoir faire un autre dessin ?

ClearViewPort;
CloseGraph;
RestorCrtMode;

6. Quelle affirmation concernant les identificateurs est juste ?

Un identificateur peut avoir 255 caractères
Le premier caractère d'un identificateur peut être un chiffre
Un identificateur ne doit pas contenir les signes suivants : @, $, &, #.

7. En mode graphique, comment sélectionner le type de remplissage ?

SetFillStyle();
SetGraphMode();
BarSettingColor();

8. Quelle affirmation est vraie à propos de la structure Repeat..Until ?

Il y a évaluation conditionnelle avant toute instruction interne
Il peut ne pas y avoir d'évaluation du tout
Il y a forcément au moins une évaluation

9. Que fait la procédure suivante ?

WriteLn(nom:File, chaine:String) ;

Elle écrit le contenu de la variable chaine dans le fichier assigné en nom
Elle écrit le contenu respectif des variables nom et chaine à l'écran
Elle écrit le contenu de chaine dans la variable nom

10. Quelle est la résolution de l'écran en mode texte (MS-DOS) ?

(30, 12)
(80, 25)
(100, 10)
(640, 480)

11. Quelle procédure permet de changer le répertoire en cours ?

SetDir();
GetDir();
ChDir();

12. Quelle affirmation est vraie à propos du pseudo-hasard ?

L'initialisation du générateur de nombres aléatoires est obligatoire
Il faut obligatoirement envoyer un paramètre (et un seul) à la fonction Random()
L'initialisation s'effectue avec la procédure Randomize
Le nombre issu du pseudo-hasard est forcément de type Real
Le nombre issu du pseudo-hasard n'est pas le fruit du véritable hasard

13. Est-il possible d'envoyer des paramètres passés en ligne de commande à un programme compilé en Turbo Pascal ?

Oui, avec la fonction ParamStr() de l'unité System
Non, faut pas rêver
Oui, mais seulement en créant spécialement une unité en langage Assembleur

14. Parmi les déclarations suivantes, laquelle est fausse ?

Var tableau : Array [1..10..20] of Integer;
Var tableau : Array [0..50] of Record nom : String[20]; age : Byte; End;
Var tableau : Array [10..100] of Byte;

15. Parmi les déclarations suivantes, laquelle est fausse ?

Var tableau : Array [-20..20] of Real;
Var tableau : Array ['M'..'b'] of Char;
Var tableau : Array [10..0] of Integer;

16. Que contient un pointeur ?

Une variable
La valeur d'une variable
L'adresse mémoire d'une variable
Le contenu courant du bloc mémoire correspondant à la variable

17. Que signifie le code suivant ?

Var turbo : ^pascal ;

Déclaration d'un pointeur nommé turbo associé à la variable pascal
Déclaration d'une variable turbo associée au pointeur pascal
Déclaration d'une variable turbo de type pascal, ce dernier étant un type complexe
Déclaration d'un pointeur turbo pointant vers une variable de type pascal

18. Dans la liste suivante, quel est l'intrus ?

Var a : String;
Var a : String[1];
Var a : Char;
Var a : Text;

19. Quelle fonction permet de connaître la taille en mémoire d'une variable ?

SizeOf()
FileSize()
Height()
Length()

20. Matérialisez les règles de priorité à l'aide de parenthèses :

test := true or false and true xor not true xor true;

test := (true or false) and {true xor [not(true) xor true)]}
test := {[(true or false) and true] xor (not true)} xor true
test := [(true or false) and true] xor [not (true xor true)]
test := {{{true or [false and true]} xor (not true)} xor true}
test := {true or [(false and true) xor (not true)]} xor true

Copyright © 2009 developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site ni de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.