|
DataMuseum.dkPresents historical artifacts from the history of: Bogika Butler |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Bogika Butler Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1152 (0x480)
Names: »ADDITION.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
└─ ⟦this⟧ »ADDITION.PAS«
0x000…020 50 52 4f 47 52 41 4d 20 61 64 64 69 74 69 6f 6e 3b 0d 0a 0d 0a 20 20 56 41 52 0d 0a 20 20 20 20 ┆PROGRAM addition; VAR ┆
0x020…040 67 72 61 64 2c 20 78 2c 20 79 2c 20 74 61 65 6c 6c 65 72 2c 20 73 75 6d 2c 20 69 20 3a 20 49 4e ┆grad, x, y, taeller, sum, i : IN┆
0x040…060 54 45 47 45 52 3b 0d 0a 20 20 20 20 63 68 20 3a 20 43 48 41 52 3b 0d 0a 20 20 0d 0a 20 20 42 45 ┆TEGER; ch : CHAR; BE┆
0x060…080 47 49 4e 0d 0a 20 20 20 20 52 41 4e 44 4f 4d 49 5a 45 3b 0d 0a 20 20 20 20 52 45 50 45 41 54 0d ┆GIN RANDOMIZE; REPEAT ┆
0x080…0a0 0a 20 20 20 20 20 20 57 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 ┆ WRITE(CLRHOM); WRI┆
0x0a0…0c0 54 45 4c 4e 28 27 41 44 44 49 54 49 4f 4e 53 4f 50 47 41 56 45 52 27 29 3b 0d 0a 20 20 20 20 20 ┆TELN('ADDITIONSOPGAVER'); ┆
0x0c0…0e0 20 57 52 49 54 45 28 27 49 6e 64 74 61 73 74 20 73 76 7b 72 68 65 64 73 67 72 61 64 20 28 31 20 ┆ WRITE('Indtast sværhedsgrad (1 ┆
0x0e0…100 2d 20 31 30 29 3a 20 27 29 3b 0d 0a 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 ┆- 10): '); REPEAT ┆
0x100…120 20 20 52 45 41 44 4c 4e 28 67 72 61 64 29 3b 0d 0a 20 20 20 20 20 20 55 4e 54 49 4c 20 28 31 20 ┆ READLN(grad); UNTIL (1 ┆
0x120…140 3c 3d 20 67 72 61 64 29 20 41 4e 44 20 28 67 72 61 64 20 3c 3d 20 31 30 29 3b 0d 0a 20 20 20 20 ┆<= grad) AND (grad <= 10); ┆
0x140…160 20 20 74 61 65 6c 6c 65 72 20 3a 3d 20 30 3b 0d 0a 20 20 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 ┆ taeller := 0; FOR i := ┆
0x160…180 31 20 54 4f 20 31 30 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 ┆1 TO 10 DO BEGIN ┆
0x180…1a0 20 20 20 20 20 78 20 3a 3d 20 52 41 4e 44 4f 4d 28 31 30 20 2a 20 53 51 52 28 67 72 61 64 29 29 ┆ x := RANDOM(10 * SQR(grad))┆
0x1a0…1c0 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 79 20 3a 3d 20 52 41 4e 44 4f 4d 28 31 30 20 2a 20 53 51 ┆; y := RANDOM(10 * SQ┆
0x1c0…1e0 52 28 67 72 61 64 29 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 78 2c 20 27 20 ┆R(grad)); WRITE(x, ' ┆
0x1e0…200 2b 20 27 2c 20 79 2c 20 27 20 3d 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 52 45 41 44 4c ┆+ ', y, ' = '); READL┆
0x200…220 4e 28 73 75 6d 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 49 46 20 73 75 6d 20 3d 20 28 78 20 2b ┆N(sum); IF sum = (x +┆
0x220…240 20 79 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 ┆ y) THEN ┆
0x240…260 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 61 65 6c ┆ BEGIN tael┆
0x260…280 6c 65 72 20 3a 3d 20 74 61 65 6c 6c 65 72 20 2b 20 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ler := taeller + 1; ┆
0x280…2a0 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 53 76 61 72 65 74 20 65 72 20 6b 6f 72 72 65 6b 74 27 ┆ WRITELN('Svaret er korrekt'┆
0x2a0…2c0 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 20 20 20 20 20 ┆); END ┆
0x2c0…2e0 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 ┆ ELSE BEGIN ┆
0x2e0…300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 53 76 61 72 65 74 20 65 72 ┆ WRITELN('Svaret er┆
0x300…320 20 69 6b 6b 65 20 6b 6f 72 72 65 6b 74 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ikke korrekt'); ┆
0x320…340 20 20 57 52 49 54 45 4c 4e 28 27 44 65 74 20 6b 6f 72 72 65 6b 74 65 20 73 76 61 72 20 65 72 20 ┆ WRITELN('Det korrekte svar er ┆
0x340…360 27 2c 20 78 20 2b 20 79 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a ┆', x + y); END; ┆
0x360…380 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 ┆ END; WRITELN; ┆
0x380…3a0 20 20 20 20 57 52 49 54 45 4c 4e 28 27 44 75 20 68 61 72 20 72 65 67 6e 65 74 20 27 2c 20 74 61 ┆ WRITELN('Du har regnet ', ta┆
0x3a0…3c0 00 49 4e 53 54 41 4c 4c 20 44 41 54 00 00 00 80 11 00 9b 00 9c 00 9d 00 9e 00 9f 00 a0 00 a1 00 ┆ INSTALL DAT ┆
0x3c0…3e0 30 27 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 27 5c 6e 73 6b 65 72 20 64 75 20 61 74 20 ┆0'); WRITE('Ønsker du at ┆
0x3e0…400 70 72 7c 76 65 20 69 67 65 6e 20 28 6a 2f 6e 29 3a 20 27 29 3b 0d 0a 20 20 20 20 20 20 52 45 50 ┆prøve igen (j/n): '); REP┆
0x400…420 45 41 54 0d 0a 20 20 20 20 20 20 20 20 52 45 41 44 28 63 68 29 3b 0d 0a 20 20 20 20 20 20 55 4e ┆EAT READ(ch); UN┆
0x420…440 54 49 4c 20 28 63 68 20 3d 20 27 6a 27 29 20 4f 52 20 28 63 68 20 3d 20 27 6e 27 29 3b 0d 0a 20 ┆TIL (ch = 'j') OR (ch = 'n'); ┆
0x440…460 20 20 20 55 4e 54 49 4c 20 63 68 20 3d 20 27 6e 27 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b ┆ UNTIL ch = 'n'; WRITELN;┆
0x460…480 0d 0a 20 20 45 4e 44 2e 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ END. ┆