| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 21:03:12 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=51837a76b7a3a7774fb9eab57a1c715b8434c18856350e253f24e6b712ee1ff3a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22EPoIMYlVJyPKDf-_tTvR77Lqm6p-qX65%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d14d86bdc0860e-BLR
Temperature average - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- *> Display the average of the five highest temperatures for five cities.
- *> GNU-COBOL
- *> Free format
- PROGRAM-ID. TEMPERATURE.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 CITY OCCURS 5 TIMES INDEXED BY CITY-ID.
- 05 CITY-NAME PIC X(10).
- 05 CITY-TEMP PIC 99V9 OCCURS 5 TIMES INDEXED BY TEMP-ID.
- 77 COUNTER PIC 9.
- 77 AVG-CITY-TEMP PIC 99.9 OCCURS 5 TIMES.
- 77 SUM-OF-TEMP PIC 999V9.
- SCREEN SECTION.
- 01 CLEAR-SCREEN.
- 05 BLANK SCREEN.
- 01 CITIES-DATA.
- 05 VALUE "Enter the last 5 daily hight temperature for:" LINE 1 COL 1.
- 05 CITY-NAME-INPUT COL 47 PIC X(10) TO CITY-NAME(CITY-ID) AUTO.
- 05 VALUE "Temperatures:" LINE 3 COL 1.
- 05 VALUE "Temperature #1: " LINE 4 COL 1.
- 05 TEMP1_INPUT PIC 99.9 COL 17 TO CITY-TEMP(CITY-ID, 1) AUTO.
- 05 VALUE "Temperature #2: " LINE 5 COL 1.
- 05 TEMP2_INPUT PIC 99.9 COL 17 TO CITY-TEMP(CITY-ID, 2) AUTO.
- 05 VALUE "Temperature #3: " LINE 6 COL 1.
- 05 TEMP3_INPUT PIC 99.9 COL 17 TO CITY-TEMP(CITY-ID, 3) AUTO.
- 05 VALUE "Temperature #4: " LINE 7 COL 1.
- 05 TEMP4_INPUT PIC 99.9 COL 17 TO CITY-TEMP(CITY-ID, 4) AUTO.
- 05 VALUE "Temperature #5: " LINE 8 COL 1.
- 05 TEMP5_INPUT PIC 99.9 COL 17 TO CITY-TEMP(CITY-ID, 5).
- 01 CITIES-DISPLAY BLANK SCREEN.
- 05 VALUE "Here are the average temperatures for cities in the area" LINE 1 COL 1.
- 05 FROM CITY-NAME(1) PIC X(10) LINE 3 COL 10.
- 05 FROM CITY-NAME(2) PIC X(10) COL 20.
- 05 FROM CITY-NAME(3) PIC X(10) COL 30.
- 05 FROM CITY-NAME(4) PIC X(10) COL 40.
- 05 FROM CITY-NAME(5) PIC X(10) COL 50.
- 05 FROM AVG-CITY-TEMP(1) PIC 99.9 LINE 4 COL 10.
- 05 VALUE "C" COL 15.
- 05 FROM AVG-CITY-TEMP(2) PIC 99.9 COL 20.
- 05 VALUE "C" COL 25.
- 05 FROM AVG-CITY-TEMP(3) PIC 99.9 COL 30.
- 05 VALUE "C" COL 35.
- 05 FROM AVG-CITY-TEMP(4) PIC 99.9 COL 40.
- 05 VALUE "C" COL 45.
- 05 FROM AVG-CITY-TEMP(5) PIC 99.9 COL 50.
- 05 VALUE "C" COL 55.
- PROCEDURE DIVISION.
- P1.
- PERFORM P-CITY-LOOP VARYING CITY-ID FROM 1 BY 1 UNTIL CITY-ID > 5
- DISPLAY CLEAR-SCREEN
- DISPLAY CITIES-DISPLAY
- GOBACK.
- P-CITY-LOOP.
- INITIALIZE CITIES-DATA
- DISPLAY CITIES-DATA
- ACCEPT CITIES-DATA
- PERFORM CALCULATE-TEMP.
- CALCULATE-TEMP.
- INITIALIZE SUM-OF-TEMP
- PERFORM VARYING TEMP-ID FROM 1 BY 1 UNTIL TEMP-ID > 5
- ADD CITY-TEMP(CITY-ID, TEMP-ID) TO SUM-OF-TEMP
- END-PERFORM
- DIVIDE SUM-OF-TEMP BY 5 GIVING AVG-CITY-TEMP(CITY-ID).
- END PROGRAM TEMPERATURE.
Advertisement
Add Comment
Please, Sign In to add comment
-
✅⭐ Make huge profits on trading ⭐⭐ O
JavaScript | 1 sec ago | 0.25 KB
-
📝 Exchange profit method
JavaScript | 2 sec ago | 0.24 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ 7
JavaScript | 2 sec ago | 0.25 KB
-
⭐⭐⭐Exchange Exploit⭐⭐
Java | 3 sec ago | 0.10 KB
-
⭐⭐⭐Crypto Accounts⭐⭐
Java | 5 sec ago | 0.10 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ 1
JavaScript | 11 sec ago | 0.25 KB
-
⭐ Free Crypto Method ⭐
JavaScript | 11 sec ago | 0.24 KB
-
⭐✅ Marketplace Glitch ✅ Working ✅ NEVER SEEN...
JavaScript | 11 sec ago | 0.25 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
