IMPLICIT
0 views
Skip to first unread message
abdullah erdi önüt
May 14, 2009, 2:59:00 AM5/14/09
to Bilgisayar_Programlama_Kou2o
program complex1
implicit none
::a,b,c,d,z
read(*,*)a,b
read(*,*)c,d
z=a/b*c/d
write(*,5)a
5 FORMAT(1X,"a=","(",F5.1,",",F5.1,")")
write(*,*)"b=",b
write(*,*)"c=",c
write(*,*) "d=",d
write(*,*)z
pause
end program
implicit none
::a,b,c,d,z
read(*,*)a,b
read(*,*)c,d
z=a/b*c/d
write(*,5)a
5 FORMAT(1X,"a=","(",F5.1,",",F5.1,")")
write(*,*)"b=",b
write(*,*)"c=",c
write(*,*) "d=",d
write(*,*)z
pause
end program
Reply all
Reply to author
Forward
0 new messages