انجام پروژه برنامه نویسی فرترن نمونه کد فرترن نمایش معکوس یک عدد

کد فرترن برنامه ای که ای عددی رو میگیره و اون رو به صورت برعکس نمایش میده

مثلا 12345 رو به صورت 54321 نشون میده

 

1. PROGRAM makoos
2. IMPLICIT NONE
3. INTEGER::n,b,p,i,s,k,j
4. INTEGER,ALLOCATABLE::a(:)
5. READ*,n
6. p=1
7. DO
8. IF (n<10**p) THEN
9. EXIT
10. ELSE
11. p=p+1
12. END IF
13. END DO
14. ALLOCATE (a(p))
15. DO  i=1,p
16. a(i)=MOD(n,10)
17. n=INT(n/10)
18. END DO
19. s=0
20. k=p
21. DO  j=0,p-1
22. t=a(k)*(10**j)
23. s=s+t
24. k=k-1
25. END DO
26. PRINT*,s
27. END PROGRAM
28.