|
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: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »RECURSIV.K«
└─⟦89d8689a3⟧ Bits:30003591 MIKADOS Pascal compiler (01.02.1982 E)
└─⟦this⟧ »RECURSIV.K«
PROGRAM RECURSIVEGCD;
FUNCTION GCD( M, N: INTEGER): INTEGER;
BEGIN
IF N=0 THEN
GCD := M
ELSE
GCD := GCD( N, M MOD N);
END;
PROCEDURE TRY( A, B: INTEGER);
BEGIN
WRITELN( A:7, B:7, GCD(A,B):7 );
END;
BEGIN
TRY( 18, 27 );
TRY( 312, 2142 );
TRY( 61, 53 );
TRY( 98, 868 );
END.
0x000…017 Line {l1=0x15, l2=»PROGRAM RECURSIVEGCD;«, l3=0x15}
0x017…01a Line {l1=0x01, l2=» «, l3=0x01}
0x01a…042 Line {l1=0x26, l2=»FUNCTION GCD( M, N: INTEGER): INTEGER;«, l3=0x26}
0x042…049 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x049…058 Line {l1=0x0d, l2=» IF N=0 THEN«, l3=0x0d}
0x058…066 Line {l1=0x0c, l2=» GCD := M«, l3=0x0c}
0x066…06e Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x06e…08c Line {l1=0x1c, l2=» GCD := GCD( N, M MOD N);«, l3=0x1c}
0x08c…092 Line {l1=0x04, l2=»END;«, l3=0x04}
0x092…095 Line {l1=0x01, l2=» «, l3=0x01}
0x095…0b5 Line {l1=0x1e, l2=»PROCEDURE TRY( A, B: INTEGER);«, l3=0x1e}
0x0b5…0bc Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0bc…0e1 Line {l1=0x23, l2=» WRITELN( A:7, B:7, GCD(A,B):7 );«, l3=0x23}
0x0e1…0e7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e7…0ea Line {l1=0x01, l2=» «, l3=0x01}
0x0ea…0f1 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0f1…103 Line {l1=0x10, l2=» TRY( 18, 27 );«, l3=0x10}
0x103…118 Line {l1=0x13, l2=» TRY( 312, 2142 );«, l3=0x13}
0x118…12a Line {l1=0x10, l2=» TRY( 61, 53 );«, l3=0x10}
0x12a…13d Line {l1=0x11, l2=» TRY( 98, 868 );«, l3=0x11}
0x13d…143 Line {l1=0x04, l2=»END.«, l3=0x04}
0x143…160 00 00 36 31 2c 20 35 33 20 29 3b 14 14 20 20 20 20 20 20 54 52 59 28 20 39 38 2c 20 38 ┆ 61, 53 ); TRY( 98, 8┆
0x160…180 36 38 20 29 14 04 45 4e 44 2e 04 00 00 7a 00 04 07 08 03 0a 3d 3e 01 c2 07 04 0a 02 66 01 04 06 ┆68 ) END. z => f ┆
0x180…1a0 08 3d 0b 02 03 cd 06 04 0a 02 61 00 04 13 08 23 23 73 23 72 d1 e1 d1 c1 f1 fb c9 f3 f5 c5 d5 e5 ┆ = a ##s#r ┆
0x1a0…1c0 2a 13 04 0a 01 00 00 04 04 08 0a a7 ca 04 04 0a 02 8d 01 04 0e 08 3d 02 e1 d1 c1 f1 fb c9 03 eb ┆* = ┆
0x1c0…1e0 3e 01 cd 0e 04 0a 02 22 00 04 02 08 c3 02 04 0a 02 7a 00 04 02 08 c3 02 04 0a 02 97 01 04 04 07 ┆> " z ┆
0x1e0…200 01 82 f1 04 03 09 35 00 03 02 0f 00 02 02 04 0a 02 94 01 04 04 07 01 82 b1 04 03 09 34 00 03 02 ┆ 5 4 ┆
0x200…220 0f 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x220…240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x2e0…300 50 52 49 4e 51 20 20 20 4b 48 07 0a 00 00 00 00 52 00 2a e8 00 07 00 00 00 1b 00 00 00 00 00 00 ┆PRINQ KH R * ┆
0x300…320 20 20 45 4e 44 0a 00 00 20 20 42 41 4e 4b 26 53 54 44 52 44 19 13 20 20 20 20 20 20 20 44 53 20 ┆ END BANK&STDRD DS ┆
0x320…340 20 20 20 20 20 23 31 33 32 13 0c 20 20 20 20 20 20 20 45 4e 44 49 46 0c 01 3b 01 01 3b 01 0a 20 ┆ #132 ENDIF ; ; ┆
0x340…360 20 20 20 20 20 20 45 4e 44 0a 00 00 41 20 45 4c 45 4b 54 52 4f 4e 49 4b 20 41 50 53 30 01 3b 01 ┆ END A ELEKTRONIK APS0 ; ┆
0x360…380 48 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆H;******************************┆
0x380…3a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x3a0…3c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 48 45 3b 20 44 52 49 56 50 52 4f 47 52 41 4d 20 54 49 4c 20 51 55 4d ┆*********HE; DRIVPROGRAM TIL QUM┆
0x3c0…3e0 45 20 50 52 49 4e 54 45 52 20 46 4f 52 53 59 4e 45 54 20 4d 45 44 20 53 50 45 45 44 20 46 45 45 ┆E PRINTER FORSYNET MED SPEED FEE┆
0x3e0…400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x2e…]
0x9c0…9e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63 ┆ c┆