|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3200 (0xc80)
Names: »DIVISION.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
└─⟦this⟧ »DIVISION.PAS«
0x000…020 (0,) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x1f…]
0x400…420 (2,) 20 57 52 49 54 45 4c 4e 28 27 56 65 6c 6b 6f 6d 6d 65 6e 2c 20 27 2c 20 6e 61 76 6e 2c 20 27 2e ┆ WRITELN('Velkommen, ', navn, '.┆
0x420…440 20 44 75 20 66 7d 72 20 6e 75 20 73 74 69 6c 6c 65 74 20 35 20 64 69 76 69 73 69 6f 6e 73 6f 70 ┆ Du får nu stillet 5 divisionsop┆
0x440…460 67 61 76 65 72 27 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 61 6e 74 61 ┆gaver'); WRITELN; anta┆
0x460…480 6c 20 3a 3d 20 30 3b 0d 0a 20 20 20 20 72 69 67 74 69 67 65 20 3a 3d 20 30 3b 0d 0a 20 20 20 20 ┆l := 0; rigtige := 0; ┆
0x480…4a0 66 65 6a 6c 20 3a 3d 20 46 41 4c 53 45 3b 0d 0a 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 ┆fejl := FALSE; REPEAT ┆
0x4a0…4c0 20 20 61 6e 74 61 6c 20 3a 3d 20 61 6e 74 61 6c 20 2b 20 31 3b 0d 0a 20 20 20 20 20 20 64 69 76 ┆ antal := antal + 1; div┆
0x4c0…4e0 69 64 65 6e 64 31 20 3a 3d 20 52 41 4e 44 4f 4d 28 67 72 61 64 20 2b 20 31 29 3b 0d 0a 20 20 20 ┆idend1 := RANDOM(grad + 1); ┆
0x4e0…500 20 20 20 64 69 76 69 64 65 6e 64 32 20 3a 3d 20 52 41 4e 44 4f 4d 28 67 72 61 64 20 2b 20 31 29 ┆ dividend2 := RANDOM(grad + 1)┆
0x500…520 3b 0d 0a 20 20 20 20 20 20 64 69 76 69 73 6f 72 31 20 3a 3d 20 52 41 4e 44 4f 4d 28 67 72 61 64 ┆; divisor1 := RANDOM(grad┆
0x520…540 29 20 2b 31 20 3b 0d 0a 20 20 20 20 20 20 64 69 76 69 73 6f 72 32 20 3a 3d 20 52 41 4e 44 4f 4d ┆) +1 ; divisor2 := RANDOM┆
0x540…560 28 67 72 61 64 29 20 2b 20 31 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 ┆(grad) + 1; WRITELN; ┆
0x560…580 20 20 20 57 52 49 54 45 4c 4e 28 64 69 76 69 64 65 6e 64 31 2c 20 27 2f 27 2c 20 64 69 76 69 73 ┆ WRITELN(dividend1, '/', divis┆
0x580…5a0 6f 72 31 2c 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 20 2b 20 27 2c 20 64 69 76 69 ┆or1, ' + ', divi┆
0x5a0…5c0 64 65 6e 64 32 2c 20 27 2f 27 2c 20 64 69 76 69 73 6f 72 32 2c 20 27 20 3d 20 3f 27 29 3b 0d 0a ┆dend2, '/', divisor2, ' = ?'); ┆
0x5c0…5e0 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 64 69 76 69 64 65 6e 64 20 3a ┆ WRITELN; dividend :┆
0x5e0…600 3d 20 64 69 76 69 64 65 6e 64 31 20 2a 20 64 69 76 69 73 6f 72 32 20 2b 20 64 69 76 69 64 65 6e ┆= dividend1 * divisor2 + dividen┆
0x600…620 (3,) 64 32 20 2a 20 64 69 76 69 73 6f 72 31 3b 0d 0a 20 20 20 20 20 20 64 69 76 69 73 6f 72 20 3a 3d ┆d2 * divisor1; divisor :=┆
0x620…640 20 64 69 76 69 73 6f 72 31 20 2a 20 64 69 76 69 73 6f 72 32 3b 0d 0a 20 20 20 20 20 20 66 6f 72 ┆ divisor1 * divisor2; for┆
0x640…660 6b 6f 72 74 28 64 69 76 69 64 65 6e 64 2c 20 64 69 76 69 73 6f 72 29 3b 0d 0a 20 20 20 20 20 20 ┆kort(dividend, divisor); ┆
0x660…680 66 6f 72 73 6f 65 67 20 3a 3d 20 30 3b 0d 0a 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 ┆forsoeg := 0; REPEAT ┆
0x680…6a0 20 20 20 20 20 66 6f 72 73 6f 65 67 20 3a 3d 20 66 6f 72 73 6f 65 67 20 2b 20 31 3b 0d 0a 20 20 ┆ forsoeg := forsoeg + 1; ┆
0x6a0…6c0 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6e 64 74 61 73 74 20 74 7b 6c 6c 65 72 3a 20 27 29 3b ┆ WRITE('Indtast tæller: ');┆
0x6c0…6e0 20 52 45 41 44 4c 4e 28 74 61 65 6c 6c 65 72 29 3b 0d 0a 20 20 20 20 20 20 20 20 57 52 49 54 45 ┆ READLN(taeller); WRITE┆
0x6e0…700 28 27 49 6e 64 74 61 73 74 20 6e 7b 76 6e 65 72 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 6e 61 65 ┆('Indtast nævner: '); READLN(nae┆
0x700…720 76 6e 65 72 29 3b 0d 0a 20 20 20 20 20 20 20 20 49 46 20 28 64 69 76 69 64 65 6e 64 20 3d 20 74 ┆vner); IF (dividend = t┆
0x720…740 61 65 6c 6c 65 72 29 20 41 4e 44 20 28 64 69 76 69 73 6f 72 20 3d 20 6e 61 65 76 6e 65 72 29 0d ┆aeller) AND (divisor = naevner) ┆
0x740…760 0a 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 20 20 20 42 45 47 ┆ THEN BEG┆
0x760…780 49 4e 0d 0a 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 ┆IN WRITELN('Svare┆
0x780…7a0 74 20 65 72 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 72 ┆t er korrekt'); r┆
0x7a0…7c0 69 67 74 69 67 65 20 3a 3d 20 72 69 67 74 69 67 65 20 2b 20 31 3b 0d 0a 20 20 20 20 20 20 20 20 ┆igtige := rigtige + 1; ┆
0x7c0…7e0 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 ┆ END ELSE ┆
0x7e0…800 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 66 65 6a 6c 20 3a ┆ BEGIN fejl :┆
0x800…820 (4,) 3d 20 54 52 55 45 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 66 6f 72 73 6f 65 ┆= TRUE; IF forsoe┆
0x820…840 67 20 3c 20 33 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 57 52 49 54 ┆g < 3 THEN WRIT┆
0x840…860 45 4c 4e 28 27 53 76 61 72 65 74 20 65 72 20 69 6b 6b 65 20 6b 6f 72 72 65 6b 74 20 2d 20 50 72 ┆ELN('Svaret er ikke korrekt - Pr┆
0x860…880 7c 76 20 69 67 65 6e 3a 27 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 ┆øv igen:') ELSE┆
0x880…8a0 20 57 52 49 54 45 4c 4e 28 27 4e 65 6a 2c 20 64 65 74 20 6b 6f 72 72 65 6b 74 65 20 73 76 61 72 ┆ WRITELN('Nej, det korrekte svar┆
0x8a0…8c0 20 65 72 20 27 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ er ', ┆
0x8c0…8e0 20 20 20 20 20 64 69 76 69 64 65 6e 64 2c 20 27 2f 27 2c 20 64 69 76 69 73 6f 72 29 3b 0d 0a 20 ┆ dividend, '/', divisor); ┆
0x8e0…900 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 55 4e 54 49 4c 20 28 66 6f ┆ END; UNTIL (fo┆
0x900…920 72 73 6f 65 67 20 3d 20 33 29 20 4f 52 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 64 69 76 ┆rsoeg = 3) OR ((div┆
0x920…940 69 64 65 6e 64 20 3d 20 74 61 65 6c 6c 65 72 29 20 41 4e 44 20 28 64 69 76 69 73 6f 72 20 3d 20 ┆idend = taeller) AND (divisor = ┆
0x940…960 6e 61 65 76 6e 65 72 29 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 3c 52 ┆naevner)); WRITE('Tast <R┆
0x960…980 45 54 55 52 4e 3e 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 63 68 29 3b 0d 0a 20 20 20 20 55 4e 54 ┆ETURN>: '); READLN(ch); UNT┆
0x980…9a0 49 4c 20 61 6e 74 61 6c 20 3d 20 35 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 ┆IL antal = 5; WRITELN; ┆
0x9a0…9c0 20 43 41 53 45 20 72 69 67 74 69 67 65 20 4f 46 0d 0a 20 20 20 20 20 20 30 20 3a 20 57 52 49 54 ┆ CASE rigtige OF 0 : WRIT┆
0x9c0…9e0 45 4c 4e 28 27 49 6b 6b 65 20 65 74 20 65 6e 65 73 74 65 20 72 69 67 74 69 67 74 20 73 76 61 72 ┆ELN('Ikke et eneste rigtigt svar┆
0x9e0…a00 21 20 4a 61 6d 65 6e 20 27 2c 20 6e 61 76 6e 2c 20 27 20 64 6f 67 21 27 29 3b 0d 0a 20 20 20 20 ┆! Jamen ', navn, ' dog!'); ┆
0xa00…a20 (5,) 20 20 31 20 3a 20 57 52 49 54 45 4c 4e 28 27 4b 75 6e 20 31 20 72 69 67 74 69 67 74 20 73 76 61 ┆ 1 : WRITELN('Kun 1 rigtigt sva┆
0xa20…a40 72 20 2d 20 65 6c 65 6e 64 69 67 74 20 27 2c 20 6e 61 76 6e 29 3b 0d 0a 20 20 20 20 20 20 32 20 ┆r - elendigt ', navn); 2 ┆
0xa40…a60 3a 20 57 52 49 54 45 4c 4e 28 27 32 20 72 69 67 74 69 67 65 20 73 76 61 72 20 2d 20 64 65 74 20 ┆: WRITELN('2 rigtige svar - det ┆
0xa60…a80 65 72 20 69 6b 6b 65 20 73 74 72 7d 6c 65 6e 64 65 20 27 2c 20 6e 61 76 6e 29 3b 0d 0a 20 20 20 ┆er ikke strålende ', navn); ┆
0xa80…aa0 20 20 20 33 20 3a 20 57 52 49 54 45 4c 4e 28 27 33 20 72 69 67 74 69 67 65 20 73 76 61 72 20 2d ┆ 3 : WRITELN('3 rigtige svar -┆
0xaa0…ac0 20 64 65 74 20 6b 75 6e 6e 65 20 76 7b 72 65 20 62 65 64 72 65 20 27 2c 20 6e 61 76 6e 29 3b 0d ┆ det kunne være bedre ', navn); ┆
0xac0…ae0 0a 20 20 20 20 20 20 34 20 3a 20 57 52 49 54 45 4c 4e 28 27 4b 75 6e 20 65 74 20 66 6f 72 6b 65 ┆ 4 : WRITELN('Kun et forke┆
0xae0…b00 72 74 20 73 76 61 72 20 2d 20 69 6b 6b 65 20 76 7b 72 73 74 20 27 2c 20 6e 61 76 6e 29 3b 0d 0a ┆rt svar - ikke værst ', navn); ┆
0xb00…b20 20 20 20 20 20 20 35 20 3a 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 ┆ 5 : BEGIN IF ┆
0xb20…b40 66 65 6a 6c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 57 52 49 54 45 4c 4e ┆fejl THEN WRITELN┆
0xb40…b60 28 27 47 6f 64 74 20 27 2c 20 6e 61 76 6e 2c 20 27 20 35 20 72 69 67 74 69 67 65 20 73 76 61 72 ┆('Godt ', navn, ' 5 rigtige svar┆
0xb60…b80 20 2d 20 6f 6d 65 6e 64 20 27 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ - omend ', ┆
0xb80…ba0 20 20 20 20 20 20 20 20 27 69 6b 6b 65 20 61 6c 6c 65 20 69 20 66 7c 72 73 74 65 20 66 6f 72 73 ┆ 'ikke alle i første fors┆
0xba0…bc0 7c 67 27 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 57 52 49 54 45 4c 4e ┆øg') ELSE WRITELN┆
0xbc0…be0 28 27 50 65 72 66 65 6b 74 20 27 2c 20 6e 61 76 6e 2c 20 27 20 2d 20 64 65 74 20 6b 75 6e 6e 65 ┆('Perfekt ', navn, ' - det kunne┆
0xbe0…c00 20 69 6b 6b 65 20 76 7b 72 65 20 62 65 64 72 65 21 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ ikke være bedre!'); ┆
0xc00…c20 (6,) 73 6f 72 20 2b 20 31 3b 0d 0a 20 20 20 20 55 4e 54 49 4c 20 64 69 76 69 73 6f 72 20 3e 20 53 51 ┆sor + 1; UNTIL divisor > SQ┆
0xc20…c40 52 54 28 68 65 6c 74 61 6c 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 68 65 6c 74 61 6c 20 ┆RT(heltal); WRITELN(heltal ┆
0xc40…c60 3a 20 36 29 3b 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 ┆: 6); END. ┆
0xc60…c80 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆