Fortran Codes Set 2

SARAT

FORTRAN FORTRAN @ CIVIL I/II

2

3

4

1. Compute the value of log (1 + x) from Log (1 + x) = 1 – x + x /2 – x /3 + x /4

wr i t e( *, *) ' Ent er val ue of x f or l og( 1+x) ' r ead( * , * ) x t er m=- x s um=1- x do 1 i =2, 4 t er m=- t er m*x*( i - 1) / i s um=s um+t er m 1 co cont i nue wr i t e( * , 2) s um um 2 f or mat ( 1x, ' l og( 1+x) =' , f 10. 2) stop end 2. Change the Fahrenheit temperature to centigrade starting from 0 to 100 in interval of 5 degree. C = 5/9 * (F – 32). Use IF statement.

c

Fah Fahr enhei t t o cen cent i gr ade f =0 2 c=( 5/ 9. ) *( f - 32) wr i t e( e ( * , 1) f , c 1 f or mat ( 1x, f 7. 2, ' F ' , ' =' , f 7. 2, ' C' ) f =f +5 i f ( f . l e. 100) go g ot o 2 stop end 3

3

3

3

3

3

3. Find the sum of series 5 + 10 + 15 + 20 + 25 + 30 .

c

120

s um um of s er er i es n=0 s um=0 2 n=n+5 i f ( n. l e. 30) t hen t er m=n** n* * 3 s um=s um+t er m got o2 el s e got o1 endi f 1 wr i t e( * , * ) ' The s um um of s e err i es 5** 3+10** 3+15** 3. . . . . . +30** 3 i s' wr i t e( * , * ) s um um stop end Page 1 Created on September 05,2006 00:00 am

8/6/2013

SARAT


4. Compute stress (S) from slenderness ratio (R) from 2 S = 18000 – 0.485R If R 110 S= 18000 If R > 110 2 1 + R /18000

c

Sl ender ness Rat i o( R) wr i t e( *, *) ' Ent er val ue of R f or sl ender ness rati o' r ead( * , * ) r i f ( r . gt . 110) t hen s=1 s= 18000/ ( 1+( r * r ) / 18000) el s e s =180 800 00- 0. 485* r * r endi f wr i t e( * , 1) s 1 f or mat ( 1x, ' The val ue of S i s' , f 11. 2) stop end

5. Compute the deflection of beam for 3 Y = 5x 150x If 0 x <10 3 2 Y = 10x + 5x + 6x + 2 If 10 x <100

c

1

120

Def l ect i on of beam wr i t e( * , * ) ' Ent er val ue of x' r ead( * , * ) x i f ( x. ge. 100) t hen wr i t e( * , * ) ' The f unc t i on i s no not val i d f or t hi s va val ue' el s e i f (x x.. l t . 0) t hen wr i t e( * , * ) ' The f unc t i on i s no not val i d f or t hi s va val ue' el s e i f ( x. x . l t . 10) t hen y=5*x+ 5* x+150* 150* x* * 3 el s e y=10*x* 10* x* * 3+5*x* 5* x* * 2+6*x+ 6* x+2 endi f wr i t e( * , 1) y f or mat ( 1x, ' Y =' , f 10. 2) endi f endi f stop end

Page 2 Created on September 05,2006 00:00 am

8/6/2013

SARAT


6. Write a program to find maximum value from three random values.

c

2

1

Maxi mum val ue wr i t e( *, *) ' Ent er 1t h number ' r ead( * , * ) n max=n do 1 i =2, 3 wr i t e( * , 2) i f or mat ( 1x, ' Ent er ' , i 2, ' t h number ' ) r ead( * , * ) n i f ( n- max. gt . 0) t hen max=n el s e endi f co cont i nue wr i t e( *, *) ' The maxi mum val ue en ent er ed i s' wr i t e( *, *) max stop end

7. Write a program to find minimum value from three random values.

c

2

1

120

Mi ni mum val val ue wr i t e( *, *) ' Ent er 1t h number ' r ead( * , * ) n mi n=n n=n do 1 i =2, 3 wr i t e( * , 2) i f or mat ( 1x, ' Ent er ' , i 2, ' t h number ' ) r ead( * , * ) n i f ( mi n- n. gt . 0) t hen mi n=n n=n el s e endi f co cont i nue wr i t e( *, *) ' The mi ni mum val ue ent er ed i s' wr i t e( * , * ) mi n stop end


8/6/2013

SARAT


8. You have 100 numbers of data in Centigrade. Write a program to change these into Fahrenheit scale using DO statement. C = 5/9 * (F – 32)

c 2

3 1

100 Fah Fahr enhei t t o cen cent i gr ade do 1 i =1, 10 100 0 wr i t e( * , 2) i f or mat ( 1x, ' Ent er ' , i 4, ' t h val ue' ) r ead( * , * ) c f =9* c/ 5. +32 wr i t e( * , 3) c , f f or mat ( 1x, f 7. 2, ' C ' , ' =' , f 7. 2, ' F ' ) co cont i nue stop end

9. Write a program to arrange the random data in ascending order.

c

Asc end endi ng or der der i nt eger c di mensi ensi on a( 100) , b( 100) wr i t e( *, *) ' Ent er number of t er ms' r ead( * , * ) n do 1 i =1, n, 1 wr i t e( * , 2) i 2 f or mat ( 1x, ' Ent er ' , i 3, ' t h t er m' ) r ea e ad( * , * ) a( a( i ) 1 c co ont i nue do 3 i =1, n- 1 do 3 j =i +1, n i f ( a( a( i ) . gt . a( j ) ) t h he en t =a( i ) a( i ) =a( j ) a( j ) =t endi f 3 c co ont i nue wr i t e( *, *) ' The t er ms i n ascen scendi ng or der i s : ' wr i t e( * , 4) ( a( i ) , i =1, n) 4 f or mat ( 1x, 100f 7. 2) stop end

120


8/6/2013

SARAT


10. Write a program to arrange the random data in descending order.

c

Descendi escendi ng or der der i nt eger c di mensi ensi on a( 100) , b( 100) wr i t e( *, *) ' Ent er number of t er ms' r ead( * , * ) n do 1 i =1, n, 1 wr i t e( * , 2) i 2 f or mat ( 1x, ' Ent er ' , i 3, ' t h t er m' ) r ea e ad( * , * ) a( a( i ) 1 c co ont i nue do 3 i =1, n- 1 do 3 j =i +1, n i f ( a( i ) . l t . a( j ) ) t he hen t =a( i ) a( i ) =a( j ) a( j ) =t endi f 3 c co ont i nue wr i t e( *, *) ' The t er ms i n descen scendi ng or der i s : ' wr i t e( * , 4) ( a( i ) , i =1, n) 4 f or mat ( 1x, 100f 7. 2) stop end

11. Write a program to read series of data in array and find average value of these data.

c

3 1

2

120

Aver ver age age Ar r ay di mensi ensi on a( a( 100) wr i t e( *, *) ' Ent er number of t er ms' r ead( * , * ) n wr i t e( *, *) ' Ent er t he t er ms' do 1 i =1, n wr i t e( * , 3) i f or mat ( 1x, ' Ent er ' , i 3, ' t h t er m' ) r ea e ad( * , * ) a( a( i ) co cont i nue s um=0 do 2 i =1, n, 1 s um=s um+a( i ) co cont i nue avg= av g=s um/ n wr i t e( *, *) ' The aver age val ue i s' wr i t e( * , * ) avg stop end


8/6/2013

SARAT


12. Write a program to check the prime number.

c

1

120

Check pr i me number wr i t e( *, *) ' Ent er t he number ' r ead( * , * ) n l =1 l =l +1 i f ( l . gt . n/ 2) t hen wr i t e( *, *) ' The nu number i s pr i me' el s e i f ( ( n- n/ l * l ) . eq. 0) t hen wr i t e( *, *) ' The nu number i s not not pr i me' el s e got o1 endi f endi f stop end


8/6/2013

SARAT


13. You have three matrices [A] , [B] , [C]. Write a program to add a dd [A] and [B] with transpose of [C].

c

Add+ Add+Tr anspos ans pose e di mensi on a( 10, 10) , b( 10, 10) , c( 10, 10) , d( 10, 10) , e( 10, 10) wr i t e( *, *) ' For t he addi t i on of mat r i xes' wr i t e( * , * ) ' Ent er t he or der f or 1s t mat r i x as r , c ' r ead( *, *) m, n wr i t e( *, *) ' Ent er t he or der f or 2nd mat r i x as r , c' r ead( * , * ) o, p wr i t e( *, *) ' Ent er t he or der f or 3r d mat r i x as r , c' r ea e ad( * , * ) k , l i f ( m. eq. o) t hen i f ( o. o . eq. l ) t h he en i f ( n. eq. p) t hen i f ( p. eq. k) got o11 el s e endi f el s e endi f el s e endi f wr i t e( *, *) ' The mat r i x addi t i on i s no not def i ned' stop 11 2 1

4

120

wr i t e( *, *) ' Ent er t he val ues of of t he t er ms of of 1st mat r i x' do 1 i =1, m, 1 wr i t e( * , 2) i f or mat ( 1x, ' Ent er t er ms i n' , i 2, ' t h r ow' ) r ea ead( * , * ) ( a( i , j ) , j =1, n) co cont i nue wr i t e( *, *) ' Ent er t he val ues of of t he t er ms of of 2nd mat r i x' do 3 i =1, m, 1 wr i t e( * , 4) i f or mat ( 1x, ' Ent er t er ms i n' , i 2, ' t h r ow' ) r ea ead( * , * ) ( b( i , j ) , j =1, n) 2 con cont i nue


8/6/2013

SARAT


wr i t e( *, *) ' Ent er t he val ues of of t he t er ms of of 3r d mat r i x' do 12 i =1, k wr i t e( * , 20) i 20 f or mat ( 1x, , ' Ent er t er ms i n ' , i 2, ' t h r ow' ) r ea ead( * , * ) ( c( c ( i , j ) , j =1, l ) 12 con cont i nue do 13 i =1, l do 14 j =1, k d( i , j ) =c ( j , i ) 14 con cont i nue 13 con cont i nue

5

do 5 do 5 e( i , j co cont i

i =1, m, 1 j =1, n, 1 ) =a( i , j ) +b( i , j ) +d( i , j ) nue

6

wr i t e( * , * ) ' The f i r s t mat r i x i s f ol l ows ' do 6 i =1, m wr i t e( e ( * , * ) ( a( i , j ) , j =1, n) co cont i nue

7

wr i t e( *, *) ' The seco secon nd mat r i x i s f ol l ows' do 7 i =1, m wr i t e( e ( * , * ) ( b( i , j ) , j =1, n) co cont i nue

8

wr i t e( * , * ) ' The t hi r d mat r i x i s f ol l ows ' do 8 i =1, k wr i t e( e( * , * ) ( c ( i , j ) , j =1, l ) co cont i nue

wr i t e( * , * ) ' The t r ans po pos e of t hi r d mat r i x i s f ol l ows ' do 15 i =1, l wr i t e( e ( * , * ) ( d( i , j ) , j =1, k) 15 con cont i nue wr i t e( * , * ) ' The s um um mat r i x i s f ol l ows ' do 10 i =1, m wr i t e( e ( * , * ) ( e( i , j ) , j =1, n) 10 con cont i nue stop end

120


8/6/2013

SARAT


14. Write a program to find NCR value using function sub program.

c c

1 c

2

nCr Fun Funct i ons f unc t i on f ( k) f =1 do 1 i =1, k f =f *i co cont i nue return end end Mai n Pr ogr ogr am wr i t e( *, *) ' Ent er val ues of of n & r f or nCr ' r ead( * , * ) n, l m=f ( n n)) / ( f ( l ) * f ( n n-- l ) ) wr i t e( e ( * , 2) n n,, l , m f or mat ( 1x, ' C( ' , i 2, ' , ' , i 2, ' ) = ' , i 3) stop end end

15. Write a program to find NCR value using subroutine.

c

Sub r out i ne subr out i ne f act ( n, a) sub j =1 do 1 i =1, n 1 j =j *i a=j return end end

2

120

i nt eger a, a , b, c , d, e, r wr i t e( * , * ) ' Ent er n, n, r ' r ead( * , * ) n, r c al l f ac t ( n, ab) c al l f ac t ( r , ac ) c al l f ac t ( ( n- r ) , ad) e=ab/ ab/ ( ac*ad ac* ad)) wr i t e( * , 2) n, r , e f or mat ( 1x, ' C ( ' , i 2, ' , ' , i 2, ' ) = ' , i 3) stop end end


8/6/2013

SARAT


16. Write a program to solve quadratic equation.

c

1 2

3

Qu Quadr at i c wr i t e( * , * ) ' ent er va val ues of a, b, c ' r ead( * , * ) a, b, c i f ( b* * 22- 4* a* a* c) c ) 1, 2, 3 wr i t e( *, *) ' r eal val ue of x doesn sno ot ex exi st ' stop x=- b/ ( 2*a) wr i t e( * , * ) ' t he val ue of x i s ' wr i t e( * , * ) x stop x x1 1=( - b+sq sqrr t ( b** 2- 4*a*c) ) / ( 2*a) x2=( - b- sq sqrr t ( b**2**2- 4*a*c) *a*c) ) / ( 2*a) *a) wr i t e( * , * ) ' t he val ues of of x ar e' wr i t e( * , * ) x1, x2 stop end 2

3

17. Use Do statement to find sum of 1 + x + x /4 + x /9 + x4/16

c

1

sum of ser sum ser i es usi ng do l oop wr i t e ( * , * ) ' Ent er t he val ue of x' r ead( * , * ) x s um=1 do 1 i =1, 4 s um=s um+x** x* * i / i * * 2 co cont i nue wr i t e( * , * ) ' The s um um of s e err i es i s ' wr i t e( * , * ) s um um stop end 2

3

18. Use IF statement to find sum of 1 + x + x /4 + x /9 + x4/16 + ........

c

1

2

120

sum of ser sum ser i es usi ng i f st at ement wr i t e( *, *) ' Ent er t he val ue of x' r ead( * , * ) x s um=1 i =1 s um=s um+x** x* * i / i * * 2 i =i +1 i f ( i . gt . 4) g go ot o2 o2 got o1 wr i t e( * , * ) ' The s um um of s er er i es i s ' wr i t e( * , * ) s um um stop end


8/6/2013

SARAT


n

n

19. Find annual return using A – P * i(1 + i) /(1 + i) - 1 where is interest rate , P is investment amount , n numbers of years.

c c

Annual Ret ur n Sub Pr ogr ams f unc t i on f ( x, y) f =( 1+x) * *y return end

c

Mai n Pr ogr ogr am wr i t e( *, *) ' Ent er t he i nvest vest ment amount ' r ead( * , * ) a wr i t e( * , * ) ' Ent er t he i nt er es t r at e' r ead( * , * ) b wr i t e( *, *) ' Ent er t he number of year s' r ead( * , * ) c t =a* b* b* f ( b, c ) / ( f ( b, c ) - 1) wr i t e( * , * ) ' The t ot al annual r et ur n i s ' wr i t e( * , 1) t f or mat ( 1x, f 7. 2) stop end

1

2

20. Write program to find earth pressure by P = wh /2 * 1-sin sin . Use calculated P to find moment at distance h/3 for 10 sections of retaining wall.

c

120

Pressur Pressur e wr i t e( *, *) ' Ent er t he val ue of w' r ead( * , * ) w wr i t e( *, *) ' Ent er t he val ue of h' r ead( * , * ) h wr i t e( * , * ) ' Ent er t he angl e' r ead( * , * ) a a=a*22/ a*22/ ( 7* 180. ) p=( w*h*h *h*h// 2) *( 1- si n( a) ) / ( 1+si n( a) ) wr i t e( * , * ) ' The pr es s ur ur e i s ' wr i t e( * , * ) p b=p*h/ p* h/ 3 wr i t e( *, *) ' The moment i s' wr i t e( * , * ) b stop end


8/6/2013

SARAT


21. Write a program to find volume of triangular cylinder from two sides and angle between them in cross section and length.

C

1

Vol ume of t he cyl i nder wr i t e( *, *) ' Ent er t he l engt h of t wo adj acen cent si des' r ead( * , * ) a, b wr i t e( *, *) ' Ent er angl e bet ween ent er ed si des' r ead( * , * ) c wr i t e( *, *) ' Ent er t he hei ght of t he pr i sm' r ead( * , * ) d c=c* 22/ ( 7* 18 180 0) e=0. 5*a*b*s *a*b*s i n( c) v=e* d wr i t e( * , 1) e, v f or mat ( 1x, ' The ar ea of t he bas e i s ' , f 5. 2, / , 1x, ' The vol ume of of pr i s * m i s ' , f 6. 6. 2, / ) stop end

22. Write a program to read square matrix and to calculate sum of any row of the matrix.

c

Sum of any any r ow Di mensi ensi on a( 10, 10) , b( 100) wr i t e( *, *) ' Ent er t he or der of sq squ uar e mat r i x' r ead( * , * ) k wr i t e( *, *) ' Ent er t he t er ms of of t he mat r i x' do 1 i =1, k, 1 wr i t e( * , 4) i 4 f or mat ( 1x, ' Ent er t er ms of of ' , i 2, ' t h r ow' ) r ea ead( * , * ) ( a( i , j ) , j =1, k) 1 c co ont i nue wr i t e( *, *) ' Ent er t he r ow t o ca cal cul cul at e t he su sum m' r ead( * , * ) i s um=0 do 3 j =1, k, 1 s um=s um+a( i , j ) 3 c co ont i nue wr i t e( *, *) ' The su sum m of el ement s of of gi ven r ow i s : ' wr i t e( * , 5) s um um 5 f or mat ( 1x, f 5. 2) stop end

120


8/6/2013

SARAT


23. Write a program to read square matrix and to calculate sum of any column of the matrix.

c

Sum Sum of any any col umn Di mensi ensi on a( 10, 10) , b( 100) wr i t e( *, *) ' Ent er t he or der of sq squ uar e mat r i x' r ead( * , * ) k wr i t e( *, *) ' Ent er t he t er ms of of t he mat r i x' do 1 i =1, k, 1 wr i t e( * , 4) i 4 f or mat ( 1x, ' Ent er t er ms of of ' , i 2, ' t h r ow' ) r ea ead( * , * ) ( a( i , j ) , j =1, k) 1 c co ont i nue wr i t e( *, *) ' Ent er t he col col umn t o cal cal cul cul at e t he su sum m' r ead( * , * ) j s um=0 do 3 i =1, k, 1 s um=s um+a( i , j ) 3 c co ont i nue wr i t e( *, *) ' The su sum m of el ement s of of gi ven col col umn i s : ' wr i t e( * , 5) s um um 5 f or mat ( 1x, f 5. 2) stop end

120


8/6/2013

SARAT


24. Write a program to read square matrix and to calculate sum of each row of the matrix.

c

Sum of each r ow Di mensi ensi on a( 10, 10) , b( 100) wr i t e( *, *) ' Ent er t he or der of sq squ uar e mat r i x' r ead( * , * ) k wr i t e( *, *) ' Ent er t he t er ms of of t he mat r i x' do 1 i =1, k, 1 wr i t e( * , 4) i 4 f or mat ( 1x, ' Ent er t er ms of of ' , i 2, ' t h r ow' ) r ea ead( * , * ) ( a( i , j ) , j =1, k) 1 c co ont i nue

3 6 5 2

120

do 2 i =1, k, 1 s um=0 do 3 j =1, k, 1 s um=s um+a( i , j ) c co ont i nue wr i t e( * , 6) i f or mat ( ' The s um um of el ement s of of ' , i 2, ' t h r ow i s : ' ) wr i t e( * , 5) s um um f or mat ( 1x, f 5. 2) c co ont i nue stop end


8/6/2013

SARAT


25. Write a program to read square matrix and to calculate sum of each column of the matrix.

c

Sum Sum of each each col umn Di mensi ensi on a( 10, 10) , b( 100) wr i t e( *, *) ' Ent er t he or der of sq squ uar e mat r i x' r ead( * , * ) k wr i t e( *, *) ' Ent er t he t er ms of of t he mat r i x' do 1 i =1, k, 1 wr i t e( * , 4) i 4 f or mat ( 1x, ' Ent er t er ms of of ' , i 2, ' t h r ow' ) r ea ead( * , * ) ( a( i , j ) , j =1, k) 1 c co ont i nue

3 6 5 2

120

do 2 j =1, k, 1 s um=0 do 3 i =1, k, 1 s um=s um+a( i , j ) c co ont i nue wr i t e( * , 6) j f or mat ( ' The su sum m of el ement s of of ' , i 2, ' t h col col umn i s : ' ) wr i t e( * , 5) s um um f or mat ( 1x, f 5. 2) c co ont i nue stop end


8/6/2013

SARAT


26. Write a program to read square matrix and to calculate sum of all elements of the matrix.

c

Sum of al l el ement s Di mensi ensi on a( 10, 10) , b( 100) wr i t e( *, *) ' Ent er t he or der of sq squ uar e mat r i x' r ead( * , * ) k wr i t e( *, *) ' Ent er t he t er ms of of t he mat r i x' do 1 i =1, k, 1 wr i t e( * , 4) i 4 f or mat ( 1x, ' Ent er t er ms of of ' , i 2, ' t h r ow' ) r ea ead( * , * ) ( a( i , j ) , j =1, k) 1 c co ont i nue s um=0 do 2 j =1, k, 1 do 3 i =1, k, 1 s um=s um+a( i , j ) 3 c co ont i nue 2 c co ont i nue wr i t e( *, *) ' The su sum m of al l el ement s of of mat r i x i s' wr i t e( * , 5) s um um 5 f or mat ( 1x, f 5. 2) stop end

120


8/6/2013

SARAT


27. Write a program to read square matrix and to calculate sum of all elements except diagonal elements of matrix.

c

Sum of al l el ement s excl xcl udi Di mensi ensi on a( 10, 10) , b( 100) wr i t e( *, *) ' Ent er t he or der r ead( * , * ) k wr i t e( *, *) ' Ent er t he t er ms do 1 i =1, k, 1 wr i t e( * , 4) i 4 f or mat ( 1x, ' Ent er t er ms of of ' r ea ead( * , * ) ( a( i , j ) , j =1, k) 1 c co ont i nue

ng di agonal el ement s of sq squ uar e mat r i x' of of t he mat r i x' , i 2, ' t h r ow' )

s um=0 do 2 j =1, k, 1 do 3 i =1, k, 1 i f ( i . eq. j ) go got o3 o3 s um=s um+a( i , j ) 3 c co ont i nue 2 c co ont i nue wr i t e( *, *) ' The su sum m of al l el ement s ex excl udi ng di agonal el ement ent s of *mat r i x i s' wr i t e( * , 5) s um um 5 f or mat ( 1x, f 5. 2) stop end

120


8/6/2013

SARAT


28. Write a program to read square matrix and to calculate sum of any row of the matrix.

c

Sum of any any r ow Di mensi ensi on a( 10, 10) , b( 100) wr i t e( *, *) ' Ent er t he or der of sq squ uar e mat r i x' r ead( * , * ) k wr i t e( *, *) ' Ent er t he t er ms of of t he mat r i x' do 1 i =1, k, 1 wr i t e( * , 4) i 4 f or mat ( 1x, ' Ent er t er ms of of ' , i 2, ' t h r ow' ) r ea ead( * , * ) ( a( i , j ) , j =1, k) 1 c co ont i nue wr i t e( *, *) ' Ent er t he r ow t o ca cal cul cul at e t he su sum m' r ead( * , * ) i s um=0 do 3 j =1, k, 1 s um=s um+a( i , j ) 3 c co ont i nue wr i t e( *, *) ' The su sum m of el ement s of of gi ven r ow i s : ' wr i t e( * , 5) s um um 5 f or mat ( 1x, f 5. 2) stop end

120


8/6/2013

SARAT


29. Write a program to read square matrix and to count the negative elements within the matrix find their sum.

c

4 1

3 2

6

7

120

Negat egat i ve el ement ent s Di mensi ensi on a( 10, 10) , b( 100) i nt eger c , d wr i t e( *, *) ' Ent er t he or der of sq squ uar e mat r i x' r ead( * , * ) k wr i t e( *, *) ' Ent er t he t er ms of of t he mat r i x' do 1 i =1, k, 1 wr i t e( * , 4) i f or mat ( 1x, ' Ent er t er ms of of ' , i 2, ' t h r ow' ) r ea ead( * , * ) ( a( i , j ) , j =1, k) c co ont i nue m=0 do 2 i =1, k, 1 do 3 j =1, k, 1 i f ( a( i , j ) . l t . 0) t he hen m=m+1 b( m) =a( i , j ) el s e endi f c co ont i nue c co ont i nue wr i t e( *, *) ' The number of negat i ve el el ement s i s: ' wr i t e( * , * ) m wr i t e( *, *) ' The negat i ve el ement s of t he mat r i x ar ar e as f ol l ows : ' wr i t e( * , 6) ( b( i ) , i =1, m) f or mat ( 1x, 100f 6. 2) s um=0 do 7 i =1, m s um=s um+b( i ) c co ont i nue wr i t e( *, *) ' The su sum of negat i ve el ement s i s; ' wr i t e( * , 6) s um um stop end


8/6/2013

SARAT


30. Write a program to read square matrix and to count non-negative elements within the matrix.

c

4 1

3 2

120

Nonon- nega negatt i ve el ement ent s Di mensi ensi on a( 10, 10) , b( 100) i nt eger c , d wr i t e( *, *) ' Ent er t he or der of sq squ uar e mat r i x' r ead( * , * ) k wr i t e( *, *) ' Ent er t he t er ms of of t he mat r i x' do 1 i =1, k, 1 wr i t e( * , 4) i f or mat ( 1x, ' Ent er t er ms of of ' , i 2, ' t h r ow' ) r ea ead( * , * ) ( a( i , j ) , j =1, k) c co ont i nue m=0 do 2 i =1, k, 1 do 3 j =1, k, 1 i f ( a( a( i , j ) . gt . 0) t hen m=m+1 el s e endi f c co ont i nue c co ont i nue wr i t e( *, *) ' The number of non- negat i ve el ement s of t he mat r i x: ' wr i t e( * , * ) m stop end


8/6/2013

SARAT


31. Write a program to read square matrix and to display only non-negative elements with the matrix.

c

120

Non Non-- negat i ve Di mensi ensi on a( 10, 10) , b( 100) i nt eger c , d wr i t e( *, *) ' Ent er t he or der of sq squ uar e mat r i x' r ead( * , * ) k wr i t e( *, *) ' Ent er t he t er ms of of t he mat r i x' do 1 i =1, k, 1 wr i t e( * , 4) i 4 f or mat ( 1x, ' Ent er t er ms of of ' , i 2, ' t h r ow' ) r ea ead( * , * ) ( a( i , j ) , j =1, k) 1 c co ont i nue m=0 do 2 i =1, k, 1 do 3 j =1, k, 1 i f ( a( a( i , j ) . gt . 0) t hen m=m+1 b( m) =a( i , j ) el s e endi f 3 c co ont i nue 2 c co ont i nue wr i t e( *, *) ' The no non- negat i ve el el ement s of t he mat r i x ar ar e as as f ol l ows : *' wr i t e( * , 6) ( b( i ) , i =1, m) 6 f or mat ( 1x, 100f 6. 2) stop end


8/6/2013

SARAT


32. Write a program to read square matrix and to display only negative elements with in the matrix.

c

4 1

3 2

6

120

Ne Negat i ve Di mensi ensi on a( 10, 10) , b( 100) i nt eger c , d wr i t e( *, *) ' Ent er t he or der of sq squ uar e mat r i x' r ead( * , * ) k wr i t e( *, *) ' Ent er t he t er ms of of t he mat r i x' do 1 i =1, k, 1 wr i t e( * , 4) i f or mat ( 1x, ' Ent er t er ms of of ' , i 2, ' t h r ow' ) r ea ead( * , * ) ( a( i , j ) , j =1, k) c co ont i nue m=0 do 2 i =1, k, 1 do 3 j =1, k, 1 i f ( a( i , j ) . l t . 0) t he hen m=m+1 b( m) =a( i , j ) el s e endi f c co ont i nue c co ont i nue wr i t e( *, *) ' The negat i ve el ement s of t he mat r i x ar ar e as f ol l ows : ' wr i t e( * , 6) ( b( i ) , i =1, m) f or mat ( 1x, 100f 6. 2) stop end


8/6/2013

SARAT


33. Write a program to read square matrix and to check whether the matrix is symmetric or not.

c

4 1

3 2

120

Sym Symmet r i c Mat r i x Di mensi ensi on a( 10, 10 10)) wr i t e( *, *) ' Ent er t he or der of sq squ uar e mat r i x' r ead( * , * ) k wr i t e( *, *) ' Ent er t he t er ms of of t he mat r i x' do 1 i =1, k, 1 wr i t e( * , 4) i f or mat ( 1x, ' Ent er t er ms of of ' , i 2, ' t h r ow' ) r ea ead( * , * ) ( a( i , j ) , j =1, k) c co ont i nue n=0 do 2 i =1, k, 1 do 3 j =1, k, 1 i f ( a( a( i , j ) . eq. a( j , i ) ) t hen el s e n=n+1 endi f c co ont i nue c co ont i nue i f ( n. eq. 0) t hen wr i t e( *, *) ' The gi ven mat r i x i s sym symmet r i c' el s e wr i t e( *, *) ' The gi ven mat r i x i s no not symmet r i c' endi f stop end


8/6/2013

SARAT


34. Write a program to read square matrix and to check whether the matrix is skew symmetric or not.

c

4 1

3 2

120

Skew Skew- Sym Symmet r i c Mat r i x Di mensi ensi on a( 10, 10 10)) wr i t e( *, *) ' Ent er t he or der of sq squ uar e mat r i x' r ead( * , * ) k wr i t e( *, *) ' Ent er t he t er ms of of t he mat r i x' do 1 i =1, k, 1 wr i t e( * , 4) i f or mat ( 1x, ' Ent er t er ms of of ' , i 2, ' t h r ow' ) r ea ead( * , * ) ( a( i , j ) , j =1, k) c co ont i nue n=0 do 2 i =1, k, 1 do 3 j =1, k, 1 i f ( i . eq. j ) t hen i f ( a( a ( i , j ) . eq. 0) go got o3 o3 n=n+1 got o3 endi f i f ( a( i , j ) . eq. - a( a ( j , i ) ) t he hen el s e n=n+1 endi f c co ont i nue c co ont i nue i f ( n. eq. 0) t hen wr i t e( *, *) ' The gi ven mat r i x i s skew skew symmet r i c. ' el s e wr i t e( *, *) ' The gi ven mat r i x i s n no ot skew skew symmet r i c. ' endi f stop end


8/6/2013

SARAT


35. Write a program to read square matrix and to replace all the diagonal elements by 1 and display changed matrix.

c

4 1

3 2

5

120

Repl epl ace by one one Di mensi ensi on a( 10, 10 10)) wr i t e( *, *) ' Ent er t he or der of sq squ uar e mat r i x' r ead( * , * ) k wr i t e( *, *) ' Ent er t he t er ms of of t he mat r i x' do 1 i =1, k, 1 wr i t e( * , 4) i f or mat ( 1x, ' Ent er t er ms of of ' , i 2, ' t h r ow' ) r ea ead( * , * ) ( a( i , j ) , j =1, k) c co ont i nue do 2 i =1, k, 1 do 3 j =1, k, 1 i f ( i . eq. j ) t hen a( i , j ) =1 =1 el s e endi f c co ont i nue c co ont i nue wr i t e( * , * ) ' The r es ul ul t i ng mat r i x i s ' do 5 i =1, k, 1 wr i t e( e ( * , * ) ( a( i , j ) , j =1, k) c co ont i nue stop end


8/6/2013

SARAT


36. Write a program to read square matrix and to replace all non-diagonal elements by 0 and display changed matrix.

c

4 1

3 2

5

120

Repl epl ace by zer o Di mensi ensi on a( 10, 10 10)) wr i t e( *, *) ' Ent er t he or der of sq squ uar e mat r i x' r ead( * , * ) k wr i t e( *, *) ' Ent er t he t er ms of of t he mat r i x' do 1 i =1, k, 1 wr i t e( * , 4) i f or mat ( 1x, ' Ent er t er ms of of ' , i 2, ' t h r ow' ) r ea ead( * , * ) ( a( i , j ) , j =1, k) c co ont i nue do 2 i =1, k, 1 do 3 j =1, k, 1 i f ( i . eq. j ) t hen el s e a( i , j ) =0 =0 endi f c co ont i nue c co ont i nue wr i t e( * , * ) ' The r es ul ul t i ng mat r i x i s ' do 5 i =1, k, 1 wr i t e( e ( * , * ) ( a( i , j ) , j =1, k) c co ont i nue stop end


8/6/2013

Fortran Codes Set 2

Recommend Documents