Program vi_to (input, output);

  CONST
  min = 1;
  midi = 20;
  max =55;
  hun_masker = 40;
  han_masker = 44;
  max_antall = 84;

TYPE

Annonsørinnhold

Få oversikt over salgene: De beste kuppene nå

  garntype = Per Gynt e.l. garnkvalitet
                     /* husk at garntykkelsen må stemme */
  fargetype = SET OF (.hvit, rød.);
  pinne_1 type = ARRAY (.1..5.) OF strømpepinne nr. 3;
  pinne_2 type = ARRAY (.1..5.) OF strømpepinne nr. 3-1/2;
  masketype = SET OF (.rett, vrang.);
  omgang = ARRAY (.1..max_antall.)
  pinne = omgang DIV 4;

VAR

  p2 : pinne_2_type;
  omg : omgang;
  m : maske;
  r : rett;
  vr : vrang;
  p : pinne;
  hun_antall,
  han_antall,
  ant_masker : INTEGER;
  første,
  siste : masketype;
  farge : fargetype;

PROCEDURE hun_og_han (VAR ant_masker : INTEGER;
                        VAR farge : fargetype);

VAR

  omg : omgang;
     p1 : pinne_1_type;

BEGIN

  omg : = ant_masker
  FOR ant_omg = min TO midi DO
     REPEAT
        1r, 1vr;
     UNTIL EOomg

END;   /* procedure hun_og_han  */

BEGIN /* hovedprogram */

  hun_og_han (hun_masker, hvit);
  hun og han (han_masker, rød);
  p : = p2;
  farge : = hvit;
  m : = r;
  ant_masker : = max_antall;
  FOR omg = midi TO max DO
      REPEAT
         1 r;
      UNTIL EOomg;
  REPEAT
    foerste : = foerste + foerste.neste;
    siste : = siste + siste.forrige;

UNTIL ant_masker = 0;

END

/* fest deretter trådene godt, sy evt. sammen mellom vrangbordene */