Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
9
PROGRAM TEST1!Starting of a Fortran program IMPLICIT NONE REAL,PARAMETER::Pi=3.1415 REAL::Circumference,R,S,result,U,V INTEGER::J,K,L,IA CHARACTER(LEN=15)::O,P,Q READ(*,*)R,J,K,S Circumference =2*Pi*R result=Sqrt(R) U=R/S!(real arithmetic type ) V=S+J! (Mixed-mode arithmetic type) L=J*K+INT(4.87)+NINT(5.67)+Floor(R/S)+CEILING(R*S) IA=J/K! (Integer arithmetic type ) O="inductor" P="Pl@ne curve" Q='Japan' PRINT*,Circumference,L,O,P,Q,IA WRITE(*,*)result,U,V Stop END PROGRAM TEST1
run
|
edit
|
history
|
help
0
Summation of 1 to 100 integer namber
Shooting P1
A_01 NEWTON_RM(B(III))
A_01 NEWTON_RM(B(I))
euler-cromer
A_04 SHOOTING METHOD
Shooting method 1
Fib series
Practice
A_01 FIXED_POINT_IM(I)