Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
5
PROGRAM TEST1 IMPLICIT NONE REAL,PARAMETER::G=9.81 REAL::F,M,S,rest,realarithmetic INTEGER::C,K,L,Integerarithmetic CHARACTER(LEN=20)::O,P,Q READ(*,*)M,C,K,S F=M*G+Floor(M/S)+CEILING(M*S) rest=SIN ((3.1416/180)*S) realarithmetic=M/S L=C*K Integerarithmetic=C/K O="2nd@year" P="Men's world" Q='WHAT?' PRINT*,F,L,O,P,Q,Integerarithmetic WRITE(*,*)rest,realarithmetic Stop END PROGRAM TEST1
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
Title
55
Subroutine problem
Random walk by using Monte Carlo method
Factorial num
Rvc new
fortran-genetic-algo
NEWTON SECOND LAW
euler-cromer
3
Please log in to post a comment.