This is a story of how a punch card ate my program. But COBOL does have its quirks, many of them rooted in the computing environments of the early days of programming. In fact, it's quite good at handling currency and fixed-format records. I worked for 10 years as a COBOL programmer, and I don't think it's quite as bad as its reputation would lead one to believe. It processes an estimated 85% of all business transactions, and 5 billion lines of new COBOL code are written every year. It is routinely denigrated for its verbosity and dismissed as archaic.

Try It Ĭopy and paste the code above into one of the following free online development environments or use your own COBOL compiler / interpreter / IDE.COBOL is the Rodney Dangerfield of programming languages-it doesn't get any respect.

DISPLAY TEMP-IN '° ' LABEL-IN ' is ' TEMP-OUT '° ' LABEL-OUT.

COMPUTE TEMP-OUT = ( TEMP-IN - 32 ) * 5 / 9. DISPLAY 'Enter ' LABEL-IN ' temperature:'. *> EVALUATE approach EVALUATE TRUE WHEN CHOICE = 'C' OR CHOICE = 'c' MOVE 'Fahrenheit' TO LABEL-IN MOVE 'Celsius' TO LABEL-OUT PERFORM GET-TEMPERATURE PERFORM COMPUTE-CELSIUS PERFORM DISPLAY-RESULT WHEN CHOICE = 'F' OR CHOICE = 'f' MOVE 'Celsius' TO LABEL-IN MOVE 'Fahrenheit' TO LABEL-OUT PERFORM GET-TEMPERATURE PERFORM COMPUTE-FAHRENHEIT PERFORM DISPLAY-RESULT WHEN OTHER DISPLAY 'You must enter C to convert to Celsius or F to convert to Fahrenheit!' END-EVALUATE. ACCEPT CHOICE *> IF-ELSE approach IF CHOICE = 'C' OR CHOICE = 'c' THEN MOVE 'Fahrenheit' TO LABEL-IN MOVE 'Celsius' TO LABEL-OUT PERFORM GET-TEMPERATURE PERFORM COMPUTE-CELSIUS PERFORM DISPLAY-RESULT ELSE IF CHOICE = 'F' OR CHOICE = 'f' THEN MOVE 'Celsius' TO LABEL-IN MOVE 'Fahrenheit' TO LABEL-OUT PERFORM GET-TEMPERATURE PERFORM COMPUTE-FAHRENHEIT PERFORM DISPLAY-RESULT ELSE DISPLAY 'You must enter C to convert to Celsius or F to convert to Fahrenheit!' END-IF END-IF. *> MAIN could either be an IF-ELSE structure or an EVALUATE structure DISPLAY 'Enter F to convert to Fahrenheit or C to convert to Celsius:'. *> *> References: *> *> *> IDENTIFICATION DIVISION. *> This program asks the user for a Fahrenheit temperature, *> converts the given temperature to Celsius, *> and displays the results.

Convert cobol to c online