Exercices corrigés Pascal

Exercices corrigés PascalConsultez toutes les sources

Nombre d'auteurs : 3, nombre de sources : 49, dernière mise à jour : 6 mars 2008

Sommaire→Directives de compilation

Directive {$DEFINE}
Directive {$I}
Directive {$N}
Directive {$R}
Directive {$Q}

Version hors-ligne

Directive {$DEFINE}

Ecrire un programme qui vérifie si la variable Turbo est définie au cours de la compilation et affiche un message pour le signaler à l'utilisateur.

Solution : Voir le fichier Dircond.pas :

Dircond.pas

Cacher/Afficher le codeSélectionnez

program directives;
begin
{$IFDEF dos}
  writeln('La variable turbo est définit');
{$ELSE}
  writeln('La variable Turbo n''est pas definit!');
{$ENDIF}
  readln;
end.

Créé le 21 juillet 2004 par Giovanny Temgoua

Directive {$I}

Utiliser la directive {$I} pour réecrire le programme Annuaire.pas sans utiliser d'unité.

Solution : Voir le fichier Annuair3.pas :

Annuair3.pas

Cacher/Afficher le codeSélectionnez

program annuaire3;
uses crt;
{$I FileI.pas}
type
  Personne = record
    nom: string[30];
    telephone: string[10];
    nCarte: word;
  end;
  FPersonne = file of Personne;
 
procedure DisplayMenu;
begin
  writeln('1. Ajouter une personne');
  writeln('2. Afficher le contenu du fichier');
  writeln('3. Quitter le programme');
end;
 
function FileExists(FileName: string): Boolean;
var
  F: file;
begin
{$I-}
  Assign(F, FileName);
  FileMode := 0;
  Reset(F);
  Close(F);
{$I+}
  FileExists := (IOResult = 0) and (FileName <> '');
end;
 
procedure AjoutePersonne(var F: FPersonne; P: Personne);
begin
  reset(F);
  seek(F, FileSize(F));
 
  write(F, P);
 
  close(F);
end;
 
procedure DisplayFile(var F: FPersonne);
var
  P: Personne;
begin
  reset(F);
  while not eof(F) do
  begin
    read(F, P);
    writeln('Nom : ', P.nom);
    writeln('Telephone : ', P.telephone);
    writeln('Numero de carte banquaire : ', P.nCarte);
    writeln;
  end;
  close(F);
end;
 
var
  F: FPersonne;
  P: Personne;
  choix: integer;
begin
  clrscr;
  choix := 0;
  assign(F, 'c:\tp\annuaire.dat');
  rewrite(F);
 
  repeat
    writeln;
    DisplayMenu;
    repeat
{$I-}
      write('Entrez un choix : ');
      readln(choix);
{$I+}
    until IOResult = 0;
    writeln;
    case choix of
      1:
        begin
          repeat
            Write('Entrez le nom : ');
            readln(P.nom);
          until isString(P.nom);
          repeat
            Write('Entrez le numero de telephone : ');
            readln(P.telephone);
          until isNumber(P.telephone);
          repeat
{$I-}
            Write('Entrez le numero de carte banquaire : ');
            readln(P.nCarte);
{$I+}
          until IOResult = 0;
          AjoutePersonne(F, P);
        end;
      2:
        begin
          writeln('Contenu du fichier...');
          DisplayFile(F);
        end;
      3: ;
    else
      writeln('Entrée incorrecte!');
    end;
  until choix = 3;
 
end.

Commentaire :

Le fichier FileI.pas (dont le code se trouve dans FileI.pas) est inclus en utilisant la directive $I (consultez l'aide dessus)

Créé le 21 juillet 2004 par Giovanny Temgoua

Directive {$N}

Il existe cinq types réels prédéfinis : Real, Single, Double, Extended et Comp. Ecrire une fonction qui retourne le produit de deux réels de type Comp. Compiler le programme en ligne de commande et observer le résultat.

Le compilateur en ligne de commande se nomme TPC, vous devez ajouter le chemin du répertoire /BIN de TP dans le PATH.

Voir le fichier Extend.pas :

extend.pas

Cacher/Afficher le codeSélectionnez

program testExtended;
uses crt;
 
function mult(x, y: comp): comp;
begin
  mult := x * y;
end;
 
var
  x, y: comp;
begin
  writeln('Entrez la valeur de x');
  readln(x);
  writeln('Entrez la valeur de y');
  readln(y);
  writeln(x * y);
  writeln('Leur produit est : ', mult(x, y));
  readkey;
end.

Solution : compiler en utilisant la directive $N+ :

Sélectionnez

TPC -$N+ Extend.pas

Créé le 21 juillet 2004 par Giovanny Temgoua

Directive {$R}

Ecrire un programme qui initialise les éléments d'un tableau de 10 entiers. Que se passe-t-il si on essaie d'initialiser plus de 10 éléments ? Recompiler en utilisant la directive $R+.

Voir le fichier Range.pas :

range.pas

Cacher/Afficher le codeSélectionnez

program rangecheck;
uses crt;
 
var
  tab: array[1..10] of integer;
  i: integer;
begin
  for i := 1 to 12 do
  begin
    writeln('Entrez la donne ', i);
    readln(tab[i]);
  end;
 
end.

Solution : Compiler en utilisant la directive $R+

Sélectionnez

TPC -$R+ Range.pas

Créé le 21 juillet 2004 par Giovanny Temgoua

Directive {$Q}

Ecrire un programme qui utilise la directive de compilation $Q+ pour ajouter du code supplémentaire qui vérifie les débordements de type.
Compiler et tester respectivement sans la directive et avec celle-ci.

Voir le fichier Overflow.pas :

overflow.pas

Cacher/Afficher le codeSélectionnez

program overflowcheck;
var
  x, y: integer;
begin
  writeln('Entrez les valeurs de x et y');
  readln(x, y);
  writeln('Leur somme est ', x + y);
end.

Solution : Compiler en utilisant la directive $Q+

Sélectionnez

TPC -$Q+ Overflow.pas

Créé le 21 juillet 2004 par Giovanny Temgoua

Version hors-ligne