|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3744 (0xea0)
Types: TextFile
Notes: Mikados_K
Names: »SPARSE.K«
└─⟦d110b5765⟧ Bits:30005308 Eksamensopgave i dynamiske systemer med FFT
└─⟦this⟧ »SPARSE.K«
PROGRAM SPARSE;
CONST N=40;
TYPE
NBLPIL=^NBL;
KNLPIL=^KNL;
NBL= RECORD
NB: INTEGER;
NEXTNB:NBLPIL;
END;
KNL= RECORD
AN,KN:INTEGER;
NAP: NBLPIL;
NEXTKN:KNLPIL;
END;
OUT=PACKED ARRAY (.1..20.) OF CHAR;
VAR P2,NXNB,NAP,FINA: NBLPIL;
I,S,K,J,TEST:INTEGER;
P1,NXKN,FIRST,VH,PIL,HH,PP,HP,VP: KNLPIL;
BEGIN
WRITELN(CHR(27),CHR(70),CHR(48),CHR(9));
I:=1; K:=1;FIRST:=NIL;
WHILE (I<=N) AND (K>0) DO
BEGIN
WRITELN('KNUDENR ',I:2,'=?','OG ANTAL NABOER?');
READ(K,S); NEW(P1);
WITH P1^ DO
BEGIN
NEXTKN:=FIRST;
AN:=S;
KN:=K;
END; (* WITH P1^ *)
FIRST:=P1; FINA:=NIL;
FOR J:=1 TO S DO
BEGIN
WRITELN('INDTAST NR. PAA NABO NR ',J:2);
READ(K); NEW(P2);
WITH P2^ DO
BEGIN
NEXTNB:=FINA;
NB:=K;
END; (* WITH P2^ *)
FINA:=P2;
END;
P1^.NAP:=FINA;
I:=I+1;
END;
WRITELN('INDLAESNINGEN SLUT GOD NAT ');
READLN;
FIRST:=FIRST^.NEXTKN;
VH:=FIRST;PIL:=FIRST^.NEXTKN;
HH:=PIL^.NEXTKN; TEST:=PIL^.AN;
(*ORDNING EFTER VOKSENDE GRAD*)
WHILE (PIL<>NIL) DO
BEGIN
WRITELN('PIL',PIL^.KN:4,'PP',PP^.KN:4);
P1:=FIRST;
WHILE (P1^.NEXTKN<>NIL) DO BEGIN WRITELN(P1^.KN:4);
P1:=P1^.NEXTKN;
END;
PP:=FIRST; HP:=FIRST^.NEXTKN;
WHILE (PP<>PIL) DO
BEGIN
IF (TEST>PP^.AN) THEN
BEGIN
VP:=PP; PP:=HP; HP:=PP^.NEXTKN;
END
ELSE
BEGIN
IF (PP=FIRST) THEN
BEGIN
PIL^.NEXTKN:=FIRST;
FIRST:=PIL;
VH^.NEXTKN:=HH;
END
ELSE
BEGIN
VH^.NEXTKN:=HH;
PIL^.NEXTKN:=PP;
VP^.NEXTKN:=PIL;
END;
PIL:=VH;
PP:=PIL;
END;
END;
VH:=PIL;
PIL:=HH;
HH:=PIL^.NEXTKN;
TEST:=PIL^.AN;
P1:=FIRST;WRITE('NY ORDNING');
WHILE (P1<>NIL) DO BEGIN
WRITELN(P1^.KN);P1:=P1^.NEXTKN;
END;
END;
WRITELN(LIST,'KNUDENR NABOER');
P1:=FIRST;
WHILE (P1<>NIL) DO
BEGIN
READLN;
WITH P1^ DO
BEGIN
WRITELN(LIST,KN:2,' ');
P2:=NAP;
FOR S:=1 TO AN DO
BEGIN
WITH P2^ DO
WRITE(LIST,NB:2,' , ');
P2:=P2^.NEXTNB;
END
END;
WRITELN;
P1:=P1^.NEXTKN;
END
END.
0x000…011 Line {l1=0x0f, l2=»PROGRAM SPARSE;«, l3=0x0f}
0x011…01e Line {l1=0x0b, l2=»CONST N=40;«, l3=0x0b}
0x01e…024 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x024…036 Line {l1=0x10, l2=» NBLPIL=^NBL;«, l3=0x10}
0x036…048 Line {l1=0x10, l2=» KNLPIL=^KNL;«, l3=0x10}
0x048…05a Line {l1=0x10, l2=» NBL= RECORD«, l3=0x10}
0x05a…076 Line {l1=0x1a, l2=» NB: INTEGER;«, l3=0x1a}
0x076…094 Line {l1=0x1c, l2=» NEXTNB:NBLPIL;«, l3=0x1c}
0x094…0a5 Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x0a5…0b6 Line {l1=0x0f, l2=» KNL= RECORD«, l3=0x0f}
0x0b6…0d0 Line {l1=0x18, l2=» AN,KN:INTEGER;«, l3=0x18}
0x0d0…0e8 Line {l1=0x16, l2=» NAP: NBLPIL;«, l3=0x16}
0x0e8…102 Line {l1=0x18, l2=» NEXTKN:KNLPIL;«, l3=0x18}
0x102…111 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x111…13b Line {l1=0x28, l2=» OUT=PACKED ARRAY (.1..20.) OF CHAR;«, l3=0x28}
0x13b…15a Line {l1=0x1d, l2=»VAR P2,NXNB,NAP,FINA: NBLPIL;«, l3=0x1d}
0x15a…174 Line {l1=0x18, l2=» I,S,K,J,TEST:INTEGER;«, l3=0x18}
0x174…1a3 Line {l1=0x2d, l2=» P1,NXKN,FIRST,VH,PIL,HH,PP,HP,VP: KNLPIL;«, l3=0x2d}
0x1a3…1b8 Line {l1=0x13, l2=» «, l3=0x13}
0x1b8…1bf Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1bf…1c2 Line {l1=0x01, l2=» «, l3=0x01}
0x1c2…1ed Line {l1=0x29, l2=» WRITELN(CHR(27),CHR(70),CHR(48),CHR(9));«, l3=0x29}
0x1ed…205 Line {l1=0x16, l2=»I:=1; K:=1;FIRST:=NIL;«, l3=0x16}
0x205…222 Line {l1=0x1b, l2=» WHILE (I<=N) AND (K>0) DO«, l3=0x1b}
0x222…22b Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x22b…261 Line {l1=0x34, l2=» WRITELN('KNUDENR ',I:2,'=?','OG ANTAL NABOER?');«, l3=0x34}
0x261…278 Line {l1=0x15, l2=» READ(K,S); NEW(P1);«, l3=0x15}
0x278…289 Line {l1=0x0f, l2=» WITH P1^ DO«, l3=0x0f}
0x289…296 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x296…2ac Line {l1=0x14, l2=» NEXTKN:=FIRST;«, l3=0x14}
0x2ac…2ba Line {l1=0x0c, l2=» AN:=S;«, l3=0x0c}
0x2ba…2c8 Line {l1=0x0c, l2=» KN:=K;«, l3=0x0c}
0x2c8…2e3 Line {l1=0x19, l2=» END; (* WITH P1^ *)«, l3=0x19}
0x2e3…2fe Line {l1=0x19, l2=» FIRST:=P1; FINA:=NIL;«, l3=0x19}
0x2fe…314 Line {l1=0x14, l2=» FOR J:=1 TO S DO«, l3=0x14}
0x314…31f Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x31f…352 Line {l1=0x31, l2=» WRITELN('INDTAST NR. PAA NABO NR ',J:2);«, l3=0x31}
0x352…36e Line {l1=0x1a, l2=» READ(K); NEW(P2);«, l3=0x1a}
0x36e…385 Line {l1=0x15, l2=» WITH P2^ DO«, l3=0x15}
0x385…396 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x396…3af Line {l1=0x17, l2=» NEXTNB:=FINA;«, l3=0x17}
0x3af…3c1 Line {l1=0x10, l2=» NB:=K;«, l3=0x10}
0x3c1…3e0 Line {l1=0x1d, l2=» END; (* WITH P2^ *)«, l3=0x1d}
0x3e0…3f1 Line {l1=0x0f, l2=» FINA:=P2;«, l3=0x0f}
0x3f1…3fb Line {l1=0x08, l2=» END;«, l3=0x08}
0x3fb…40f Line {l1=0x12, l2=» P1^.NAP:=FINA;«, l3=0x12}
0x40f…412 Line {l1=0x01, l2=» «, l3=0x01}
0x412…41f Line {l1=0x0b, l2=» I:=I+1;«, l3=0x0b}
0x41f…427 Line {l1=0x06, l2=» END;«, l3=0x06}
0x427…450 Line {l1=0x27, l2=»WRITELN('INDLAESNINGEN SLUT GOD NAT ');«, l3=0x27}
0x450…459 Line {l1=0x07, l2=»READLN;«, l3=0x07}
0x459…45c Line {l1=0x01, l2=» «, l3=0x01}
0x45c…473 Line {l1=0x15, l2=»FIRST:=FIRST^.NEXTKN;«, l3=0x15}
0x473…492 Line {l1=0x1d, l2=»VH:=FIRST;PIL:=FIRST^.NEXTKN;«, l3=0x1d}
0x492…4b3 Line {l1=0x1f, l2=»HH:=PIL^.NEXTKN; TEST:=PIL^.AN;«, l3=0x1f}
0x4b3…4d4 Line {l1=0x1f, l2=»(*ORDNING EFTER VOKSENDE GRAD*)«, l3=0x1f}
0x4d4…4e9 Line {l1=0x13, l2=»WHILE (PIL<>NIL) DO«, l3=0x13}
0x4e9…4f2 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4f2…51f Line {l1=0x2b, l2=» WRITELN('PIL',PIL^.KN:4,'PP',PP^.KN:4);«, l3=0x2b}
0x51f…52f Line {l1=0x0e, l2=» P1:=FIRST;«, l3=0x0e}
0x52f…56a Line {l1=0x39, l2=» WHILE (P1^.NEXTKN<>NIL) DO BEGIN WRITELN(P1^.KN:4);«, l3=0x39}
0x56a…5a2 Line {l1=0x36, l2=» P1:=P1^.NEXTKN;«, l3=0x36}
0x5a2…5c7 Line {l1=0x23, l2=» END;«, l3=0x23}
0x5c7…5eb Line {l1=0x22, l2=» PP:=FIRST; HP:=FIRST^.NEXTKN;«, l3=0x22}
0x5eb…604 Line {l1=0x17, l2=» WHILE (PP<>PIL) DO«, l3=0x17}
0x604…612 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x612…632 Line {l1=0x1e, l2=» IF (TEST>PP^.AN) THEN«, l3=0x1e}
0x632…643 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x643…670 Line {l1=0x2b, l2=» VP:=PP; PP:=HP; HP:=PP^.NEXTKN;«, l3=0x2b}
0x670…67f Line {l1=0x0d, l2=» END«, l3=0x0d}
0x67f…68e Line {l1=0x0d, l2=» ELSE«, l3=0x0d}
0x68e…69f Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x69f…6be Line {l1=0x1d, l2=» IF (PP=FIRST) THEN«, l3=0x1d}
0x6be…6d0 Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x6d0…6f1 Line {l1=0x1f, l2=» PIL^.NEXTKN:=FIRST;«, l3=0x1f}
0x6f1…70a Line {l1=0x17, l2=» FIRST:=PIL;«, l3=0x17}
0x70a…727 Line {l1=0x1b, l2=» VH^.NEXTKN:=HH;«, l3=0x1b}
0x727…73d Line {l1=0x14, l2=» «, l3=0x14}
0x73d…740 Line {l1=0x01, l2=» «, l3=0x01}
0x740…750 Line {l1=0x0e, l2=» END«, l3=0x0e}
0x750…753 Line {l1=0x01, l2=» «, l3=0x01}
0x753…762 Line {l1=0x0d, l2=» ELSE«, l3=0x0d}
0x762…773 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x773…78f Line {l1=0x1a, l2=» VH^.NEXTKN:=HH;«, l3=0x1a}
0x78f…7ac Line {l1=0x1b, l2=» PIL^.NEXTKN:=PP;«, l3=0x1b}
0x7ac…7c9 Line {l1=0x1b, l2=» VP^.NEXTKN:=PIL;«, l3=0x1b}
0x7c9…7d9 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x7d9…7ec Line {l1=0x11, l2=» PIL:=VH;«, l3=0x11}
0x7ec…7ff Line {l1=0x11, l2=» PP:=PIL;«, l3=0x11}
0x7ff…80c Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x80c…817 Line {l1=0x09, l2=» END;«, l3=0x09}
0x817…826 Line {l1=0x0d, l2=» VH:=PIL;«, l3=0x0d}
0x826…835 Line {l1=0x0d, l2=» PIL:=HH;«, l3=0x0d}
0x835…84c Line {l1=0x15, l2=» HH:=PIL^.NEXTKN;«, l3=0x15}
0x84c…861 Line {l1=0x13, l2=» TEST:=PIL^.AN;«, l3=0x13}
0x861…886 Line {l1=0x23, l2=» P1:=FIRST;WRITE('NY ORDNING');«, l3=0x23}
0x886…8a0 Line {l1=0x18, l2=»WHILE (P1<>NIL) DO BEGIN«, l3=0x18}
0x8a0…8da Line {l1=0x38, l2=» WRITELN(P1^.KN);P1:=P1^.NEXTKN;«, l3=0x38}
0x8da…8f3 Line {l1=0x17, l2=» END;«, l3=0x17}
0x8f3…8fd Line {l1=0x08, l2=» END;«, l3=0x08}
0x8fd…921 Line {l1=0x22, l2=»WRITELN(LIST,'KNUDENR NABOER');«, l3=0x22}
0x921…92d Line {l1=0x0a, l2=»P1:=FIRST;«, l3=0x0a}
0x92d…941 Line {l1=0x12, l2=»WHILE (P1<>NIL) DO«, l3=0x12}
0x941…94a Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x94a…957 Line {l1=0x0b, l2=» «, l3=0x0b}
0x957…964 Line {l1=0x0b, l2=» READLN;«, l3=0x0b}
0x964…973 Line {l1=0x0d, l2=» WITH P1^ DO«, l3=0x0d}
0x973…97e Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x97e…9a6 Line {l1=0x26, l2=» WRITELN(LIST,KN:2,' ');«, l3=0x26}
0x9a6…9b6 Line {l1=0x0e, l2=» P2:=NAP;«, l3=0x0e}
0x9b6…9cf Line {l1=0x17, l2=» FOR S:=1 TO AN DO«, l3=0x17}
0x9cf…9dc Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x9dc…9f1 Line {l1=0x13, l2=» WITH P2^ DO«, l3=0x13}
0x9f1…a12 Line {l1=0x1f, l2=» WRITE(LIST,NB:2,' , ');«, l3=0x1f}
0xa12…a2b Line {l1=0x17, l2=» P2:=P2^.NEXTNB;«, l3=0x17}
0xa2b…a36 Line {l1=0x09, l2=» END«, l3=0x09}
0xa36…a40 Line {l1=0x08, l2=» END;«, l3=0x08}
0xa40…a4f Line {l1=0x0d, l2=» «, l3=0x0d}
0xa4f…a5d Line {l1=0x0c, l2=» WRITELN;«, l3=0x0c}
0xa5d…a72 Line {l1=0x13, l2=» P1:=P1^.NEXTKN;«, l3=0x13}
0xa72…a79 Line {l1=0x05, l2=» END«, l3=0x05}
0xa79…a80 Line {l1=0x05, l2=» END.«, l3=0x05}
0xa80…aa0 00 00 4e 45 58 54 4b 4e 3b 13 05 20 20 45 4e 44 05 05 20 45 4e 44 2e 05 00 00 20 4e 41 50 3a 20 ┆ NEXTKN; END END. NAP: ┆
0xaa0…ac0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1f…]