Up ! Mathematical - Decimal

Ce programme présente l'usage des fonctions scientifiques sur les décimaux.

Le fichier source est ${UPS_HOME}/upsvtm/demo/${UPS_LANGUAGE}/decimal2.upl.

Mode compilé

Commande de compilation


upscmp Source=decimal2.upl

Commande d'exécution


decimal2 TaillePartieDecimale=216 TaillePartieEntiere=216

Mode interprété


upssng Source=decimal2.upl TaillePartieDecimale=216 TaillePartieEntiere=216

Fichier source


Source Composant "Exemple d'emploi du type Decimal" Version 4.0.0;



ImporterModule

/************/

   UpsMat(<UpsMat.upi>, ImporterDefinitions);



Principal

/*******/

Variable

/******/

   A : Nul Ou Decimal;

   B : Nul Ou Decimal;

   C : Nul Ou Decimal;

   AA : Nul Ou Reel;

   BB : Nul Ou Reel;

   CC : Nul Ou Reel;



Debut

Ecran.Ecrire("Constantes");

Ecran.Ecrire("----------");

C=Decimal(e);

CC=e;

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

C=Decimal(Pi);

CC=Pi;

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

A=Decimal(123456);

AA=123456;

B=Decimal(456789);

BB=456789;

Ecran.Ecrire(A.VersEntier());

Ecran.Ecrire(AA);

Ecran.Ecrire(B.VersEntier());

Ecran.Ecrire(BB);



Ecran.Ecrire("Arithmetique 1");

Ecran.Ecrire("--------------");

C=A+B;

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=AA+BB;

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

C=A-B;

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=AA-BB;

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

C=A*B;

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=AA*BB;

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

C=A/B;

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=AA/BB;

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));



Ecran.Ecrire("Comparaison 1");

Ecran.Ecrire("-------------");

Si A==B Alors

   Ecran.Ecrire("A==B");

Fin Si

Si AA==BB Alors

   Ecran.Ecrire("AA==BB");

Fin Si

Si A!=B Alors

   Ecran.Ecrire("A!=B");

Fin Si

Si AA!=BB Alors

   Ecran.Ecrire("AA!=BB");

Fin Si

Si A<=B Alors

   Ecran.Ecrire("A<=B");

Fin Si

Si AA<=BB Alors

   Ecran.Ecrire("AA<=BB");

Fin Si

Si A>=B Alors

   Ecran.Ecrire("A>=B");

Fin Si

Si AA>=BB Alors

   Ecran.Ecrire("AA>=BB");

Fin Si

Si A<B Alors

   Ecran.Ecrire("A<B");

Fin Si

Si AA<BB Alors

   Ecran.Ecrire("AA<BB");

Fin Si

Si A>B Alors

   Ecran.Ecrire("A>B");

Fin Si

Si AA>BB Alors

   Ecran.Ecrire("AA>BB");

Fin Si

Ecran.Ecrire(");



Ecran.Ecrire("Arithmetique 2");

Ecran.Ecrire("-------------");

A=Decimal("-123456789123456789");

B=Decimal("456789123456789123");

Ecran.Ecrire(A.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

Ecran.Ecrire(B.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));



C=A+B;

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

C=A-B;

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

C=A*B;

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

C=A/B;

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));



Ecran.Ecrire("Comparaison 2");

Ecran.Ecrire("-------------");

Si A==B Alors

   Ecran.Ecrire("A==B");

Fin Si

Si A!=B Alors

   Ecran.Ecrire("A!=B");

Fin Si

Si A<=B Alors

   Ecran.Ecrire("A<=B");

Fin Si

Si A>=B Alors

   Ecran.Ecrire("A>=B");

Fin Si

Si A<B Alors

   Ecran.Ecrire("A<B");

Fin Si

Si A>B Alors

   Ecran.Ecrire("A>B");

Fin Si

Ecran.Ecrire(");



Ecran.Ecrire("Arithmetique 3");

Ecran.Ecrire("--------------");

A=Decimal("-123456789123456789.123456789123456789");

B=Decimal("-456789123456789123.456789123456789123");

Ecran.Ecrire(A.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

Ecran.Ecrire(B.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));



C=A+B;

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

C=A-B;

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

C=A*B;

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

C=A/B;

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));



Ecran.Ecrire("Comparaison 3");

Ecran.Ecrire("-------------");

Si A==B Alors

   Ecran.Ecrire("A==B");

Fin Si

Si A!=B Alors

   Ecran.Ecrire("A!=B");

Fin Si

Si A<=B Alors

   Ecran.Ecrire("A<=B");

Fin Si

Si A>=B Alors

   Ecran.Ecrire("A>=B");

Fin Si

Si A<B Alors

   Ecran.Ecrire("A<B");

Fin Si

Si A>B Alors

   Ecran.Ecrire("A>B");

Fin Si

Ecran.Ecrire(");



Ecran.Ecrire("Scientifiques");

Ecran.Ecrire("-------------");

A=Decimal(2.718281828);

C=A*A;

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

A=Decimal(2);

AA=2;

C=Racine(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=Racine(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

A=Decimal(100);

AA=100;

C=Log(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=Log(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

A=Decimal(3.21);

AA=3.21;

C=Exp(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=Exp(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

A=Decimal("123.456789");

B=Decimal("9.87654321");

C=A^B;

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

A=Decimal("123.456789");

B=Decimal("-9.87654321");

C=A^B;

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

Ecran.Ecrire(");



Ecran.Ecrire("Trigonometriques");

Ecran.Ecrire("----------------");

A=Decimal(0.123456789);

AA=0.123456789;

C=Cos(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=Cos(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

C=Sin(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=Sin(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

C=Tan(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=Tan(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

C=Cot(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=Cot(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

C=Csc(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=Csc(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

C=Sec(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=Sec(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

Ecran.Ecrire(");



Ecran.Ecrire("Trigonometriques hyperboliques");

Ecran.Ecrire("------------------------------");

A=Decimal(0.123456789);

AA=0.123456789;

C=CosH(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=CosH(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

C=SinH(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=SinH(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

C=TanH(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=TanH(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

C=CotH(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=CotH(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

C=CscH(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=CscH(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

C=SecH(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=SecH(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

Ecran.Ecrire(");



Ecran.Ecrire("Trigonometriques inverses");

Ecran.Ecrire("-------------------------");

A=Decimal(0.123456789);

AA=0.123456789;

C=ACos(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=ACos(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

C=ASin(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=ASin(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

C=ATan(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=ATan(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

C=ACot(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=ACot(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

A=Decimal(1.123456789);

AA=1.123456789;

C=ACsc(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=ACsc(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

C=ASec(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=ASec(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

Ecran.Ecrire(");



Ecran.Ecrire("Trigonometriques hyperboliques inverses");

Ecran.Ecrire("---------------------------------------");

A=Decimal(1.123456789);

AA=1.123456789;

C=ACosH(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=ACosH(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

A=Decimal(0.123456789);

AA=0.123456789;

C=ASinH(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=ASinH(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

C=ATanH(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=ATanH(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

A=Decimal(1.123456789);

AA=1.123456789;

C=ACotH(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=ACotH(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

A=Decimal(0.123456789);

AA=0.123456789;

C=ACscH(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=ACscH(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

C=ASecH(A);

Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

CC=ASecH(AA);

Ecran.Ecrire(Caractere(CC, "-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));

Ecran.Ecrire(");



Fin Principal

Résultat de l'exécution

Constantes ---------- 2,718.281.828.459.045.235.360.287.471.352.662.497.757.247.093 2,718.281.828.459.05 3,141.592.653.589.793.238.462.643.383.279.502.884.197.169.399 3,141.592.653.589.79 123456 123456.0 456789 456789.0 Arithmetique 1 -------------- 580.245 580.245,0 -333.333 -333.333,0 56.393.342.784 56.393.342.784,0 0,270.269.205.256.694.009.706.888.738.564.194.847.073.813.073 0,270.269.205.256.694 Comparaison 1 ------------- A!=B AA!=BB A<=B AA<=BB A<B AA<BB Arithmetique 2 ------------- -123.456.789.123.456.789 456.789.123.456.789.123 333.332.334.333.332.334 -580.245.912.580.245.912 -56.393.718.488.493.483.807.805.812.375.706.047 -0,270.270.859.755.125.999.355.286.750.118.172.143.954.487.287 Comparaison 2 ------------- A!=B A<=B A<B Arithmetique 3 -------------- -123.456.789.123.456.789,123.456.789.123.456.789 -456.789.123.456.789.123,456.789.123.456.789.123 -580.245.912.580.245.912,580.245.912.580.245.912 333.332.334.333.332.334,333.332.334.333.332.334 56.393.718.488.493.483.920.593.249.352.693.014,672.005.343.239.905.577.807.805.812.375.706.047 0,270.270.859.755.125.999.355.286.750.118.172.143.954.487.287 Comparaison 3 ------------- A!=B A>=B A>B Scientifiques ------------- 7,389.056.096.435.021.584 1,414.213.562.373.095.048.801.688.724.209.698.078.569.671.875 1,414.213.562.373.1 4,605.170.185.988.091.368.035.982.909.368.728.415.202.202.977 4,605.170.185.988.09 24,779.086.224.587.695.927.974.479.188.157.333.202.561.617.858 24,779.086.224.587.7 453.876.864.910.876.113.426,813.775.701.510.792.796.916.529.817.979.280.433.305.608.540 0,000.000.000.000.000.000.002.203.240.740.627.662.037.502.445 Trigonometriques ---------------- 0,992.388.885.113.712.370.201.191.553.823.774.501.032.511.001 0,992.388.885.113.712 0,123.143.415.182.310.866.579.820.046.605.643.062.688.015.324 0,123.143.415.182.311 0,124.087.862.157.183.009.623.014.896.281.917.985.954.167.041 0,124.087.862.157.183 8,058.805.934.889.043.613.196.638.846.630.443.039.027.958.111 8,058.805.934.889.04 8,120.612.852.254.617.380.444.066.216.711.096.825.481.347.345 8,120.612.852.254.62 1,007.669.488.242.419.718.468.060.763.495.919.190.751.388.355 1,007.669.488.242.42 Trigonometriques hyperboliques ------------------------------ 1,007.630.473.699.197.700.504.674.670.543.055.164.543.454.960 1,007.630.473.699.2 0,123.770.640.813.035.903.296.312.430.488.400.660.262.906.001 0,123.770.640.813.036 0,122.833.364.059.198.215.217.998.361.414.780.470.714.879.279 0,122.833.364.059.198 8,141.110.582.284.962.769.857.632.618.840.603.816.743.429.528 8,141.110.582.284.96 8,079.460.471.652.312.351.970.643.082.133.515.308.415.617.637 8,079.460.471.652.31 0,992.427.309.516.369.804.417.490.254.816.595.257.486.452.306 0,992.427.309.516.37 Trigonometriques inverses ------------------------- 1,447.023.754.368.179.539.919.191.972.910.483.162.441.850.117 1,447.023.754.368.18 0,123.772.572.426.717.079.312.129.718.729.268.279.656.734.582 0,123.772.572.426.717 0,122.835.237.771.304.393.499.779.252.539.207.854.510.066.241 0,122.835.237.771.304 1,447.961.089.023.592.225.731.542.439.100.543.587.588.518.458 1,447.961.089.023.59 1,097.586.236.671.860.345.890.345.841.050.678.855.719.235.100 1,097.586.236.140.37 0,473.210.089.785.293.603.603.665.151.065.069.082.106.607.557 0,473.210.090.654.523 Trigonometriques hyperboliques inverses --------------------------------------- 0,491.928.808.796.464.845.563.420.571.566.884.558.874.885.258 0,491.928.808.796.465 0,123.145.307.935.964.240.157.854.668.486.602.262.245.752.845 0,123.145.307.935.964 0,124.089.813.596.922.239.207.785.073.247.412.206.032.110.737 0,124.089.813.596.922 1,422.454.696.195.168.816.056.248.839.096.017.480.703.562.275 1,422.454.696.195.17 2,788.800.049.951.612.640.597.987.489.063.856.627.505.620.118 2,788.800.049.951.61 2,781.178.891.712.489.598.017.330.660.575.750.137.824.452.903 2,781.178.891.712.49