|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3840 (0xf00)
Types: TextFile
Names: »OPG2.CBL«
└─⟦c154ac35e⟧ Bits:30002656 COBOL-programmer til undervisning
└─ ⟦this⟧ »OPG2.CBL«
IDENTIFICATION DIVISION.
PROGRAM-ID. OPG2.
AUTHOR. HOLD 4.
DATE-WRITTEN. 20/8/85.
DATE-COMPILED. 20/8/85.
* PROGRAMMET KAN EFTER BRUGERENS ØNSKE,
* BEREGN EN CIRKELS OMKREDS,OMFANG,EN KUGLES
* AREAL ELLER OMFANG. AS IF ANYONE WOULD WANT TO
*
*
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. PICCOLINE.
OBJECT-COMPUTER. PICCOLINE.
*
SPECIAL-NAMES. CONSOLE IS CRT.
*
DATA DIVISION.
WORKING-STORAGE SECTION.
01 PI PIC 9V9(8) VALUE 3.12159265.
01 OMKREDS PIC 9(6)V99.
01 AREAL PIC 9(6)V99.
01 OVERFLADE PIC 9(6)V99.
01 RUMFANG PIC 9(6)V99.
01 R PIC 9(3)V99.
01 RESULTAT PIC 9(8)V9999.
01 SVAR PIC 9.
01 FELT PIC X(10).
01 DUMMY PIC XX.
*
*
PROCEDURE DIVISION.
STYR SECTION.
STYR-IND.
PERFORM BEHANDL UNTIL (SVAR = 5).
PERFORM SLUT.
STOP RUN.
STYR-OUT.
EXIT.
*
*
BEHANDL SECTION.
BEH-IND.
PERFORM MENU.
PERFORM LAES.
IF SVAR >0 AND SVAR < 5
PERFORM UDSKRIV.
BEH-UD.
EXIT.
*
*
MENU SECTION.
MENU-IND.
DISPLAY SPACE.
DISPLAY "FUNKTIONER:" AT 0510.
DISPLAY "1. BEREGNING AF CIRKLENS OMKREDS." AT 0610.
DISPLAY "2. BEREGNING AF CIRKELS AREAL" AT 0710.
DISPLAY "3. BEREGNING AF KUGLES OVERFLADE" AT 0810.
DISPLAY "4. BEREGNING AF KUGLES RUMFANG" AT 0910.
DISPLAY "5. STOP" AT 1010.
DISPLAY "INDTAST FUNKTION: " AT 1210.
MENU-UD.
EXIT.
*
*
LAES SECTION.
LAES-IND.
ACCEPT SVAR AT 1228.
IF (SVAR > 0) AND (SVAR < 5)
DISPLAY "INDTAST RADIUS : " AT 1410
ACCEPT R AT 1427
IF SVAR = 1 PERFORM BEREGN-OMKREDS ELSE
IF SVAR = 2 PERFORM BEREGN-AREAL ELSE
IF SVAR = 3 PERFORM BEREGN-OVERFLADE ELSE
IF SVAR = 4 PERFORM BEREGN-RUMFANG.
LAES-UD.
EXIT.
*
*
BEREGN-OMKREDS SECTION.
B-OMK.
COMPUTE OMKREDS = 2 * PI * R.
MOVE "OMKREDS=" TO FELT.
MOVE OMKREDS TO RESULTAT.
B-OMK-UD.
EXIT.
*
*
BEREGN-AREAL SECTION.
B-ARE.
COMPUTE AREAL = PI * R * R.
MOVE "AREAL=" TO FELT.
MOVE AREAL TO RESULTAT.
B-ARE-UD.
EXIT.
*
*
BEREGN-OVERFLADE SECTION.
B-OVER.
COMPUTE OVERFLADE = 4 * PI * R * R.
MOVE "OVERFLADE=" TO FELT.
MOVE OVERFLADE TO RESULTAT.
B-OVER-UD.
EXIT.
*
*
BEREGN-RUMFANG SECTION.
B-RUM.
COMPUTE RUMFANG = 4 / 3 * PI * R ** 3.
MOVE "RUMFANG=" TO FELT.
MOVE RUMFANG TO RESULTAT.
B-RUM-UD.
EXIT.
*
*
UDSKRIV SECTION.
SK-IN.
DISPLAY FELT AT 1910.
DISPLAY RESULTAT AT 1920.
DISPLAY "TAST <CR> FOR MENU" AT 2110.
ACCEPT DUMMY AT 2129.
SK-UD.
EXIT.
*
*
SLUT SECTION.
SL-IN.
DISPLAY SPACES UPON CRT.
DISPLAY "OPG2 SLUT" AT 1230.
SL-UD.
EXIT.
«eof»