1 program p1b 2 implicit none 3 real(8) a = 1d0, b 4 do 5 6 7 8 9 10 11 a=a/2 b=a+1d0 if (b1d0) cycle a=2*a exit end do print '(4X, A, ES23.16e3)', 'a = ', a 12 end program p1b

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
icon
Related questions
Question
100%

What does this program compute?
What is the value of a at the end of the program?
Would you change anything in this program? Why/how, or why not?

1 program p1b
2
implicit none
3
real(8)
a = 1d0, b
4
do
5
6
7
8
9
10
11
a=a/2
b=a+1d0
if (b1d0) cycle
a=2*a
exit
end do
print '(4X, A, ES23.16e3)', 'a = ', a
12 end program p1b
Transcribed Image Text:1 program p1b 2 implicit none 3 real(8) a = 1d0, b 4 do 5 6 7 8 9 10 11 a=a/2 b=a+1d0 if (b1d0) cycle a=2*a exit end do print '(4X, A, ES23.16e3)', 'a = ', a 12 end program p1b
Expert Solution
steps

Step by step

Solved in 2 steps

Blurred answer
Recommended textbooks for you
Database System Concepts
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)
Starting Out with Python (4th Edition)
Computer Science
ISBN:
9780134444321
Author:
Tony Gaddis
Publisher:
PEARSON
Digital Fundamentals (11th Edition)
Digital Fundamentals (11th Edition)
Computer Science
ISBN:
9780132737968
Author:
Thomas L. Floyd
Publisher:
PEARSON
C How to Program (8th Edition)
C How to Program (8th Edition)
Computer Science
ISBN:
9780133976892
Author:
Paul J. Deitel, Harvey Deitel
Publisher:
PEARSON
Database Systems: Design, Implementation, & Manag…
Database Systems: Design, Implementation, & Manag…
Computer Science
ISBN:
9781337627900
Author:
Carlos Coronel, Steven Morris
Publisher:
Cengage Learning
Programmable Logic Controllers
Programmable Logic Controllers
Computer Science
ISBN:
9780073373843
Author:
Frank D. Petruzella
Publisher:
McGraw-Hill Education