Homework Help is Here – Start Your Trial Now!
Engineering
Computer Engineering
PROGRAM SUBPROGRAM_1 IMPLICIT NONE REAL :: F, X, A, B, C INTEGER ::I, J, K F(X) = X**2 + 2 A = 3. B = 2. I= 6 DO J = 1, I C= ( F(A-B) - F(A+B) ) / 2. K = C* SQRT ( ABS(C) ) + 0.5 A = A + 2. B = B - 2. IF ( K >0) EXIT END DO PRINT*, "K=", K END PROGRAM SUBPROGRAM_1

PROGRAM SUBPROGRAM_1 IMPLICIT NONE REAL :: F, X, A, B, C INTEGER ::I, J, K F(X) = X**2 + 2 A = 3. B = 2. I= 6 DO J = 1, I C= ( F(A-B) - F(A+B) ) / 2. K = C* SQRT ( ABS(C) ) + 0.5 A = A + 2. B = B - 2. IF ( K >0) EXIT END DO PRINT*, "K=", K END PROGRAM SUBPROGRAM_1

Computer Networking: A Top-Down Approach (7th Edition)
Computer Networking: A Top-Down Approach (7th Edition)
7th Edition
ISBN:9780133594140
Author:James Kurose, Keith Ross
Publisher:James Kurose, Keith Ross
Chapter1: Computer Networks And The Internet
Section: Chapter Questions
Problem R1RQ: What is the difference between a host and an end system? List several different types of end...
See similar textbooks
icon
Related questions
Question
Calculate the value of the variable K in the following program in Fortran 90 ؛
PROGRAM SUBPROGRAM_1 IMPLICIT NONE REAL :: F, X, A, B, C INTEGER ::I,J, K F(X) = X**2 + 2 A = 3. B = 2. T = 6 DO J = 1, I C = ( F(A-B) - F(A+B) ) / 2. K = C* SQRT ( ABS(C) ) + 0.5 A = A + 2. B = B - 2. IF ( K >0) EXIT END DO PRINT*, "K=", K END PROGRAM SUBPROGRAM_1
Transcribed Image Text:PROGRAM SUBPROGRAM_1 IMPLICIT NONE REAL :: F, X, A, B, C INTEGER ::I,J, K F(X) = X**2 + 2 A = 3. B = 2. T = 6 DO J = 1, I C = ( F(A-B) - F(A+B) ) / 2. K = C* SQRT ( ABS(C) ) + 0.5 A = A + 2. B = B - 2. IF ( K >0) EXIT END DO PRINT*, "K=", K END PROGRAM SUBPROGRAM_1
Expert Solution
steps

Step by step

Solved in 4 steps with 2 images

SEE SOLUTIONCheck out a sample Q&A here
Blurred answer
Recommended textbooks for you
Computer Networking: A Top-Down Approach (7th Edi…
Computer Networking: A Top-Down Approach (7th Edi…
Computer Engineering
ISBN:
9780133594140
Author:
James Kurose, Keith Ross
Publisher:
PEARSON
Computer Organization and Design MIPS Edition, Fi…
Computer Organization and Design MIPS Edition, Fi…
Computer Engineering
ISBN:
9780124077263
Author:
David A. Patterson, John L. Hennessy
Publisher:
Elsevier Science
Network+ Guide to Networks (MindTap Course List)
Network+ Guide to Networks (MindTap Course List)
Computer Engineering
ISBN:
9781337569330
Author:
Jill West, Tamara Dean, Jean Andrews
Publisher:
Cengage Learning
Concepts of Database Management
Concepts of Database Management
Computer Engineering
ISBN:
9781337093422
Author:
Joy L. Starks, Philip J. Pratt, Mary Z. Last
Publisher:
Cengage Learning
Prelude to Programming
Prelude to Programming
Computer Engineering
ISBN:
9780133750423
Author:
VENIT, Stewart
Publisher:
Pearson Education
Sc Business Data Communications and Networking, T…
Sc Business Data Communications and Networking, T…
Computer Engineering
ISBN:
9781119368830
Author:
FITZGERALD
Publisher:
WILEY
SEE MORE TEXTBOOKS