Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.atnf.csiro.au/computing/software/gipsy/sheltran/WHILE.html
Дата изменения: Unknown
Дата индексирования: Fri Jan 16 23:07:34 2009
Кодировка:
Поисковые слова: http www.astronomy.ru forum index.php topic 4644.0.html
Sheltran - WHILE construct

Sheltran - WHILE construct

Form:

      WHILE <logical expression>
         <statement>...
    [    XWHILE 
         <statement>...      ] 
      CWHILE

Actions:

Whilst <logical expression> has a value .TRUE., the statements within the loop WHILE-CWHILE will be executed, and <logical expression> re-evaluated. When <logical expression> has a value .FALSE., control is transferred to the statement following CWHILE. At any point in the WHILE loop an XWHILE statement may be inserted. This statement transfers control to the statement following CWHILE independently of the value of <logical expression>.

Example:

      
      WHILE I.LE.72 
         CHR=LINE(I) 
         IF CHR.EQ.BLANK 
         THEN
            I=I+1 
         ELSE
            IF CHR.GE.'A'.AND.CHR.LE.'Z'
            THEN
               XWHILE
            CIF 
         CIF 
      CWHILE
Programming GIPSY