Program Ecua_linales2
implicit none
real*4 x,y,a1,b1,a2,b2,c1,c2
write(*,*)'***********Bienvenidos**************'
write(*,*)''
write(*,*)'Este programa resuelve un sistema de ecuaciones de la forma'
write(*,*)'a1*X+b1*Y=c1'
write(*,*)'a2*X+b2*Y=c2'
write(*,*)'Constituye un primer inicio en el aprendizaje de Fortran'
write(*,*)'Escribe las constantes,a1,b1,c1,a2,b2,c2 En ese orden'
read(*,*)a1,b1,c1,a2,b2,c2
if (a1==a2 .and. b1==b2) then
write(*,*)'Son lineas paralelas'
else
x=(c1*b2-c2*b1)/(a1*b2-a2*b1)
y=(a1*c2-a2*c1)/(a1*b2-a2*b1)
write(*,*)'Las soluciones son:','X=',x,'Y=',y
end if
end program
Comentarios sobre la versión: Versión 1 (6)
que te sea leve ... bye
real(8), dimension (1:3,1:3) ::a
!definiendo los valores
a(1,1)=1
a(1,2)=0
a(1,3)=0
a(2,1)=0
a(2,2)=1
a(2,3)=0
a(3,1)=0
a(3,2)=0
a(3,3)=1
print*, a
end matriz