|
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 - download
Length: 1792 (0x700)
Names: »BISEC.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
└─⟦this⟧ »BISEC.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 20 20 68 61 6c 76 65 72 69 6e 67 20 3a 3d 20 30 3b 0d 0a 20 20 20 20 20 20 52 45 50 45 41 54 ┆ halvering := 0; REPEAT┆
0x420…440 0d 0a 20 20 20 20 20 20 20 20 67 6c 6d 65 6c 6c 65 6d 20 3a 3d 20 6d 65 6c 6c 65 6d 3b 0d 0a 20 ┆ glmellem := mellem; ┆
0x440…460 20 20 20 20 20 20 20 49 46 20 66 28 61 29 20 2a 20 66 28 6d 65 6c 6c 65 6d 29 20 3e 3d 20 30 20 ┆ IF f(a) * f(mellem) >= 0 ┆
0x460…480 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 61 20 3a 3d 20 6d 65 6c 6c 65 6d 0d 0a 20 20 20 ┆THEN a := mellem ┆
0x480…4a0 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 62 20 3a 3d 20 6d 65 6c 6c 65 6d ┆ ELSE b := mellem┆
0x4a0…4c0 3b 0d 0a 20 20 20 20 20 20 20 20 6d 65 6c 6c 65 6d 20 3a 3d 20 28 61 20 2b 20 62 29 20 2f 20 32 ┆; mellem := (a + b) / 2┆
0x4c0…4e0 3b 0d 0a 20 20 20 20 20 20 20 20 68 61 6c 76 65 72 69 6e 67 20 3a 3d 20 68 61 6c 76 65 72 69 6e ┆; halvering := halverin┆
0x4e0…500 67 20 2b 20 31 3b 0d 0a 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 6d 65 6c 6c 65 6d 29 3b ┆g + 1; WRITELN(mellem);┆
0x500…520 0d 0a 20 20 20 20 20 20 55 4e 54 49 4c 20 67 6c 6d 65 6c 6c 65 6d 20 3d 20 6d 65 6c 6c 65 6d 3b ┆ UNTIL glmellem = mellem;┆
0x520…540 0d 0a 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 4e 75 6c 70 75 6e 6b 74 20 69 20 69 6e 74 65 ┆ WRITELN('Nulpunkt i inte┆
0x540…560 72 76 61 6c 6c 65 74 20 66 72 61 20 27 2c 20 67 6c 61 20 3a 20 38 20 3a 20 32 2c 20 27 20 74 69 ┆rvallet fra ', gla : 8 : 2, ' ti┆
0x560…580 6c 20 27 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6c 62 20 3a 20 38 20 3a 20 32 2c ┆l ', glb : 8 : 2,┆
0x580…5a0 20 27 3a 20 27 2c 20 6d 65 6c 6c 65 6d 20 3a 20 32 30 20 3a 20 31 30 29 3b 0d 0a 20 20 20 20 20 ┆ ': ', mellem : 20 : 10); ┆
0x5a0…5c0 20 57 52 49 54 45 4c 4e 28 27 46 75 6e 6b 74 69 6f 6e 73 76 7b 72 64 69 65 6e 20 69 20 64 65 74 ┆ WRITELN('Funktionsværdien i det┆
0x5c0…5e0 74 65 20 70 75 6e 6b 74 20 65 72 3a 20 27 2c 20 66 28 6d 65 6c 6c 65 6d 29 20 3a 20 32 30 20 3a ┆te punkt er: ', f(mellem) : 20 :┆
0x5e0…600 20 31 33 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 52 6f 64 65 6e 20 65 72 20 66 ┆ 13); WRITELN('Roden er f┆
0x600…620 (3,) 75 6e 64 65 74 20 76 65 64 20 27 2c 20 68 61 6c 76 65 72 69 6e 67 2c 20 27 20 68 61 6c 76 65 72 ┆undet ved ', halvering, ' halver┆
0x620…640 69 6e 67 65 72 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 ┆inger'); WRITE('Ønsker du┆
0x640…660 20 61 74 20 70 72 7c 76 65 20 69 67 65 6e 20 28 6a 2f 6e 29 3f 20 27 29 3b 0d 0a 20 20 20 20 20 ┆ at prøve igen (j/n)? '); ┆
0x660…680 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 20 20 42 55 46 4c 45 4e 20 3a 3d 20 31 3b 0d 0a 20 ┆ REPEAT BUFLEN := 1; ┆
0x680…6a0 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 54 49 4c 20 28 63 ┆ READ(ch); UNTIL (c┆
0x6a0…6c0 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 20 20 20 20 20 57 ┆h = 'j') OR (ch = 'n'); W┆
0x6c0…6e0 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 55 4e 54 49 4c 20 63 68 20 3d 20 27 6e 27 3b 0d 0a 20 20 ┆RITELN; UNTIL ch = 'n'; ┆
0x6e0…700 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 1a 1a 1a 1a ┆END. ┆