Il Linguaggio Fortran 90/95

272 Unità di Programma
Come esempio di applicazione della funzione ”di scorrimento” ISHFT, si guardi il seguente
programma:
PROGRAM prova_bit
IMPLICIT NONE
INTEGER :: n=84, m
CHARACTER(LEN=29) :: formato1=’(1X,A31,I3,1X,A3,1X,B12.12)’
CHARACTER(LEN=47) :: formato2=’(1X,A9,1X,I3,1X,A31,1X,B12.12, &
/,1X,A33,1X,I3)’
CHARACTER(LEN=47) :: formato3=’(1X,A9,1X,I3,1X,A29,1X,B12.12, &
/,1X,A33,1X,I3)’
! Start
WRITE(*,formato1) "La rappresentazione binaria di ",n,"e’: ", n
WRITE(*,formato1) "La rappresentazione binaria di ",n/2,"e’:",n/2
WRITE(*,formato1) "La rappresentazione binaria di ",n/4,"e’:",n/4
WRITE(*,*)
m=ISHFT(n,1)
WRITE(*,formato2) "Shiftando",n,"a sinistra di 1 bit si ottiene:",m, &
"che corrisponde al numero intero:",m
m=ISHFT(n,2)
WRITE(*,formato2) "Shiftando",n,"a sinistra di 2 bit si ottiene:",m, &
"che corrisponde al numero intero:",m
WRITE(*,’(/,1X,A,/)’) "Viceversa:"
m=ISHFT(n,-1)
WRITE(*,formato3) "Shiftando",n,"a destra di 1 bit si ottiene:",m, &
"che corrisponde al numero intero:",m
m=ISHFT(n,-2)
WRITE(*,formato3) "Shiftando",n,"a destra di 2 bit si ottiene:",m, &
"che corrisponde al numero intero:",m
STOP
END PROGRAM prova_bit
il cui output è:
La rappresentazione binaria di 84 e’: 000001010100
La rappresentazione binaria di 42 e’: 000000101010
La rappresentazione binaria di 21 e’: 000000010101
Shiftando 84 a sinistra di 1 bit si ottiene: 000010101000
che corrisponde al numero intero: 168
Shiftando 84 a sinistra di 2 bit si ottiene: 000101010000
che corrisponde al numero intero: 336
Viceversa: