DataMuseum.dk

top - metrics - download

    Length: 1408 (0x580)
    Types: TextFile
    Names: »NYGAARD.PAS«

└─⟦08ea08c61⟧ Bits:30003924 PolyPascal programmer
    └─⟦this⟧ »NYGAARD.PAS« 
└─⟦09235ab48⟧ Bits:30003065 Demoprogrammer K-Z til Pascal bog
    └─⟦this⟧ »NYGAARD.PAS« 
└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
    └─⟦this⟧ »NYGAARD.PAS« 

TextFile

PROGRAM nygaard;

  VAR
    asekvens, bsekvens, asejr, bsejr, antal : INTEGER;
    i, p, q, r, s, sum : INTEGER;
    afgjort : BOOLEAN;
  
  BEGIN
    WRITE(CLRHOM);
    WRITE('Tast A''s vindersekvens (f.eks. 1011): '); READLN(asekvens);
    WRITE('Tast B''s vindersekvens              : '); READLN(bsekvens);
    WRITE('Tast antal spil                     : '); READLN(antal);
    RANDOMIZE;
    asejr := 0;
    bsejr := 0;
    FOR i := 1 TO antal DO
      BEGIN
        q := RANDOM(2);
        r := RANDOM(2);
        s := RANDOM(2);
        REPEAT
          afgjort := FALSE;
          p := q;
          q := r;
          r := s;
          s := RANDOM(2);
          sum := p * 1000 + q * 100 + r * 10 + s;
          IF sum = asekvens
            THEN
              BEGIN
                asejr := asejr + 1;
                afgjort := TRUE;
                WRITE('A ');
              END;
          IF sum = bsekvens
            THEN
              BEGIN
                bsejr := bsejr + 1;
                afgjort := TRUE;
                WRITE('B ');
              END;
        UNTIL afgjort;
      END;
    WRITELN;
    WRITELN;
    WRITELN('Ud af ', antal, ' spil har A vundet ',
            asejr / antal * 100 : 5 : 2, ' % og B har vundet ',
            bsejr / antal * 100 : 5 : 2, ' %');
  END.
«eof»