Petit programme fortran
Associé au QCM4 : Influence de l’arrondi ( UE CSC104 - Analyse numérique matricielle et optimisation).
program test
real*4 a, b, c, s1, s2
a = 1.d-7
b = 1.d-8
c = 1.d0
s1 = c + a
s2 = c + b
write(*,*) 'a b c'
write(*,1000) a, b, c
write(*,*)
write(*,*) 's1 = c+a s2 = c+b'
write(*,2000) s1, s2
write(*,*)
write(*,*) 'a = s1-c b = s2-c'
write(*,2000) s1 - c, s2 - c
1000 format(3(d10.3, 1x))
2000 format(2(d10.3, 1x))
end
Mis à jour
le mercredi 23 novembre 2005, par :
Wilk