Long multiplication: Difference between revisions
Content added Content deleted
m (→{{header|PL/M}}: Added syntax highlighting) |
m (→{{header|PL/I}}: Added syntax highlighting) |
||
Line 4,356: | Line 4,356: | ||
=={{header|PL/I}}== |
=={{header|PL/I}}== |
||
<lang |
<lang pli>/* Multiply a by b, giving c. */ |
||
multiply: procedure (a, b, c); |
multiply: procedure (a, b, c); |
||
declare (a, b, c) (*) fixed decimal (1); |
declare (a, b, c) (*) fixed decimal (1); |
||
Line 4,404: | Line 4,404: | ||
end complement;</lang> |
end complement;</lang> |
||
Calling sequence: |
Calling sequence: |
||
<lang |
<lang pli> a = 0; b = 0; c = 0; |
||
a(60) = 1; |
a(60) = 1; |
||
do i = 1 to 64; /* Generate 2**64 */ |
do i = 1 to 64; /* Generate 2**64 */ |