| CARVIEW |
Select Language
HTTP/2 200
date: Tue, 14 Oct 2025 23:18:05 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=77196e733ceabf6ed1089a69676f5c404f560e19fa4e179f4de485a7c56376e8a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22eHoVZOixzUyOqorzzE37HNvRlRfThROY%22%3B%7D; HttpOnly; Path=/
cf-ray: 98eacb3758eab22e-BLR
Forstyle - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- c Main menu
- PROGRAM main
- IMPLICIT NONE
- INTEGER command
- COMMON / input / a, b, alpha
- COMMON / utility / PI, beta
- COMMON / flag / is_triangle_created
- REAL calculate_area, find_min_angle, min_angle_cos
- REAL a, b, alpha
- REAL PI, beta
- LOGICAL is_triangle_created
- is_triangle_created = .FALSE.
- PI = 3.1415927
- PRINT *, '1. Create new triangle.'
- PRINT *, '2. Calculate area.'
- PRINT *, '3. Find minimal angle.'
- PRINT *, '4. Find cosin of minimal angle.'
- PRINT *, '5. Exit.'
- c Delete this
- PRINT *, '6. (temp) Show triangle params.'
- c Delete this
- 1 PRINT *, '>> '
- READ *, command
- IF(.NOT. is_triangle_created .AND.
- + (command .EQ. 2 .OR. command .EQ. 3 .OR. command .EQ. 4)) THEN
- PRINT *, 'Error: triangle is not created.'
- GOTO 1
- ENDIF
- SELECT CASE (command)
- CASE (1)
- CALL input_triangle
- CASE (2)
- PRINT *, 'Area = ', calculate_area()
- CASE (3)
- PRINT *, 'Minimal angle = ', find_min_angle()
- CASE (4)
- PRINT *, 'Minimal angle cosin = ', min_angle_cos()
- CASE (5)
- GOTO 2
- CASE (6)
- c Delete this
- CALL write_triangle
- c Delete this
- CASE default
- PRINT *, 'Unexpected command'
- END SELECT
- GOTO 1
- 2 END
- c Triangle creation
- SUBROUTINE input_triangle
- IMPLICIT NONE
- COMMON / input / a, b, alpha
- COMMON / utility / PI, beta
- COMMON / flag / is_triangle_created
- REAL a, b, alpha
- REAL PI, beta
- LOGICAL is_triangle_created
- 3 PRINT *, 'Enter [a] [b] [alpha]:'
- READ *, a, b, alpha
- IF(a .LE. 0 .OR. b .LE. 0 .OR. alpha .LE. 0 .OR.
- + (a**2 .LE. (b*SIN(alpha))**2)) THEN
- PRINT *, 'Error: triangle is not exist'
- GOTO 3
- ENDIF
- is_triangle_created = .TRUE.
- PRINT *, 'Triangle is created'
- END
- c Area calculation
- REAL FUNCTION calculate_area()
- IMPLICIT NONE
- COMMON / input / a, b, alpha
- COMMON / utility / PI, beta
- REAL a, b, alpha
- REAL PI, beta
- beta = ASIN(b/a * SIN(alpha * PI/180)) * 180/PI
- calculate_area = 0.5 * a * b * SIN((180 - beta - alpha) * PI/180)
- RETURN
- END
- c Minimal angle finding
- REAL FUNCTION find_min_angle()
- IMPLICIT NONE
- COMMON / input / a, b, alpha
- COMMON / utility / PI, beta
- REAL a, b, alpha
- REAL PI, beta, gamma
- beta = ASIN(b/a * SIN(alpha * PI/180)) * 180/PI
- gamma = 180 - alpha - beta
- IF (alpha .LE. beta .AND. alpha .LE. gamma) THEN
- find_min_angle = alpha
- ELSEIF (beta .LE. alpha .AND. beta .LE. gamma) THEN
- find_min_angle = beta
- ELSE
- find_min_angle = gamma
- ENDIF
- RETURN
- END
- c Calculate cosin of minimal angle
- REAL FUNCTION min_angle_cos()
- IMPLICIT NONE
- COMMON / input / a, b, alpha
- COMMON / utility / PI, beta
- REAL a, b, alpha
- REAL PI, beta, find_min_angle
- min_angle_cos = COS(find_min_angle() * PI/180)
- END
- c Delete
- SUBROUTINE write_triangle
- COMMON / input / a, b, alpha
- COMMON / utility / PI, beta
- REAL a, b, alpha
- REAL PI, beta
- PRINT *, 'a = ', a
- PRINT *, 'b = ', b
- PRINT *, 'alpha = ', alpha
- END
- c Delete
Advertisement
Add Comment
Please, Sign In to add comment
-
✅⭐ Make huge profits on trading ⭐⭐ T
JavaScript | 11 sec ago | 0.25 KB
-
💵 Make 3000$ in 20 minutes 💵
JavaScript | 13 sec ago | 0.24 KB
-
✅ Marketplace Glitch ✅ Working NEVER SEEN BE...
JavaScript | 19 sec ago | 0.25 KB
-
🔥 Exchange profit method
JavaScript | 22 sec ago | 0.24 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ X
JavaScript | 27 sec ago | 0.25 KB
-
🚨 Free Crypto Method 🚨
JavaScript | 32 sec ago | 0.24 KB
-
📝 EASY MONEY GUIDE ✅ Working J
JavaScript | 35 sec ago | 0.25 KB
-
💡 Instant BTC Profit Method ✅ Working
JavaScript | 41 sec ago | 0.24 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
