вторник, 11 октября 2016 г.

#1292. "А ваш язык так может?" №12

USES
 Out.ms.dict
;

'A' .ProcessOut: (
 'ValueA1' .Out
 // - пишем в файл A

 'B' .ProcessOut: (
  'ValueB1' .Out
  // - пишем в файл B

  'C' .ProcessOut: (
   'ValueC1' .Out
   // - пишем в файл C
  ) // 'C' .ProcessOut:

  'ValueB2' .Out
  // - снова пишем в файл B
 ) // 'B' .ProcessOut:

 'ValueA2' .Out
 // - снова пишем в файл A
) // 'A' .ProcessOut:

- пишем в три разных файла без заведения единой переменной.

2 комментария: