DataMuseum.dk

top - metrics - download

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

└─⟦08ea08c61⟧ Bits:30003924 PolyPascal programmer
    └─⟦this⟧ »ADDITION.PAS« 
└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
    └─⟦this⟧ »ADDITION.PAS« 
└─⟦3702e543b⟧ Bits:30003064 Demoprogrammer A-J til Pascal bog
    └─⟦this⟧ »ADDITION.PAS« 

TextFile

PROGRAM addition;

  VAR
    grad, x, y, taeller, sum, i : INTEGER;
    ch : CHAR;
  
  BEGIN
    RANDOMIZE;
    REPEAT
      WRITE(CLRHOM);
      WRITELN('ADDITIONSOPGAVER');
      WRITE('Indtast sværhedsgrad (1 - 10): ');
      REPEAT
        READLN(grad);
      UNTIL (1 <= grad) AND (grad <= 10);
      taeller := 0;
      FOR i := 1 TO 10 DO
        BEGIN
          x := RANDOM(10 * SQR(grad));
          y := RANDOM(10 * SQR(grad));
          WRITE(x, ' + ', y, ' = ');
          READLN(sum);
          IF sum = (x + y)
            THEN
              BEGIN
                taeller := taeller + 1;
                WRITELN('Svaret er korrekt');
              END
            ELSE
              BEGIN
                WRITELN('Svaret er ikke korrekt');
                WRITELN('Det korrekte svar er ', x + y);
              END;
        END;
      WRITELN;
      WRITELN('Du har regnet ', taeller, ' opgaver rigtige ud af 10');
      WRITE('Ønsker du at prøve igen (j/n): ');
      REPEAT
        READ(ch);
      UNTIL (ch = 'j') OR (ch = 'n');
    UNTIL ch = 'n';
    WRITELN;
  END.
«eof»