Télécharger format_msg.dgibi

Retour à la liste

Numérotation des lignes :

  1. ************************************************
  2. * TEST DES TABULATIONS DANS L'OPERATEUR CHAINE *
  3. ************************************************
  4.  
  5. DEBP TEST_RESULTAT CHA*'MOT' CHB*'MOT' CHC*'MOT' CHD*'MOT' LON*'ENTIER' ;
  6. LIST CHA ;
  7. LIST CHB ;
  8. LIST CHC ;
  9. LIST CHD ;
  10. SAUT 1 'LIGNE' ;
  11.  
  12. SI (NEG (DIME CHA) LON) ;
  13. ERRE 5 ;
  14. FINS ;
  15.  
  16. SI (NEG (DIME CHA) LON) ;
  17. ERRE 5 ;
  18. FINS ;
  19.  
  20. SI (NEG (DIME CHA) LON) ;
  21. ERRE 5 ;
  22. FINS ;
  23.  
  24. SI (NEG (DIME CHA) LON) ;
  25. ERRE 5 ;
  26. FINS ;
  27. FINP ;
  28.  
  29.  
  30. CHA1A = CHAI 'TOTO' *10 ;
  31. CHA1B = CHAI 'TOTO' * 10 ;
  32. CHA1C = CHAI 'TOTO'* 10 ;
  33. CHA1D = CHAI 'TOTO'*10 ;
  34. TEST_RESULTAT CHA1A CHA1B CHA1C CHA1D 10 ;
  35.  
  36. CHA2A = CHAI 'TOTO' /10 ;
  37. CHA2B = CHAI 'TOTO' / 10 ;
  38. CHA2C = CHAI 'TOTO'/ 10 ;
  39. CHA2D = CHAI 'TOTO'/ 10 ;
  40. TEST_RESULTAT CHA2A CHA2B CHA2C CHA2D 13 ;
  41.  
  42. CHA3A = CHAI 'TOTO' <10 ;
  43. CHA3B = CHAI 'TOTO' < 10 ;
  44. CHA3C = CHAI 'TOTO'< 10 ;
  45. CHA3D = CHAI 'TOTO'<10 ;
  46. TEST_RESULTAT CHA3A CHA3B CHA3C CHA3D 10 ;
  47.  
  48. CHA4A = CHAI 'TOTO' >10 ;
  49. CHA4B = CHAI 'TOTO' > 10 ;
  50. CHA4C = CHAI 'TOTO'> 10 ;
  51. CHA4D = CHAI 'TOTO'>10 ;
  52. TEST_RESULTAT CHA4A CHA4B CHA4C CHA4D 13 ;
  53.  
  54. CHA5A = CHAI 'TITI' 'TOTO' <10 ;
  55. CHA5B = CHAI 'TITI' 'TOTO' < 10 ;
  56. CHA5C = CHAI 'TITI' 'TOTO'< 10 ;
  57. CHA5D = CHAI 'TITI' 'TOTO'<10 ;
  58. TEST_RESULTAT CHA5A CHA5B CHA5C CHA5D 14 ;
  59.  
  60. CHA6A = CHAI 'TITI' 'TOTO' >10 ;
  61. CHA6B = CHAI 'TITI' 'TOTO' > 10 ;
  62. CHA6C = CHAI 'TITI' 'TOTO'> 10 ;
  63. CHA6D = CHAI 'TITI' 'TOTO'>10 ;
  64. TEST_RESULTAT CHA6A CHA6B CHA6C CHA6D 17 ;
  65.  
  66.  
  67. *************************************************
  68. * TEST DE LA SYNTAXE 'AVEC' DE L'OPERATEUR ERRE *
  69. *************************************************
  70.  
  71. ERRE -366 'AVEC' 'test' (MOTS 'OK' 'BOO')
  72. 10 (LECT 1 2) 3 4 5 6
  73. PI ((PROG 2 3)**0.5)
  74. VRAI FAUX VRAI FAUX VRAI ;
  75.  
  76. FIN ;
  77.  
  78.  
  79.  
  80.  

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