Télécharger Test_addition_LIST.dgibi

Retour à la liste

Numérotation des lignes :

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

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