|
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: 1536 (0x600)
Names: »NAVNSORT.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
└─⟦this⟧ »NAVNSORT.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,) 2d 20 31 3b 0d 0a 20 20 20 20 20 20 20 20 73 6c 75 74 20 3a 3d 20 54 52 55 45 3b 0d 0a 20 20 20 ┆- 1; slut := TRUE; ┆
0x420…440 20 20 20 20 20 46 4f 52 20 6a 20 3a 3d 20 31 20 54 4f 20 69 20 44 4f 0d 0a 20 20 20 20 20 20 20 ┆ FOR j := 1 TO i DO ┆
0x440…460 20 20 20 49 46 20 74 28 2e 6a 2e 29 20 3e 20 74 28 2e 6a 20 2b 20 31 2e 29 0d 0a 20 20 20 20 20 ┆ IF t(.j.) > t(.j + 1.) ┆
0x460…480 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 20 20 42 45 47 49 4e ┆ THEN BEGIN┆
0x480…4a0 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 75 74 20 3a 3d 20 46 41 4c 53 45 3b ┆ slut := FALSE;┆
0x4a0…4c0 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 76 6e 20 3a 3d 20 74 28 2e 6a 2e 29 ┆ navn := t(.j.)┆
0x4c0…4e0 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 28 2e 6a 2e 29 20 3a 3d 20 74 28 2e ┆; t(.j.) := t(.┆
0x4e0…500 6a 20 2b 20 31 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 28 2e 6a 20 2b ┆j + 1.); t(.j +┆
0x500…520 20 31 2e 29 20 3a 3d 20 6e 61 76 6e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 ┆ 1.) := navn; END┆
0x520…540 3b 0d 0a 20 20 20 20 20 20 55 4e 54 49 4c 20 28 69 20 3d 20 31 29 20 4f 52 20 73 6c 75 74 3b 0d ┆; UNTIL (i = 1) OR slut; ┆
0x540…560 0a 20 20 20 20 45 4e 44 3b 20 28 2a 20 73 6f 72 74 65 72 69 6e 67 20 2a 29 0d 0a 20 20 0d 0a 20 ┆ END; (* sortering *) ┆
0x560…580 20 42 45 47 49 4e 20 28 2a 20 6e 61 76 6e 73 6f 72 74 20 2a 29 0d 0a 20 20 20 20 69 6e 64 28 74 ┆ BEGIN (* navnsort *) ind(t┆
0x580…5a0 61 62 65 6c 29 3b 0d 0a 20 20 20 20 73 6f 72 74 65 72 69 6e 67 28 74 61 62 65 6c 29 3b 0d 0a 20 ┆abel); sortering(tabel); ┆
0x5a0…5c0 20 20 20 75 64 28 74 61 62 65 6c 29 3b 0d 0a 20 20 45 4e 44 2e 20 28 2a 20 6e 61 76 6e 73 6f 72 ┆ ud(tabel); END. (* navnsor┆
0x5c0…5e0 74 20 2a 29 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 ┆t *) ┆
0x5e0…600 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 ┆ ┆