반가수기
논리형 값 A, B를 입력하고 Sum과 Carry를 계산
PROGRAM Half_Adder
IMPLICIT NONE
LOGICAL :: A, B, Sum, Carry ! 논리형 변수 선언
PRINT *, "논리형 값 A와 B를 입력하시오(ex: T F)"
READ *, A, B
Sum = (A .OR. B) .AND. (.NOT. (A .AND. B))
Carry = A .AND. B
PRINT *, "Carry, Sum = ", Carry, Sum
END PROGRAM Half_Adder
위 소스를 03_05_Haf.f95로 저장
컴파일 및 프로그램 테스트
'Programming > Fortran' 카테고리의 다른 글
| 감가상각 (DO, END DO) (0) | 2008.08.27 |
|---|---|
| 곱셈표 (DO, END DO) (0) | 2008.08.27 |
| 오염지수 구하기 3(SELECT CASE) (0) | 2008.08.27 |
| 오염지수 구하기 2(IF THEN, ELSE IF THEN, ELSE, END IF) (0) | 2008.08.27 |
| 오염지수 구하기(IF THEN ELSE END IF) (0) | 2008.08.26 |