TD Pascal 3

• Exercice 1 : Soient les déclarations suivantes :

  var X, Y : integer;
  
  procedure P(X : integer);
  var Y:integer;
  begin
     X:=X+1;
     Y:=Y+1;
  end;
  
  procedure Q(var X:integer);
  var Y:integer;
  begin
     X:=X+1;
     Y:=Y+1;
  end;
  
  procedure R(var X:integer);
  begin
     X:=X+1;
     Y:=Y+1;
  end;
  
  procedure S(X:integer);
  begin
     X:=X+1;
     Y:=Y+1;
  end;

  Les séquences suivantes sont-elles correctes? Si oui, quelles sont les valeurs affichées?

  a1. X:=1;                             a2. X:=1;
      Y:=5;                                 Y:=5;
      P(X);                                 P(X+Y);
      writeln(X,' ',Y);                     writeln(X,' ',Y);
  
  b1. X:=1;                             b2. X:=1;
      Y:=5;                                 Y:=5;
      Q(X);                                 Q(X+Y);
      writeln(X,' ',Y);                     writeln(X,' ',Y);
  
  c1. X:=1;                             c2. X:=1;
      Y:=5;                                 Y:=5;
      R(X);                                 R(X+Y);
      writeln(X,' ',Y);                     writeln(X,' ',Y);
  
  d1. X:=1;                             d2. X:=1;
      Y:=5;                                 Y:=5;
      S(X);                                 S(X+Y);
      writeln(X,' ',Y);                     writeln(X,' ',Y);

• Exercice 2 :
  1. Ecrivez en utilisant une procédure ou une fonction un programme qui calcule la somme des diviseurs d'un entier n.
  2. Un nombre est dit parfait s'il est égal à la somme de ses diviseurs différents de lui-même. Déterminez tous les nombres parfaits entre 2 et 30000.
• Exercice 3 : La valeur approchée S d'une intégrale d'une fonction continue f entre deux bornes a et b (méthode des trapèzes) est donnée par :

  

  N est le nombre d'intervalles choisi pour la décomposition de [a, b] et h=(b-a)/N.
  Calculer S en fonction de a, b, N (f sera supposée donnée, par exemple ).

• About this document ...