Question: The code below is a FORTRAN 95 program (that works) that calculates the area and circumference of a circle. I need to add functions and

The code below is a FORTRAN 95 program (that works) that calculates the area and circumference of a circle. I need to add functions and subroutines to the code.

The code below is a FORTRAN 95 program (that works) that calculates

PROGRAM CIRCLE

REAL PI, C, R, A INTEGER O PI = 3.14

10 PRINT *, 'PLEASE CHOOSE ONE OF THE MENU OPTIONS:' PRINT *, '1. CALCULATE THE CIRCUMFERENCE OF A CIRCLE' PRINT *, '2. CALCULATE THE AREA OF A CIRCLE' PRINT *, '3. EXIT PROGRAM' WRITE(*,*) READ *, O IF (O == 1) THEN 20 PRINT *, 'ENTER THE RADIUS: ' READ *, R IF (R PROGRAM CIRCLE REAL PI, C, R, A INTEGER O PI = 3.14 10 20 30 PRINT *, PLEASE CHOOSE ONE OF THE MENU OPTIONS: PRINT *, '1. CALCULATE THE CIRCUMFERENCE OF A CIRCLE" PRINT *, *2. CALCULATE THE AREA OF A CIRCLE PRINT *, *3. EXIT PROGRAM WRITE (*, *) READ *, O IF (0 == 1) THEN PRINT * ENTER THE RADIUS: READ *, R IF (R = 0.0) THEN PRINT *, "NUMBER CANNOT BE NEGATIVE NOR O. PLEASE TRY AGAIN.' GOTO 20 END IF C = 2*PI*R PRINT *, *CIRCUMFERENCE = ", C WRITE (*, *) GOTO 10 ELSE IF (0 == 2) THEN PRINT *, 'ENTER THE RADIUS: 1 READ *, R IF (R

Step by Step Solution

There are 3 Steps involved in it

1 Expert Approved Answer

Step: 1 Unlock blur-text-image

Question Has Been Solved by an Expert!

Get step-by-step solutions from verified subject matter experts

Step: 2 Unlock

Step: 3 Unlock

Students Have Also Explored These Related Databases Questions!

Create an object to implement a circle class which allows the programming to store a circle object. The object should use the point class developed previously. You will be given the center point and...

***Please revise the following code. Do not copy previous answers, as they have resulted in errors. No input function, please use sys.argv*** Write a program and create the following functions:...

Assignment Name JavaScript Concepts III Assignment Filename lastname-circleArea.html (replace lastname with your last name). area.js Assignment Description This assignment demonstrates the following...

Here I have started the program but need help finishing: #include using namespace std; const double PI = 3.1416; const char CIRCLE = 'c'; const char SQUARE = 's'; const char RECTANGLE = 'r'; const...

// Program Id: CircleCalculator.cpp Starting File // Author: // Date: // Description: // This program demonstrates using a C++ Structure called Circle. // Using various functions, it prompts the user...

c++ program. we are NOT aloud to use break, continue or goto. thank you. source/content/17/Lab_7.pdf 1 / 2 90% + CS 161 Programming Lab 7 Problem Description For this assignment, you are to compute...

Cannot use break, continue or goto. we use #include using namespace std; format. thank you. 1 / 2 90% + 10 CS 161 Programming Lab 7 Problem Description For this assignment, you are to compute the...

Note: 1- Close Book and Notes Exam. 2- Assume any suitable value for missing data. Problem 1: A-Define only five of these terms: (15 Marks): (Right-of-way, Carpool, Peak hour, Grade Line, Balance...

Consider the Cobb-Douglas production function Q = 36 K 0.5 L 1.0 . a. Find the marginal product functions. b. Write equations for the MRTS and the output elasticities. c. The function coefficient is...

Question 1 IF you are going to borrow money in the future and want to hedge risk, you should enter an FRA in which you Recieve fixed, pay floating or recieve floating pay fixed

A comparative balance sheet for Halpern Corporation is presented below: Assets Accumulated depreciation Total assets Liabilities and Stockholder's Equity Accounts payable Bonds payable Common stock...

4. [From a legislator or a member of the city council] I want to see all the information we have on the new construction project, and I want it in my office in 1 hour. a. Thats none of your business....

2. [From a coworker] Im terribly afraid that the mistake I made in the Harris confirmation hearing means that the boss is going to transfer me to the end of the world. a. Thats stupid. He hates...

1. [From the head of your agency] Ive heard some disturbing rumors about the way you treat our clients. a. Thats ridiculous. b. You cant believe everything you hear. c. Could you please be more...