ABC words: Difference between revisions

Content added Content deleted

Inline

@@ Line 852: / Line 852: @@
     stream$close(dict)
 end start_up</lang>
+{{out}}
+<pre style='height:50ex;'>aback
+abacus
+abc
+abdicate
+abduct
+abeyance
+abject
+abreact
+abscess
+abscissa
+abscissae
+absence
+abstract
+abstracter
+abstractor
+adiabatic
+aerobacter
+aerobic
+albacore
+alberich
+albrecht
+algebraic
+alphabetic
+ambiance
+ambuscade
+aminobenzoic
+anaerobic
+arabic
+athabascan
+auerbach
+diabetic
+diabolic
+drawback
+fabric
+fabricate
+flashback
+halfback
+iambic
+lampblack
+leatherback
+metabolic
+nabisco
+paperback
+parabolic
+playback
+prefabricate
+quarterback
+razorback
+roadblock
+sabbatical
+snapback
+strabismic
+syllabic
+tabernacle
+tablecloth</pre>
+=={{header|COBOL}}==
+<lang cobol>       IDENTIFICATION DIVISION.
+       PROGRAM-ID. ABC-WORDS.
+       ENVIRONMENT DIVISION.
+       INPUT-OUTPUT SECTION.
+       FILE-CONTROL.
+           SELECT DICT ASSIGN TO DISK
+           ORGANIZATION LINE SEQUENTIAL.
+       DATA DIVISION.
+       FILE SECTION.
+       FD DICT
+           LABEL RECORD STANDARD
+           VALUE OF FILE-ID IS "unixdict.txt".
+WORD            PIC X(32).
+       WORKING-STORAGE SECTION.
+A               PIC 99.
+B               PIC 99.
+C               PIC 99.
+X               PIC 99.
+       PROCEDURE DIVISION.
+       BEGIN.
+           OPEN INPUT DICT.
+       READ-WORD.
+           READ DICT, AT END CLOSE DICT, STOP RUN.
+           PERFORM CHECK-WORD.
+           GO TO READ-WORD.
+       CHECK-WORD.
+           MOVE ZERO TO A, B, C, X.
+           INSPECT WORD TALLYING A FOR CHARACTERS BEFORE INITIAL 'a'.
+           INSPECT WORD TALLYING B FOR CHARACTERS BEFORE INITIAL 'b'.
+           INSPECT WORD TALLYING C FOR CHARACTERS BEFORE INITIAL 'c'.
+           INSPECT WORD TALLYING X FOR CHARACTERS BEFORE INITIAL ' '.
+           IF A IS LESS THAN B
+           AND B IS LESS THAN C
+           AND C IS LESS THAN X,
+               DISPLAY WORD.</lang>
 {{out}}
 <pre style='height:50ex;'>aback