Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
ascending sorting
!gfortran, gcc version 7.4.0 program hello implicit none real::tem integer,dimension(5)::a integer::i,j,c=0 a=[5,1,8,7,6]; write(*,12)'Smallest To Largest :' 12 format(4x,A22) do i=1,5 do j=i,5 if (a(i)>a(j))then tem=a(i); a(i)=a(j); a(j)=tem; end if end do end do do i=1,5 write(*,10),a(i) end do 10 format(25x,I2) end program hello
run
|
edit
|
history
|
help
0
Taylors method of three order
Gauss pivot elimination
Input Output formatting
gghhhhh
Fibonacci 500
Shooting method 1
Q1
GPA GRADING
my_second_code
2