블로그
- 1-3 병렬전압 구하는 프로그램 ----------------------------------------------------------- IMPLICIT NONE REAL :: R1, R2, R3, T PRINT *, "Enter R1, R2, R3" READ *, R1, R2, R3 T = (1/R1)+(1/R2)+(1/R3) PRINT *, "T =", T END B_junab 이것 역시
- 1-2 지름을 이용하여 원 반지름, 원주길이, 면적계산 프로그램 ----------------------------------------------------------- IMPLICIT NONE REAL :: ji, banji, ownju, myun , pi pi=3.14159265 PRINT *, "Enter ji" READ *, ji banji = ji/2 ownju = 2*pi*banji myun = pi*banji**2
- 2-4 진동자 진동주기 구하는 프로그램 L(cm) a(degree) 120 15 90 20 60 5 74.6 10 83.6 12 PROGRAM jindong IMPLICIT NONE REAL :: L, a, P REAL, PARAMETER :: g=980, pi=2.141593 PRINT *, "Enter L, a" READ *, L, a P = 2*pi*SQRT(L/g)*(1 + 1/4 * (sin
- 2-2 직렬전류 계산하는 프로그램 PROGRAM julu IMPLICIT NONE REAL :: I, E, R, L, C, f REAL, PARAMETER :: pi = 3.141593 PRINT *, "Enter E, R, C, f" READ *, E, R, C, f I = E / SQRT(R**2 + ((2*pi*f*L)-(1 / 2*pi*f*L))**2) PRINT *, "Amperes
- 2-3 로케트 발사 방향 구하는 프로그램 PROGRAM balsa IMPLICIT NONE REAL :: vzero, theta, time, x, y PRINT *, "Enter vzero, theta, time" READ
- 2-1. 삼각형 둘레, 면적 구하는 프로그램 계산에는 Hero의 공식을 사용할 것: area = SQRT(s(s-a)(s-b)(s-c)) (단, s는 둘레의 반을 의미) PROGRAM triangle IMPLICIT NONE REAL :: a, b, c, s, dul, jung, myun PRINT *, "enter a, b, c" READ *, a, b, c dul = (a+b+c) s = dul/2 jung
← 이전
3 페이지