/*== EX14 構造体 ====================*/
#include "pseudo.h"
/*-----------------------------------*/
#define  NAMES     (20+1)
#define  EMPS      (50+1)
#define  GROUPS    (10+1)

#include "Ex14.sct"
/*-----------------------------------*/
TYPE VOID
FUNC InpGroup(
        INT nGroups, PtrGROUP group[]
     )
  VAR   StaticGROUP MemGroup[ GROUPS];
        INT         i,j;
  BEGIN
    FOR (i, 1, nGroups)
        group[i]= ADR(MemGroup[i]);

        WriteS("グループ "); WriteI( i);
        WriteS(" の従業員? ");
        ReadInt( _nEmployees(i));

        FOR( j, 1, _nEmployees(i))
            WriteS("氏名，年齢? ");
            ReadS( _empName(i, j));
            ReadInt( _empAge(i, j));
        ENDFOR
    ENDFOR
  END
/*===================================*/
FUNCTION  Main()
VARIABLE
    INT      nGroups;
    PtrGROUP group[ GROUPS];
    INT      i, j;
BEGIN
    WriteS("グループ数? ");
      ReadInt( nGroups);
      InpGroup( nGroups, group);

    FOR (i, 1, nGroups)
      FOR( j, 1, _nEmployees(i))
        DebugString( _empName(i,j));
        DebugInt( _empAge(i,j));
      ENDFOR
    ENDFOR
ENDFUNC
/*===================================*/