DataMuseum.dk

top - download

    Length: 1152 (0x480)
    Types: TextFile
    Names: »BOLDSPIL.PAS«

└─⟦3702e543b⟧ Bits:30003064 Demoprogrammer A-J til Pascal bog
    └─ ⟦this⟧ »BOLDSPIL.PAS« 

TextFile

PROGRAM boldspil;

  CONST
    aslut = 5;
    bslut = 3;
    maxpoints = 6;
  
  VAR
    apoints, bpoints, asejr, bsejr, antal, rnd, i : INTEGER;
  
  BEGIN
    WRITE(CLRHOM);
    WRITE('Tast antal spil: ');
    READLN(antal);
    RANDOMIZE;
    asejr := 0;
    bsejr := 0;
    FOR i := 1 TO antal DO
      BEGIN
        apoints := aslut;
        bpoints := bslut;
        REPEAT
          rnd := RANDOM(2);
          IF rnd = 0
            THEN apoints := apoints + 1
            ELSE bpoints := bpoints + 1;
        UNTIL (apoints = maxpoints) OR (bpoints = maxpoints);
        IF apoints = maxpoints
          THEN asejr := asejr + 1
          ELSE bsejr := bsejr + 1;
      END;
    WRITELN;
    WRITELN('Ud af ', antal, ' spil har A vundet ',
            asejr / antal * 100 : 5 : 2, ' % og B har vundet ',
            bsejr / antal * 100 : 5 : 2, ' %');
    WRITELN('Puljen bør deles i forholdet ', ROUND(asejr / antal * 100),
            ' til ', 100 - ROUND(asejr / antal * 100));
  END.
«eof»