IMPLICIT 2

0 views

Skip to first unread message

abdullah erdi önüt

unread,

May 14, 2009, 2:59:31 AM5/14/09

to Bilgisayar_Programlama_Kou2o

program or1
implicit none
real::x,y,z
real::m,n,p
read(*,*)x,y,z

5 format(1x, "x=", F8.1, "y=", F8.1, "z=", F8.1)
write(*,5) x,y,z

read(*,*)m,n,p
write(*,*)
write(*,*)
write(*,*) "m=",m,"n=",n,"P=",p
pause
end program or1

Reply all

Reply to author

Forward

0 new messages