Program 3.5. 이진 반가수기

PROGRAM Half_Adder
!---------------------------------------------------------------------------------
!	Program to calculate the outputs from a logical circuit that
!	Represents a binary half-adder. Variables used are:
!		A, B				: the two logical inputs to the circuit
!		Sum, Carry	: the two logical outputs
!
!	Input		: The two logical inputs A and B
!	Output	: The two logical outputs Sum and Carry, which represent the
!				sum and carry that result when the input values are added
!---------------------------------------------------------------------------------

	IMPLICIT NONE
	LOGICAL :: A, B, Sum, Carry
	
	PRINT *, "Enter logical inputs A and B:"
	READ *, A, B
	Sum = (A .OR. B) .AND. .NOT. (A .AND. B)
	Carry = A .AND. B
	PRINT *, "Carry, Sum =", Carry, Sum
	
	pause
End PROGRAM Half_Adder