(toiminnot)

hwechtla-tl: Teos: COBOL

Kierre.png

Mikä on WikiWiki?
nettipäiväkirja
koko wiki (etsi)
viime muutokset


teos-COBOL.jpeg

Kehruu-Jennyn ja reikäkorttikoneen yhdistelmä, jonka ympärillä koneoperaattoreita, arkkitehteja ja yksi työmies rakentamassa tukea, jottei kone kaadu.

Miksi?

Kuvia netistä:

      $ SET SOURCEFORMAT"FREE"
IDENTIFICATION DIVISION.
PROGRAM-ID.  Conditions.
AUTHOR.  Michael Coughlan.
* An example program demonstrating the use of 
* condition names (level 88's).
* The EVALUATE and PERFORM verbs are also used.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  Char               PIC X.
    88 Vowel           VALUE "a", "e", "i", "o", "u".
    88 Consonant       VALUE "b", "c", "d", "f", "g", "h"
                             "j" THRU "n", "p" THRU "t", "v" THRU "z".
    88 Digit           VALUE "0" THRU "9".
    88 ValidCharacter  VALUE "a" THRU "z", "0" THRU "9".

PROCEDURE DIVISION.
Begin.
    DISPLAY "Enter lower case character or digit. No data ends.".
    ACCEPT Char.
    PERFORM UNTIL NOT ValidCharacter
        EVALUATE TRUE
           WHEN Vowel DISPLAY "The letter " Char " is a vowel."
           WHEN Consonant DISPLAY "The letter " Char " is a consonant."
           WHEN Digit DISPLAY Char " is a digit."
           WHEN OTHER DISPLAY "problems found"
        END-EVALUATE
    END-PERFORM
    STOP RUN.

Sade: Katson COBOL-teoksen olevan epäoikeudenmukainen kuvaus ko. kielestä seuraavissa suhteissa:

atehwa: Lisäsin maininnan luonnollisen kielen kaltaisuudesta. Mitä rumuuteen tulee, pyrin tosiaan välittämään "yleisiä vaikutelmia" kielistä silläkin uhalla, että uusinnan tällä vain syvään juurtuneita ennakkoluuloja kielten suhteen. Oma kriteerini kielen kauneudelle on itse asiassa lyhyys; COBOL-ohjelmat ovat huomattavan pitkiä verrattuna vastaaviin ohjelmiin muilla kielillä.

On hyvä huomata, että myös Smalltalk ja Perl ovat jollain tavoin pyrkineet luonnollisen kielen kaltaisuuteen.

näyttely: ohjelmointikielten kuvat


kommentoi (viimeksi muutettu 20.01.2012 20:37)