Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Q5
program Q5 implicit none real,dimension(2,2)::A real,dimension(6)::C,S real::V,C1 integer::i,n=6 C(1)=0.8 S(1)=.25 A(1,:)=(/0.9,0.03/) A(2,:)=(/0.1,.97/) do i=2,n C(i)=A(1,1)*C(i-1)+A(1,2)*S(i-1) S(i)=A(2,1)*C(i-1)+A(2,2)*S(i-1) write(*,100)"village and city population respectively in",2011+i," are :",C(i),S(i) 100 format(A,I5,A,f10.5,f10.5) end do V=(C(n)/(S(n)+C(n)))*100 C1=(S(n)/(S(n)+C(n)))*100 write(*,101)"Percentage of Village and city population in 2027 are respectively :",V,C1 101 format(A,f10.5,f10.5) end program
run
|
edit
|
history
|
help
0
I m
Practice
A_01 FIXED_POINT_IM(I)
A_04 SIMPSON'S RULE(3(I))
DO WHILE DO
Finding trace
A_04 GUASSIAN QUADRATURE METHOD FOR 3(I) AND 3(II)
simpsonova for
Practice 4(I) recently
A_03 TAYLOR_METHOD