Section courante

A propos

Section administrative du site

EXP

 Exposant
Turbo Pascal pour Windows System

Syntaxe

Function Exp(r:Real):Real;

Paramètres

Nom Description
r Ce paramètre permet d'indiquer l'expression contenant le nombre à traiter

Description

Cette fonction retourne la valeur exponentielle.

Algorithme

MODULE EXP(x)
   Inverse ← faux
   n ← 0
   dl ← 1
   i ← 1
   SI x < 0 ALORS
      Inverse ← vrai
      x ← -x
   FIN SI
   BOUCLE FAIRE TANT QUE x >= 2
      x ← x / 2
      n ← n + 1
   FIN BOUCLE FAIRE TANT QUE
   x ← x / 16
   n ← n + 4
   q ← x
   BOUCLE FAIRE TANT QUE q > 1.0E - 15
      dl ← dl + q
      i ← i + 1
      q ← q x x / i
   FIN BOUCLE FAIRE TANT QUE
   BOUCLE POUR i ← 1 JUSQU'A n
      dl ← dl x dl
   FIN BOUCLE POUR
   SI Inverse ALORS
      dl ← 1 / dl
   FIN SI
   RETOURNE dl

Exemple

Voici un exemple permet d'afficher les exposants inférieurs à 2 :

  1. Program ExpSamples;
  2.  
  3. Uses WinCrt;
  4.  
  5. Var I:Real;
  6.  
  7. BEGIN
  8.  I := 0;
  9.  While I <= 2.0 do Begin
  10.   WriteLn('Exp(',I:1:6,')=',Exp(I):1:6);
  11.   I := I+ 0.1;
  12.  End;
  13. END.

on obtiendra le résultat suivant :

Exp(0.000000)=1.000000
Exp(0.100000)=1.105171
Exp(0.200000)=1.221403
Exp(0.300000)=1.349859
Exp(0.400000)=1.491825
Exp(0.500000)=1.648721
Exp(0.600000)=1.822119
Exp(0.700000)=2.013753
Exp(0.800000)=2.225541
Exp(0.900000)=2.459603
Exp(1.000000)=2.718282
Exp(1.100000)=3.004166
Exp(1.200000)=3.320117
Exp(1.300000)=3.669297
Exp(1.400000)=4.055201
Exp(1.500000)=4.481690
Exp(1.600000)=4.953034
Exp(1.700000)=5.473949
Exp(1.800000)=6.049649
Exp(1.900000)=6.685897

Dernière mise à jour : Dimanche, le 10 décembre 2017