Factors of an integer: Difference between revisions
Content deleted Content added
→{{header|PL/I}}: Fixed tags |
Added PL/M and Polyglot PL/I and PL/m |
||
Line 5,030: | Line 5,030: | ||
factors of: 99 : 1 3 9 11 33 99 |
factors of: 99 : 1 3 9 11 33 99 |
||
factors of: 100 : 1 2 4 5 10 20 25 50 100 |
factors of: 100 : 1 2 4 5 10 20 25 50 100 |
||
</pre> |
|||
See also [[#Polyglot PL/I and PL/M]] |
|||
=={{header|PL/M}}== |
|||
See [[#Polyglot PL/I and PL/M]] |
|||
=={{header|Polyglot:PL/I and PL/M}}== |
|||
{{works with|8080 PL/M Compiler}} ... under CP/M (or an emulator) |
|||
Should work with many PL/I implementations. |
|||
<br> |
|||
The PL/I include file "pg.inc" can be found on the [[Polyglot:PL/I and PL/M]] page. |
|||
Note the use of text in column 81 onwards to hide the PL/I specifics from the PL/M compiler. |
|||
<lang pli>factors_100H: procedure options (main); |
|||
/* PL/I DEFINITIONS */ |
|||
%include 'pg.inc'; |
|||
/* PL/M DEFINITIONS: CP/M BDOS SYSTEM CALL AND CONSOLE I/O ROUTINES, ETC. */ /* |
|||
DECLARE BINARY LITERALLY 'ADDRESS', CHARACTER LITERALLY 'BYTE'; |
|||
DECLARE SADDR LITERALLY '.', BIT LITERALLY 'BYTE'; |
|||
DECLARE FIXED LITERALLY ' '; |
|||
BDOS: PROCEDURE( FN, ARG ); DECLARE FN BYTE, ARG ADDRESS; GOTO 5; END; |
|||
PRSTRING: PROCEDURE( S ); DECLARE S ADDRESS; CALL BDOS( 9, S ); END; |
|||
PRCHAR: PROCEDURE( C ); DECLARE C CHARACTER; CALL BDOS( 2, C ); END; |
|||
PRNL: PROCEDURE; CALL PRCHAR( 0DH ); CALL PRCHAR( 0AH ); END; |
|||
PRNUMBER: PROCEDURE( N ); |
|||
DECLARE N ADDRESS; |
|||
DECLARE V ADDRESS, N$STR( 6 ) BYTE, W BYTE; |
|||
N$STR( W := LAST( N$STR ) ) = '$'; |
|||
N$STR( W := W - 1 ) = '0' + ( ( V := N ) MOD 10 ); |
|||
DO WHILE( ( V := V / 10 ) > 0 ); |
|||
N$STR( W := W - 1 ) = '0' + ( V MOD 10 ); |
|||
END; |
|||
CALL BDOS( 9, .N$STR( W ) ); |
|||
END PRNUMBER; |
|||
MODF: PROCEDURE( A, B )ADDRESS; |
|||
DECLARE ( A, B )ADDRESS; |
|||
RETURN( A MOD B ); |
|||
END MODF; |
|||
/* END LANGUAGE DEFINITIONS */ |
|||
/* TASK */ |
|||
DECLARE ( I, N ) FIXED BINARY; |
|||
DO N = 90 TO 100; |
|||
CALL PRSTRING( SADDR( 'FACTORS OF: $' ) ); |
|||
CALL PRNUMBER( N ); |
|||
CALL PRCHAR( ':' ); |
|||
DO I = 1 TO N; |
|||
IF MODF( N, I ) = 0 THEN DO; |
|||
CALL PRCHAR( ' ' ); |
|||
CALL PRNUMBER( I ); |
|||
END; |
|||
END; |
|||
CALL PRNL; |
|||
END; |
|||
EOF: end factors_100H;</lang> |
|||
{{out}} |
|||
<pre> |
|||
FACTORS OF: 90: 1 2 3 5 6 9 10 15 18 30 45 90 |
|||
FACTORS OF: 91: 1 7 13 91 |
|||
FACTORS OF: 92: 1 2 4 23 46 92 |
|||
FACTORS OF: 93: 1 3 31 93 |
|||
FACTORS OF: 94: 1 2 47 94 |
|||
FACTORS OF: 95: 1 5 19 95 |
|||
FACTORS OF: 96: 1 2 3 4 6 8 12 16 24 32 48 96 |
|||
FACTORS OF: 97: 1 97 |
|||
FACTORS OF: 98: 1 2 7 14 49 98 |
|||
FACTORS OF: 99: 1 3 9 11 33 99 |
|||
FACTORS OF: 100: 1 2 4 5 10 20 25 50 100 |
|||
</pre> |
</pre> |
||