Télécharger la plaquette Cast3M


fr en

Télécharger format_msg.dgibi

Retour à la liste

Numérotation des lignes : 

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

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