| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 20:30:47 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=1b5e5834dd1763e53ed932d52dfa280efa5896574c1ed4976b0e63eaff6bbe4da%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22rsBZI1pOsGoztDnvXNSfpr2jvwrGLhcW%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d11e090db6e084-BLR
LA - Pertemuan 3 - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- IDENTIFICATION DIVISION.
- PROGRAM-ID. SEGITIGASIKU.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TINGGI PIC 99.
- 01 PARA PIC 99.
- 01 PARA2 PIC 99.
- 01 PARA3 PIC 99.
- 01 PARA4 PIC 99.
- 01 RMH PIC 99.
- SCREEN SECTION.
- 01 HAPUS.
- 02 BLANK SCREEN.
- PROCEDURE DIVISION.
- MULAI.
- DISPLAY HAPUS.
- COMPUTE PARA = 1.
- DISPLAY(, ) 'Masukan Tinggi : ' ACCEPT TINGGI.
- COMPUTE PARA2 = TINGGI.
- COMPUTE PARA3 = 2 * TINGGI .
- COMPUTE PARA4 = PARA3 + 2.
- MULAI2.
- IF PARA2 NOT< 1
- GO TO ULANG
- ELSE
- IF TINGGI NOT< 1
- GO TO BADAN
- ELSE
- STOP RUN.
- ULANG.
- PERFORM SPASI PARA2 TIMES.
- PERFORM BINTANG PARA TIMES.
- PERFORM ATAP PARA3 TIMES.
- DISPLAY SPACE.
- COMPUTE PARA2 = PARA2 - 1.
- COMPUTE PARA = PARA + 2.
- GO TO MULAI2.
- BINTANG.
- DISPLAY(, ) '*'.
- SPASI.
- DISPLAY(, ) ' '.
- ATAP.
- DISPLAY(, ) '\_'.
- BADAN.
- COMPUTE RMH = PARA3 - 1.
- PERFORM DEPAN PARA4 TIMES.
- PERFORM BELAKANG RMH TIMES.
- DISPLAY SPACE.
- COMPUTE TINGGI = TINGGI - 1.
- GO TO MULAI2.
- DEPAN.
- DISPLAY(, ) '#'.
- BELAKANG.
- DISPLAY(, ) '=='.
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐⭐⭐MAKE $9OO INSTANTLY D A⭐⭐
Java | 4 sec ago | 0.10 KB
-
⭐⭐⭐MAKE $900 INSTANTLY⭐⭐
Java | 5 sec ago | 0.10 KB
-
📝 Exchange profit method
JavaScript | 7 sec ago | 0.24 KB
-
⭐⭐⭐Exchange Exploit⭐⭐
Java | 16 sec ago | 0.10 KB
-
⭐ Free Crypto Method ⭐
JavaScript | 16 sec ago | 0.24 KB
-
⭐⭐⭐Make $1500 in 20 minutes⭐⭐
Java | 17 sec ago | 0.10 KB
-
📝 Crypto Swap Glitch ✅ Working
JavaScript | 25 sec ago | 0.24 KB
-
⭐⭐⭐MAKE $9OO INSTANTLY D M⭐⭐
Java | 27 sec ago | 0.10 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
