Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
A_04 TRAPEZOIDAL RULE (3(I))
PROGRAM TRAPEZOIDAL_RULE IMPLICIT NONE REAL :: F,DX,A,B,X,S,C INTEGER :: I,N PRINT*,'INPUT THE VALUE OF LOWER AND UPPER LIMIT RESPECTIVELY:' READ*,A,B PRINT*,' INPUT THE VALUE OF N:' READ*,N DX=(B-A)/N S=0 DO I=0,N X=A+I*DX PRINT *,X IF (X==A .OR. X==B) THEN C=1 ELSE C=2 END IF S=S+(DX/2.0)*C*F(X) END DO PRINT *, S END PROGRAM TRAPEZOIDAL_RULE REAL FUNCTION F(X) IMPLICIT NONE REAL :: X F=(X**2)*EXP(X) END FUNCTION F
run
|
edit
|
history
|
help
0
A_03 EULER'S METHOD
A_01 NEWTON_R_M(B(I))
NEWTON SECOND LAW
4
Practice 2(I) second time
নাজমুন নাহার
Fibonacci 500
Matrix 3×3
A_002 THE GUASS SEIDEL
Practice