Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Rvc
PROGRAM RVC IMPLICIT NONE CHARACTER (200)::A,B INTEGER::N,I A='DEPARTMENT OF MATHEMATICS' B=A PRINT*,A,LEN(A) N=LEN(TRIM(A)) PRINT*,'THE MAIN LENGTH IS=',N DO I=1,N B(I:I)=A(N+1-I:N+1-I) END DO PRINT*,'THE REVERSE OF A IS=',B END PROGRAM RVC
run
|
edit
|
history
|
help
0
NEWTON FORWARD DIFFERENT INTERPOLATION
9
A_02 QUESTIONS NUMBER 3
SIUM(3.5)
Exercicio 1
Check identity matrix or not?
test for linear congruential method
Pivot 2
Quardratic equation solve
Vi ss. F