Q.5/ Show the output of the following statements of FORTRAN 90 program (Draw and put numbers inside the matrixes): B. REAL :: x, y A. Integer, Dimension (4,4):: C Integer:: i j,f= 6 Do i=1,n Do j=1,n If (i==j) then C(i,j)=1 Else X=0 DO X=x+1 y = y+x*x If (y>=10.0) exit END DO WRITE(*,*)"y =", y, "at x = ", x C(ij)=f F=f+2 End if ; end do ;end do Write(*,5)((C(i.j).j=1,n),i=1,n) 5 format (4(2x,i2)) С. D. Integer, Dimension(3,3) :: a,b Data a/1,2,3,4,5,6,7,8,9/ Integer:: Ij Do i=1,3 Do j= 1,3 B(L.j)= a(j.i) End do;end do Write(*,10) ((a(i.j).j=1,3),i=1,3) Write(*,10) ((b(i,j).j=1,3),i=1,3) Integer, dimension (2,2):a,b Integer :: i, j Data a/1,2,3,4/ Do i=1,2 Do j=1,2 B(i.j)=a(i,j)+5 End do ; End do Write(*,10) ((a(i.j).j=1,2),i=1,2) Write(*,10) ((b(i,j).j=1,2),i=1,2)
Q.5/ Show the output of the following statements of FORTRAN 90 program (Draw and put numbers inside the matrixes): B. REAL :: x, y A. Integer, Dimension (4,4):: C Integer:: i j,f= 6 Do i=1,n Do j=1,n If (i==j) then C(i,j)=1 Else X=0 DO X=x+1 y = y+x*x If (y>=10.0) exit END DO WRITE(*,*)"y =", y, "at x = ", x C(ij)=f F=f+2 End if ; end do ;end do Write(*,5)((C(i.j).j=1,n),i=1,n) 5 format (4(2x,i2)) С. D. Integer, Dimension(3,3) :: a,b Data a/1,2,3,4,5,6,7,8,9/ Integer:: Ij Do i=1,3 Do j= 1,3 B(L.j)= a(j.i) End do;end do Write(*,10) ((a(i.j).j=1,3),i=1,3) Write(*,10) ((b(i,j).j=1,3),i=1,3) Integer, dimension (2,2):a,b Integer :: i, j Data a/1,2,3,4/ Do i=1,2 Do j=1,2 B(i.j)=a(i,j)+5 End do ; End do Write(*,10) ((a(i.j).j=1,2),i=1,2) Write(*,10) ((b(i,j).j=1,2),i=1,2)
Database System Concepts
7th Edition
ISBN:9780078022159
Author:Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Publisher:Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Chapter1: Introduction
Section: Chapter Questions
Problem 1PE
Related questions
Question
Transcribed Image Text:Q.5/ Show the output of the following statements of FORTRAN 90 program
(Draw and put numbers inside the matrixes):
A. Integer, Dimension (4,4): C
B. REAL :: X, y
Integer:: i j,f= 6
X=0
DO
Do i=1,n
Do j=1,n
If (i==j) then
C(i.j)=1
Else
X=x+1
y = y+x*x
If (y>=10.0) exit
END DO
WRITE(*,*)"y = ", y, "at x = ", x
C(i.j)=f
F=f+2
End if ; end do ;end do
Write(*,5)((C(i.j).j=1,n),i=1,n)
5 format (4(2x,i2))
С.
D.
Integer, Dimension(3,3) :: a,b
Data a/1,2,3,4,5,6,7,8,9/
Integer:: I.j
Do i=1,3
Do j= 1,3
B(L.j)= a(j,i)
End do;end do
Write(*,10) ((a(i.j).j=1,3),i=1,3)
Write(*,10) ((b(i,j).j=1,3),i=1,3)
Integer, dimension (2,2):a,b
Integer : i, j
Data a/1,2,3,4/
Do i=1,2
Do j=1,2
B(i.j)=a(i.j)+5
End do ; End do
Write(*,10) ((a(i.j).j=1,2),i=1,2)
Write(*,10) ((b(i,j).j=1,2),i=1,2)
Expert Solution
This question has been solved!
Explore an expertly crafted, step-by-step solution for a thorough understanding of key concepts.
Step by step
Solved in 3 steps with 3 images
Recommended textbooks for you
Database System Concepts
Computer Science
ISBN:
9780078022159
Author:
Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Publisher:
McGraw-Hill Education
Starting Out with Python (4th Edition)
Computer Science
ISBN:
9780134444321
Author:
Tony Gaddis
Publisher:
PEARSON
Digital Fundamentals (11th Edition)
Computer Science
ISBN:
9780132737968
Author:
Thomas L. Floyd
Publisher:
PEARSON
Database System Concepts
Computer Science
ISBN:
9780078022159
Author:
Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Publisher:
McGraw-Hill Education
Starting Out with Python (4th Edition)
Computer Science
ISBN:
9780134444321
Author:
Tony Gaddis
Publisher:
PEARSON
Digital Fundamentals (11th Edition)
Computer Science
ISBN:
9780132737968
Author:
Thomas L. Floyd
Publisher:
PEARSON
C How to Program (8th Edition)
Computer Science
ISBN:
9780133976892
Author:
Paul J. Deitel, Harvey Deitel
Publisher:
PEARSON
Database Systems: Design, Implementation, & Manag…
Computer Science
ISBN:
9781337627900
Author:
Carlos Coronel, Steven Morris
Publisher:
Cengage Learning
Programmable Logic Controllers
Computer Science
ISBN:
9780073373843
Author:
Frank D. Petruzella
Publisher:
McGraw-Hill Education