IMPLICIT3
0 views
Skip to first unread message
abdullah erdi önüt
May 14, 2009, 3:00:15 AM5/14/09
to Bilgisayar_Programlama_Kou2o
PROGRAM Q
IMPLICIT NONE
CHARACTER(9)::A*3,B,C
CHARACTER(27)::D,E
READ(*,*)A,B,C
WRITE(*,5)A,B,C
5 FORMAT(1X,"A=",A2,"B=",A7,"C=",A3)
D=A//B//C
E=B//"+"//C
WRITE(*,*)"D=",D
WRITE(*,*)"E=",E
PAUSE
END PROGRAM
GORUSLERINIZE SUNULMUSTUR.......
IMPLICIT NONE
CHARACTER(9)::A*3,B,C
CHARACTER(27)::D,E
READ(*,*)A,B,C
WRITE(*,5)A,B,C
5 FORMAT(1X,"A=",A2,"B=",A7,"C=",A3)
D=A//B//C
E=B//"+"//C
WRITE(*,*)"D=",D
WRITE(*,*)"E=",E
PAUSE
END PROGRAM
GORUSLERINIZE SUNULMUSTUR.......
Reply all
Reply to author
Forward
0 new messages