Commande de compilation...
Commande d'exécution...
Fichier source...
upscmp Source=math.upl
math
Source Composant "Exemple d'emploi de la bibliothèque Up ! Math" Version
1.0.0;
ImporterModule UpsMat(<UpsMat>);
Principal
Debut
Ecran.Ecrire("Abs(-10)=");
Ecran.Ecrire(UpsMat.Abs(-10));
Ecran.Ecrire("Abs(10.2)=");
Ecran.Ecrire(UpsMat.Abs(10.2));
Ecran.Ecrire("ACos(0.0)=");
Ecran.Ecrire(UpsMat.ACos(0.0));
Ecran.Ecrire("ASin(0.0)=");
Ecran.Ecrire(UpsMat.ASin(0.0));
Ecran.Ecrire("ATan(0.0)=");
Ecran.Ecrire(UpsMat.ATan(0.0));
Ecran.Ecrire("Cos(0.0)=");
Ecran.Ecrire(UpsMat.Cos(0.0));
Ecran.Ecrire("Sin(0.0)=");
Ecran.Ecrire(UpsMat.Sin(0.0));
Ecran.Ecrire("Tan(0.0)=");
Ecran.Ecrire(UpsMat.Tan(0.0));
Ecran.Ecrire("ACosH(1.0)=");
Ecran.Ecrire(UpsMat.ACosH(1.0));
Ecran.Ecrire("ASinH(1.0)=");
Ecran.Ecrire(UpsMat.ASinH(1.0));
Ecran.Ecrire("ATanH(10.0)=");
Ecran.Ecrire(UpsMat.ATanH(10.0));
Ecran.Ecrire("CosH(0.0)=");
Ecran.Ecrire(UpsMat.CosH(0.0));
Ecran.Ecrire("SinH(0.0)=");
Ecran.Ecrire(UpsMat.SinH(0.0));
Ecran.Ecrire("TanH(0.0)=");
Ecran.Ecrire(UpsMat.TanH(0.0));
Ecran.Ecrire("Exp(1.0)=");
Ecran.Ecrire(UpsMat.Exp(1.0));
Ecran.Ecrire("Log(10.0)=");
Ecran.Ecrire(UpsMat.Log(10.0));
Ecran.Ecrire("Log10(10.0)=");
Ecran.Ecrire(UpsMat.Log10(10.0));
Ecran.Ecrire("Racine(4.0)=");
Ecran.Ecrire(UpsMat.Racine(4.0));
Fin Principal