* fichier : test_addition_list.dgibi ************************************************************************ * Section : Langage Objets ************************************************************************ ************************************************************************ * Auteur : C. BERTHINIER * Date : Novembre 2014 * Ce Cas-Test permet de vérifier que les opérations '+' et '-' sur les * {LISTENTI, LISTREEL} avec {LISTENTI, LISTREEL, ENTIER, FLOTTANTS} * sont effectuées conformément à la notice LISTRE1 = PROG 1. 2. 3. ; LISTRE2 = PROG 4. 8. 24. ; LISTEN1 = LECT 4 5 6 ; LISTEN2 = LECT 5 9 25 ; FLOT1 = 10. ; ENTI1 = 11 ; ************************************************************************ * OPERATIONS ENTRE LES LIST(ENTI/REEL) * ************************************************************************ * Addition entre 2 LISTREEL OBJ1 = LISTRE1; OBJ2 = LISTRE2; OBJ3 = OBJ1 '+' OBJ2 ; TEST = (EXTR OBJ3 1); REF = 5. ; SI ( TEST NEG REF ); MESS 'ERREUR de + entre 2 LISTREEL'; MESS 'Valeur obtenue : ' TEST; MESS 'Valeur attendue : ' REF ; ERRE 5; FINSI; * Soustraction entre 2 LISTREEL OBJ1 = LISTRE1; OBJ2 = LISTRE2; OBJ3 = OBJ1 '-' OBJ2 ; TEST = (EXTR OBJ3 1); REF = (-3.) ; SI ( TEST NEG REF ); MESS 'ERREUR de - entre 2 LISTREEL'; MESS 'Valeur obtenue : ' TEST; MESS 'Valeur attendue : ' REF ; ERRE 5; FINSI; ************************************************************************ * Addition entre 2 LISTENTI OBJ1 = LISTEN1; OBJ2 = LISTEN2; OBJ3 = OBJ1 '+' OBJ2 ; TEST = (EXTR OBJ3 1); REF = 9 ; SI ( TEST NEG REF ); MESS 'ERREUR de - entre 2 LISTENTI'; MESS 'Valeur obtenue : ' TEST; MESS 'Valeur attendue : ' REF ; ERRE 5; FINSI; * Soustraction entre 2 LISTENTI OBJ1 = LISTEN1; OBJ2 = LISTEN2; OBJ3 = OBJ1 '-' OBJ2 ; TEST = (EXTR OBJ3 1); REF = (-1) ; SI ( TEST NEG REF ); MESS 'ERREUR de - entre 2 LISTENTI'; MESS 'Valeur obtenue : ' TEST; MESS 'Valeur attendue : ' REF ; ERRE 5; FINSI; ************************************************************************ * Addition entre 1 LISTREEL et 1 LISTENTI OBJ1 = LISTRE2; OBJ2 = LISTEN2; OBJ3 = OBJ1 '+' OBJ2 ; TEST = (EXTR OBJ3 1); REF = 9. ; SI ( TEST NEG REF ); MESS 'ERREUR de + entre 1 LISTREEL et 1 LISTENTI'; MESS 'Valeur obtenue : ' TEST; MESS 'Valeur attendue : ' REF ; ERRE 5; FINSI; * Soustraction entre 1 LISTREEL et 1 LISTENTI OBJ1 = LISTRE2; OBJ2 = LISTEN2; OBJ3 = OBJ1 '-' OBJ2 ; TEST = (EXTR OBJ3 1); REF = (-1.) ; SI ( TEST NEG REF ); MESS 'ERREUR de - entre 1 LISTREEL et 1 LISTENTI'; MESS 'Valeur obtenue : ' TEST; MESS 'Valeur attendue : ' REF ; ERRE 5; FINSI; ************************************************************************ * Addition entre 1 LISTENTI et 1 LISTREEL OBJ1 = LISTEN2; OBJ2 = LISTRE2; OBJ3 = OBJ1 '+' OBJ2 ; TEST = (EXTR OBJ3 1); REF = 9. ; SI ( TEST NEG REF ); MESS 'ERREUR de + entre 1 LISTENTI et 1 LISTREEL'; MESS 'Valeur obtenue : ' TEST; MESS 'Valeur attendue : ' REF ; ERRE 5; FINSI; * Soustraction entre 1 LISTENTI et 1 LISTREEL OBJ1 = LISTEN2; OBJ2 = LISTRE2; OBJ3 = OBJ1 '-' OBJ2 ; TEST = (EXTR OBJ3 1); REF = 1. ; SI ( TEST NEG REF ); MESS 'ERREUR de - entre 1 LISTENTI et 1 LISTREEL'; MESS 'Valeur obtenue : ' TEST; MESS 'Valeur attendue : ' REF ; ERRE 5; FINSI; ************************************************************************ * OPERATIONS AVEC LES ENTIERS * ************************************************************************ * Addition entre 1 LISTREEL et 1 ENTIER OBJ1 = LISTRE1; OBJ2 = 3; OBJ3 = OBJ1 '+' OBJ2 ; TEST = (EXTR OBJ3 1); REF = 4. ; SI ( TEST NEG REF ); MESS 'ERREUR de + entre 1 LISTENTI et 1 ENTIER'; MESS 'Valeur obtenue : ' TEST; MESS 'Valeur attendue : ' REF ; ERRE 5; FINSI; * Soustraction entre 1 LISTREEL et 1 ENTIER OBJ1 = LISTRE1; OBJ2 = 3; OBJ3 = OBJ1 '-' OBJ2 ; TEST = (EXTR OBJ3 1); REF = -2. ; SI ( TEST NEG REF ); MESS 'ERREUR de - entre 1 LISTENTI et 1 ENTIER'; MESS 'Valeur obtenue : ' TEST; MESS 'Valeur attendue : ' REF ; ERRE 5; FINSI; ************************************************************************ * Addition entre 1 ENTIER et 1 LISTREEL OBJ1 = 3; OBJ2 = LISTRE1; OBJ3 = OBJ1 '+' OBJ2 ; TEST = (EXTR OBJ3 1); REF = 4. ; SI ( TEST NEG REF ); MESS 'ERREUR de + entre 1 LISTENTI et 1 ENTIER'; MESS 'Valeur obtenue : ' TEST; MESS 'Valeur attendue : ' REF ; ERRE 5; FINSI; * Soustraction entre 1 ENTIER et 1 LISTREEL OBJ1 = 3; OBJ2 = LISTRE1; OBJ3 = OBJ1 '-' OBJ2 ; TEST = (EXTR OBJ3 1); REF = 2. ; SI ( TEST NEG REF ); MESS 'ERREUR de - entre 1 LISTENTI et 1 ENTIER'; MESS 'Valeur obtenue : ' TEST; MESS 'Valeur attendue : ' REF ; ERRE 5; FINSI; ************************************************************************ * Addition entre 1 LISTENTI et 1 ENTIER OBJ1 = LISTEN1; OBJ2 = 1; OBJ3 = OBJ1 '+' OBJ2 ; TEST = (EXTR OBJ3 1); REF = 5 ; SI ( TEST NEG REF ); MESS 'ERREUR de + entre 1 LISTENTI et 1 ENTIER'; MESS 'Valeur obtenue : ' TEST; MESS 'Valeur attendue : ' REF ; ERRE 5; FINSI; * Soustraction entre 1 LISTENTI et 1 ENTIER OBJ1 = LISTEN1; OBJ2 = 1; OBJ3 = OBJ1 '-' OBJ2 ; TEST = (EXTR OBJ3 1); REF = 3 ; SI ( TEST NEG REF ); MESS 'ERREUR de - entre 1 LISTENTI et 1 ENTIER'; MESS 'Valeur obtenue : ' TEST; MESS 'Valeur attendue : ' REF ; ERRE 5; FINSI; ************************************************************************ * Addition entre 1 ENTIER et 1 LISTENTI OBJ1 = 1; OBJ2 = LISTEN1; OBJ3 = OBJ1 '+' OBJ2 ; TEST = (EXTR OBJ3 1); REF = 5 ; SI ( TEST NEG REF ); MESS 'ERREUR de + entre 1 LISTENTI et 1 ENTIER'; MESS 'Valeur obtenue : ' TEST; MESS 'Valeur attendue : ' REF ; ERRE 5; FINSI; * Soustraction entre 1 ENTIER et 1 LISTENTI OBJ1 = 1; OBJ2 = LISTEN1; OBJ3 = OBJ1 '-' OBJ2 ; TEST = (EXTR OBJ3 1); REF = -3 ; SI ( TEST NEG REF ); MESS 'ERREUR de - entre 1 LISTENTI et 1 ENTIER'; MESS 'Valeur obtenue : ' TEST; MESS 'Valeur attendue : ' REF ; ERRE 5; FINSI; ************************************************************************ * OPERATIONS AVEC LES FLOTTANTS * ************************************************************************ * Addition entre 1 LISTREEL et 1 FLOTTANT OBJ1 = LISTRE1; OBJ2 = 3.; OBJ3 = OBJ1 '+' OBJ2 ; TEST = (EXTR OBJ3 1); REF = 4. ; SI ( TEST NEG REF ); MESS 'ERREUR de + entre 1 LISTENTI et 1 FLOTTANT'; MESS 'Valeur obtenue : ' TEST; MESS 'Valeur attendue : ' REF ; ERRE 5; FINSI; * Soustraction entre 1 LISTREEL et 1 FLOTTANT OBJ1 = LISTRE1; OBJ2 = 3.; OBJ3 = OBJ1 '-' OBJ2 ; TEST = (EXTR OBJ3 1); REF = -2. ; SI ( TEST NEG REF ); MESS 'ERREUR de - entre 1 LISTENTI et 1 FLOTTANT'; MESS 'Valeur obtenue : ' TEST; MESS 'Valeur attendue : ' REF ; ERRE 5; FINSI; ************************************************************************ * Addition entre 1 FLOTTANT et 1 LISTREEL OBJ1 = 3.; OBJ2 = LISTRE1; OBJ3 = OBJ1 '+' OBJ2 ; TEST = (EXTR OBJ3 1); REF = 4. ; SI ( TEST NEG REF ); MESS 'ERREUR de + entre 1 LISTENTI et 1 FLOTTANT'; MESS 'Valeur obtenue : ' TEST; MESS 'Valeur attendue : ' REF ; ERRE 5; FINSI; * Soustraction entre 1 FLOTTANT et 1 LISTREEL OBJ1 = 3.; OBJ2 = LISTRE1; OBJ3 = OBJ1 '-' OBJ2 ; TEST = (EXTR OBJ3 1); REF = 2. ; SI ( TEST NEG REF ); MESS 'ERREUR de - entre 1 LISTENTI et 1 FLOTTANT'; MESS 'Valeur obtenue : ' TEST; MESS 'Valeur attendue : ' REF ; ERRE 5; FINSI; ************************************************************************ * Addition entre 1 LISTENTI et 1 FLOTTANT OBJ1 = LISTEN1; OBJ2 = 1.; OBJ3 = OBJ1 '+' OBJ2 ; TEST = (EXTR OBJ3 1); REF = 5 ; SI ( TEST NEG REF ); MESS 'ERREUR de + entre 1 LISTENTI et 1 FLOTTANT'; MESS 'Valeur obtenue : ' TEST; MESS 'Valeur attendue : ' REF ; ERRE 5; FINSI; * Soustraction entre 1 LISTENTI et 1 FLOTTANT OBJ1 = LISTEN1; OBJ2 = 1.; OBJ3 = OBJ1 '-' OBJ2 ; TEST = (EXTR OBJ3 1); REF = 3 ; SI ( TEST NEG REF ); MESS 'ERREUR de - entre 1 LISTENTI et 1 FLOTTANT'; MESS 'Valeur obtenue : ' TEST; MESS 'Valeur attendue : ' REF ; ERRE 5; FINSI; ************************************************************************ * Addition entre 1 FLOTTANT et 1 LISTENTI OBJ1 = 1.; OBJ2 = LISTEN1; OBJ3 = OBJ1 '+' OBJ2 ; TEST = (EXTR OBJ3 1); REF = 5 ; SI ( TEST NEG REF ); MESS 'ERREUR de + entre 1 LISTENTI et 1 FLOTTANT'; MESS 'Valeur obtenue : ' TEST; MESS 'Valeur attendue : ' REF ; ERRE 5; FINSI; * Soustraction entre 1 FLOTTANT et 1 LISTENTI OBJ1 = 1.; OBJ2 = LISTEN1; OBJ3 = OBJ1 '-' OBJ2 ; TEST = (EXTR OBJ3 1); REF = -3 ; SI ( TEST NEG REF ); MESS 'ERREUR de - entre 1 LISTENTI et 1 FLOTTANT'; MESS 'Valeur obtenue : ' TEST; MESS 'Valeur attendue : ' REF ; ERRE 5; FINSI; FIN;