Department numbers: Difference between revisions
Content added Content deleted
No edit summary |
Not a robot (talk | contribs) (Add COBOL) |
||
Line 1,101: | Line 1,101: | ||
6 4 2 |
6 4 2 |
||
6 5 1</pre> |
6 5 1</pre> |
||
=={{header|COBOL}}== |
|||
<lang cobol> IDENTIFICATION DIVISION. |
|||
PROGRAM-ID. DEPARTMENT-NUMBERS. |
|||
DATA DIVISION. |
|||
WORKING-STORAGE SECTION. |
|||
01 BANNER PIC X(24) VALUE "POLICE SANITATION FIRE". |
|||
01 COMBINATION. |
|||
03 FILLER PIC X(5) VALUE SPACES. |
|||
03 POLICE PIC 9. |
|||
03 FILLER PIC X(11) VALUE SPACES. |
|||
03 SANITATION PIC 9. |
|||
03 FILLER PIC X(5) VALUE SPACES. |
|||
03 FIRE PIC 9. |
|||
01 TOTAL PIC 99. |
|||
PROCEDURE DIVISION. |
|||
BEGIN. |
|||
DISPLAY BANNER. |
|||
PERFORM POLICE-LOOP VARYING POLICE FROM 2 BY 2 |
|||
UNTIL POLICE IS GREATER THAN 6. |
|||
STOP RUN. |
|||
POLICE-LOOP. |
|||
PERFORM SANITATION-LOOP VARYING SANITATION FROM 1 BY 1 |
|||
UNTIL SANITATION IS GREATER THAN 7. |
|||
SANITATION-LOOP. |
|||
PERFORM FIRE-LOOP VARYING FIRE FROM 1 BY 1 |
|||
UNTIL FIRE IS GREATER THAN 7. |
|||
FIRE-LOOP. |
|||
ADD POLICE, SANITATION, FIRE GIVING TOTAL. |
|||
IF POLICE IS NOT EQUAL TO SANITATION |
|||
AND POLICE IS NOT EQUAL TO FIRE |
|||
AND SANITATION IS NOT EQUAL TO FIRE |
|||
AND TOTAL IS EQUAL TO 12, |
|||
DISPLAY COMBINATION.</lang> |
|||
{{out}} |
|||
<pre>POLICE SANITATION FIRE |
|||
2 3 7 |
|||
2 4 6 |
|||
2 6 4 |
|||
2 7 3 |
|||
4 1 7 |
|||
4 2 6 |
|||
4 3 5 |
|||
4 5 3 |
|||
4 6 2 |
|||
4 7 1 |
|||
6 1 5 |
|||
6 2 4 |
|||
6 4 2 |
|||
6 5 1</pre> |
|||
=={{header|Cowgol}}== |
=={{header|Cowgol}}== |