1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
| write(*,"('Entrez le nombre de points dont vous connaissez la valeur de la fonction F :')"); read(*,*) nbpoints
if(.not. allocated(ABSCISSES)) then
allocate(ABSCISSES(nbpoints,1),stat=pballocation )
if(pballocation .GT. 0) then
stop " Erreur: probleme memoire "
end if
end if
if(.not. allocated(ORDONNEES)) then
allocate(ORDONNEES(nbpoints,1),stat=pballocation )
if(pballocation .GT. 0) then
stop " Erreur: probleme memoire "
end if
end if
do i=1,nbpoints
num=i
write(*,"('Entrer la valeur de l''abscisse de votre point',i5,':')") num
read(*,*) x
ABSCISSES(i,1)=x
write(*,"('Entrer la valeur de l''ordonnee de votre point',i5,':')") num
read(*,*) y
ORDONNEES(i,1)=y
end do
write(*,"('Les abscisses de vos points sont :')")
write(*,*) ABSCISSES
write(*,*)
write(*,"('Les ordonnees de vos points sont :')")
write(*,*) ORDONNEES
write(*,*)
if(.not. allocated(T)) then
allocate(T(2,nbpoints),stat=pballocation )
if(pballocation .GT. 0) then
stop " Erreur: probleme memoire "
end if
end if
do i=1,nbpoints
T(1,i)=ABSCISSES(i,1)
T(2,i)=ORDONNEES(i,1)
end do
write(*,"('Voila le tableau X contenant les coordonnees de vos differents points :')")
write(*,*)
write(*,"('T=')")
do i=1,2
write(*,*) T(i,:)
end do |
Partager