Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
Rvc new
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 DO I=1,N TEST : SELECT CASE(A(I:I)) CASE('A','E','I','O','U') PRINT*,A(I:I),'VOWEL' CASE(' ') PRINT*,A(I:I),' ' CASE DEFAULT PRINT*,A(I:I),'CONSONANT' END SELECT TEST END DO PRINT*,' ' DO I=1,N TEST2: SELECT CASE(B(I:I)) CASE('A','E','I','O','U') PRINT*,B(I:I),'VOWEL' CASE(' ') PRINT*,B(I:I),' ' CASE DEFAULT PRINT*,B(I:I),'CONSONANT' END SELECT TEST2 END DO END PROGRAM RVC
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
Summation
Ashish.txt
2
euler-cromer
Exercicio 1
SIUM(3.7)
prime list 2
DO END DO
Fact funsub
New3
Please log in to post a comment.