Télécharger la plaquette Cast3M


fr en

Télécharger test_addition_LIST.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier : test_addition_list.dgibi
  2.  
  3. ************************************************************************
  4. ************************************************************************
  5. ************************************************************************
  6. * Auteur : C. BERTHINIER
  7. * Date   : Novembre 2014
  8.  
  9.  
  10.  
  11. * Ce Cas-Test permet de vérifier que les opérations '+' et '-' sur les 
  12. * {LISTENTI, LISTREEL} avec {LISTENTI, LISTREEL, ENTIER, FLOTTANTS}
  13. *  sont effectuées conformément à la notice
  14.  
  15. LISTRE1 = PROG 1. 2. 3.  ;
  16. LISTRE2 = PROG 4. 8. 24. ;
  17.  
  18.  
  19. LISTEN1 = LECT 4  5  6   ;
  20. LISTEN2 = LECT 5  9  25  ;
  21.  
  22. FLOT1 = 10. ; 
  23. ENTI1 = 11  ;
  24.  
  25. ************************************************************************
  26. *                OPERATIONS ENTRE LES LIST(ENTI/REEL)                  *
  27. ************************************************************************
  28.  
  29. * Addition entre 2 LISTREEL
  30. OBJ1 = LISTRE1;
  31. OBJ2 = LISTRE2;
  32. OBJ3 = OBJ1 '+' OBJ2 ;
  33.  
  34. TEST   = (EXTR OBJ3 1);
  35. REF    = 5. ;
  36. SI ( TEST NEG REF );
  37.   MESS 'ERREUR de + entre 2 LISTREEL';
  38.   MESS 'Valeur obtenue  : ' TEST;
  39.   MESS 'Valeur attendue : ' REF ;
  40.   ERRE 5;  
  41. FINSI;
  42.  
  43. * Soustraction entre 2 LISTREEL
  44. OBJ1 = LISTRE1;
  45. OBJ2 = LISTRE2;
  46. OBJ3 = OBJ1 '-' OBJ2 ;
  47.  
  48. TEST   = (EXTR OBJ3 1);
  49. REF    = (-3.) ;
  50. SI ( TEST NEG REF );
  51.   MESS 'ERREUR de - entre 2 LISTREEL';
  52.   MESS 'Valeur obtenue  : ' TEST;
  53.   MESS 'Valeur attendue : ' REF ;
  54.   ERRE 5;  
  55. FINSI;
  56.  
  57. ************************************************************************
  58.  
  59. * Addition entre 2 LISTENTI
  60. OBJ1 = LISTEN1;
  61. OBJ2 = LISTEN2;
  62. OBJ3 = OBJ1 '+' OBJ2 ;
  63.  
  64. TEST   = (EXTR OBJ3 1);
  65. REF    = 9 ;
  66. SI ( TEST NEG REF );
  67.   MESS 'ERREUR de - entre 2 LISTENTI';
  68.   MESS 'Valeur obtenue  : ' TEST;
  69.   MESS 'Valeur attendue : ' REF ;
  70.   ERRE 5;  
  71. FINSI;
  72.  
  73. * Soustraction entre 2 LISTENTI
  74. OBJ1 = LISTEN1;
  75. OBJ2 = LISTEN2;
  76. OBJ3 = OBJ1 '-' OBJ2 ;
  77.  
  78. TEST   = (EXTR OBJ3 1);
  79. REF    = (-1) ;
  80. SI ( TEST NEG REF );
  81.   MESS 'ERREUR de - entre 2 LISTENTI';
  82.   MESS 'Valeur obtenue  : ' TEST;
  83.   MESS 'Valeur attendue : ' REF ;
  84.   ERRE 5;  
  85. FINSI;
  86.  
  87. ************************************************************************
  88.  
  89. * Addition entre 1 LISTREEL et 1 LISTENTI
  90. OBJ1 = LISTRE2;
  91. OBJ2 = LISTEN2;
  92. OBJ3 = OBJ1 '+' OBJ2 ;
  93.  
  94. TEST   = (EXTR OBJ3 1);
  95. REF    = 9. ;
  96. SI ( TEST NEG REF );
  97.   MESS 'ERREUR de + entre 1 LISTREEL et 1 LISTENTI';
  98.   MESS 'Valeur obtenue  : ' TEST;
  99.   MESS 'Valeur attendue : ' REF ;
  100. ERRE 5;  
  101. FINSI;
  102.  
  103. * Soustraction entre 1 LISTREEL et 1 LISTENTI
  104. OBJ1 = LISTRE2;
  105. OBJ2 = LISTEN2;
  106. OBJ3 = OBJ1 '-' OBJ2 ;
  107.  
  108. TEST   = (EXTR OBJ3 1);
  109. REF    = (-1.)  ;
  110. SI ( TEST NEG REF );
  111.   MESS 'ERREUR de - entre 1 LISTREEL et 1 LISTENTI';
  112.   MESS 'Valeur obtenue  : ' TEST;
  113.   MESS 'Valeur attendue : ' REF ;
  114. ERRE 5;  
  115. FINSI;
  116.  
  117. ************************************************************************
  118.  
  119. * Addition entre 1 LISTENTI et 1 LISTREEL
  120. OBJ1 = LISTEN2;
  121. OBJ2 = LISTRE2;
  122. OBJ3 = OBJ1 '+' OBJ2 ;
  123.  
  124. TEST   = (EXTR OBJ3 1);
  125. REF    = 9. ;
  126. SI ( TEST NEG REF );
  127.   MESS 'ERREUR de + entre 1 LISTENTI et 1 LISTREEL';
  128.   MESS 'Valeur obtenue  : ' TEST;
  129.   MESS 'Valeur attendue : ' REF ;
  130. ERRE 5;  
  131. FINSI;
  132.  
  133. * Soustraction entre 1 LISTENTI et 1 LISTREEL
  134. OBJ1 = LISTEN2;
  135. OBJ2 = LISTRE2;
  136. OBJ3 = OBJ1 '-' OBJ2 ;
  137.  
  138. TEST   = (EXTR OBJ3 1);
  139. REF    = 1.  ;
  140. SI ( TEST NEG REF );
  141.   MESS 'ERREUR de - entre 1 LISTENTI et 1 LISTREEL';
  142.   MESS 'Valeur obtenue  : ' TEST;
  143.   MESS 'Valeur attendue : ' REF ;
  144. ERRE 5;  
  145. FINSI;
  146.  
  147. ************************************************************************
  148. *                     OPERATIONS AVEC LES ENTIERS                      *
  149. ************************************************************************
  150.  
  151. * Addition entre 1 LISTREEL et 1 ENTIER
  152. OBJ1 = LISTRE1;
  153. OBJ2 = 3;
  154. OBJ3 = OBJ1 '+' OBJ2 ;
  155.  
  156. TEST   = (EXTR OBJ3 1);
  157. REF    = 4. ;
  158. SI ( TEST NEG REF );
  159.   MESS 'ERREUR de + entre 1 LISTENTI et 1 ENTIER';
  160.   MESS 'Valeur obtenue  : ' TEST;
  161.   MESS 'Valeur attendue : ' REF ;
  162. ERRE 5;  
  163. FINSI;
  164.  
  165. * Soustraction entre 1 LISTREEL et 1 ENTIER
  166. OBJ1 = LISTRE1;
  167. OBJ2 = 3;
  168. OBJ3 = OBJ1 '-' OBJ2 ;
  169.  
  170. TEST   = (EXTR OBJ3 1);
  171. REF    = -2.  ;
  172. SI ( TEST NEG REF );
  173.   MESS 'ERREUR de - entre 1 LISTENTI et 1 ENTIER';
  174.   MESS 'Valeur obtenue  : ' TEST;
  175.   MESS 'Valeur attendue : ' REF ;
  176. ERRE 5;  
  177. FINSI;
  178.  
  179. ************************************************************************
  180.  
  181. * Addition entre 1 ENTIER et 1 LISTREEL
  182. OBJ1 = 3;
  183. OBJ2 = LISTRE1;
  184. OBJ3 = OBJ1 '+' OBJ2 ;
  185.  
  186. TEST   = (EXTR OBJ3 1);
  187. REF    = 4. ;
  188. SI ( TEST NEG REF );
  189.   MESS 'ERREUR de + entre 1 LISTENTI et 1 ENTIER';
  190.   MESS 'Valeur obtenue  : ' TEST;
  191.   MESS 'Valeur attendue : ' REF ;
  192. ERRE 5;  
  193. FINSI;
  194.  
  195. * Soustraction entre 1 ENTIER et 1 LISTREEL
  196. OBJ1 = 3;
  197. OBJ2 = LISTRE1;
  198. OBJ3 = OBJ1 '-' OBJ2 ;
  199.  
  200. TEST   = (EXTR OBJ3 1);
  201. REF    = 2.  ;
  202. SI ( TEST NEG REF );
  203.   MESS 'ERREUR de - entre 1 LISTENTI et 1 ENTIER';
  204.   MESS 'Valeur obtenue  : ' TEST;
  205.   MESS 'Valeur attendue : ' REF ;
  206. ERRE 5;  
  207. FINSI;
  208.  
  209. ************************************************************************
  210.  
  211. * Addition entre 1 LISTENTI et 1 ENTIER
  212. OBJ1 = LISTEN1;
  213. OBJ2 = 1;
  214. OBJ3 = OBJ1 '+' OBJ2 ;
  215.  
  216. TEST   = (EXTR OBJ3 1);
  217. REF    = 5 ;
  218. SI ( TEST NEG REF );
  219.   MESS 'ERREUR de + entre 1 LISTENTI et 1 ENTIER';
  220.   MESS 'Valeur obtenue  : ' TEST;
  221.   MESS 'Valeur attendue : ' REF ;
  222. ERRE 5;  
  223. FINSI;
  224.  
  225. * Soustraction entre 1 LISTENTI et 1 ENTIER
  226. OBJ1 = LISTEN1;
  227. OBJ2 = 1;
  228. OBJ3 = OBJ1 '-' OBJ2 ;
  229.  
  230. TEST   = (EXTR OBJ3 1);
  231. REF    = 3  ;
  232. SI ( TEST NEG REF );
  233.   MESS 'ERREUR de - entre 1 LISTENTI et 1 ENTIER';
  234.   MESS 'Valeur obtenue  : ' TEST;
  235.   MESS 'Valeur attendue : ' REF ;
  236. ERRE 5;  
  237. FINSI;
  238.  
  239. ************************************************************************
  240.  
  241. * Addition entre 1 ENTIER et 1 LISTENTI
  242. OBJ1 = 1;
  243. OBJ2 = LISTEN1;
  244. OBJ3 = OBJ1 '+' OBJ2 ;
  245.  
  246. TEST   = (EXTR OBJ3 1);
  247. REF    = 5 ;
  248. SI ( TEST NEG REF );
  249.   MESS 'ERREUR de + entre 1 LISTENTI et 1 ENTIER';
  250.   MESS 'Valeur obtenue  : ' TEST;
  251.   MESS 'Valeur attendue : ' REF ;
  252. ERRE 5;  
  253. FINSI;
  254.  
  255. * Soustraction entre 1 ENTIER et 1 LISTENTI
  256. OBJ1 = 1;
  257. OBJ2 = LISTEN1;
  258. OBJ3 = OBJ1 '-' OBJ2 ;
  259.  
  260. TEST   = (EXTR OBJ3 1);
  261. REF    = -3  ;
  262. SI ( TEST NEG REF );
  263.   MESS 'ERREUR de - entre 1 LISTENTI et 1 ENTIER';
  264.   MESS 'Valeur obtenue  : ' TEST;
  265.   MESS 'Valeur attendue : ' REF ;
  266. ERRE 5;  
  267. FINSI;
  268.  
  269. ************************************************************************
  270. *                    OPERATIONS AVEC LES FLOTTANTS                     *
  271. ************************************************************************
  272.  
  273.  
  274. * Addition entre 1 LISTREEL et 1 FLOTTANT
  275. OBJ1 = LISTRE1;
  276. OBJ2 = 3.;
  277. OBJ3 = OBJ1 '+' OBJ2 ;
  278.  
  279. TEST   = (EXTR OBJ3 1);
  280. REF    = 4. ;
  281. SI ( TEST NEG REF );
  282.   MESS 'ERREUR de + entre 1 LISTENTI et 1 FLOTTANT';
  283.   MESS 'Valeur obtenue  : ' TEST;
  284.   MESS 'Valeur attendue : ' REF ;
  285. ERRE 5;  
  286. FINSI;
  287.  
  288. * Soustraction entre 1 LISTREEL et 1 FLOTTANT
  289. OBJ1 = LISTRE1;
  290. OBJ2 = 3.;
  291. OBJ3 = OBJ1 '-' OBJ2 ;
  292.  
  293. TEST   = (EXTR OBJ3 1);
  294. REF    = -2.  ;
  295. SI ( TEST NEG REF );
  296.   MESS 'ERREUR de - entre 1 LISTENTI et 1 FLOTTANT';
  297.   MESS 'Valeur obtenue  : ' TEST;
  298.   MESS 'Valeur attendue : ' REF ;
  299. ERRE 5;  
  300. FINSI;
  301.  
  302. ************************************************************************
  303.  
  304. * Addition entre 1 FLOTTANT et 1 LISTREEL
  305. OBJ1 = 3.;
  306. OBJ2 = LISTRE1;
  307. OBJ3 = OBJ1 '+' OBJ2 ;
  308.  
  309. TEST   = (EXTR OBJ3 1);
  310. REF    = 4. ;
  311. SI ( TEST NEG REF );
  312.   MESS 'ERREUR de + entre 1 LISTENTI et 1 FLOTTANT';
  313.   MESS 'Valeur obtenue  : ' TEST;
  314.   MESS 'Valeur attendue : ' REF ;
  315. ERRE 5;  
  316. FINSI;
  317.  
  318. * Soustraction entre 1 FLOTTANT et 1 LISTREEL
  319. OBJ1 = 3.;
  320. OBJ2 = LISTRE1;
  321. OBJ3 = OBJ1 '-' OBJ2 ;
  322.  
  323. TEST   = (EXTR OBJ3 1);
  324. REF    = 2.  ;
  325. SI ( TEST NEG REF );
  326.   MESS 'ERREUR de - entre 1 LISTENTI et 1 FLOTTANT';
  327.   MESS 'Valeur obtenue  : ' TEST;
  328.   MESS 'Valeur attendue : ' REF ;
  329. ERRE 5;  
  330. FINSI;
  331.  
  332. ************************************************************************
  333.  
  334. * Addition entre 1 LISTENTI et 1 FLOTTANT
  335. OBJ1 = LISTEN1;
  336. OBJ2 = 1.;
  337. OBJ3 = OBJ1 '+' OBJ2 ;
  338.  
  339. TEST   = (EXTR OBJ3 1);
  340. REF    = 5 ;
  341. SI ( TEST NEG REF );
  342.   MESS 'ERREUR de + entre 1 LISTENTI et 1 FLOTTANT';
  343.   MESS 'Valeur obtenue  : ' TEST;
  344.   MESS 'Valeur attendue : ' REF ;
  345. ERRE 5;  
  346. FINSI;
  347.  
  348. * Soustraction entre 1 LISTENTI et 1 FLOTTANT
  349. OBJ1 = LISTEN1;
  350. OBJ2 = 1.;
  351. OBJ3 = OBJ1 '-' OBJ2 ;
  352.  
  353. TEST   = (EXTR OBJ3 1);
  354. REF    = 3  ;
  355. SI ( TEST NEG REF );
  356.   MESS 'ERREUR de - entre 1 LISTENTI et 1 FLOTTANT';
  357.   MESS 'Valeur obtenue  : ' TEST;
  358.   MESS 'Valeur attendue : ' REF ;
  359. ERRE 5;  
  360. FINSI;
  361.  
  362. ************************************************************************
  363.  
  364. * Addition entre 1 FLOTTANT et 1 LISTENTI
  365. OBJ1 = 1.;
  366. OBJ2 = LISTEN1;
  367. OBJ3 = OBJ1 '+' OBJ2 ;
  368.  
  369. TEST   = (EXTR OBJ3 1);
  370. REF    = 5 ;
  371. SI ( TEST NEG REF );
  372.   MESS 'ERREUR de + entre 1 LISTENTI et 1 FLOTTANT';
  373.   MESS 'Valeur obtenue  : ' TEST;
  374.   MESS 'Valeur attendue : ' REF ;
  375. ERRE 5;  
  376. FINSI;
  377.  
  378. * Soustraction entre 1 FLOTTANT et 1 LISTENTI
  379. OBJ1 = 1.;
  380. OBJ2 = LISTEN1;
  381. OBJ3 = OBJ1 '-' OBJ2 ;
  382.  
  383. TEST   = (EXTR OBJ3 1);
  384. REF    = -3  ;
  385. SI ( TEST NEG REF );
  386.   MESS 'ERREUR de - entre 1 LISTENTI et 1 FLOTTANT';
  387.   MESS 'Valeur obtenue  : ' TEST;
  388.   MESS 'Valeur attendue : ' REF ;
  389. ERRE 5;  
  390. FINSI;
  391.  
  392. FIN;
  393.  
  394.  
  395.  
  396.  
  397.  
  398.  
  399.  
  400.  
  401.  
  402.  
  403.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales