Télécharger test_addition_LIST.dgibi

Retour à la liste

Numérotation des lignes :

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

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