This is about fortran, can you please find if there is any error of all statemen

Question

This is about fortran, can you please find if there is any error of all statement

•Multiple variables and strings can be displayed with one write statement.

•For example, using the previous declarations,

write (*,*) "Number 1 = ", num1, "Number 2 = ", num2

•This code segment produces the output:

Number 1 =           20 Number 2 =           50

•The information inside the quotes is displayed as is, including capitalization and any spelling errors.

•The type used for output conversion is the type of the variable.

real :: pi = 3.14159

write (*,*) "pi = ", pi

Produces:

pi =    3.14159012

•A read statement is used to assign values provided by input.

•For example, given the variables

integer :: ans1, ans2

    then

read (*,*) ans1

    will place the number entered by the user on the keyboard into the
    memory location specified by the variable ans1.

•The first asterisk specifies the input will be from the default input device, the keyboard.

•The second “*” means specifies default input format, reading the information in 'free format‘ being specified by the input data variable type.

The free format allows the Fortran compiler to determine the appropriate format for the information being read

Example of area

•Calculating the area of a circle.

•The program will input the radius, calculate the circle area, and display the result.

Program circle

! Program to calculate the area of a circle

! Declare variables

   implicit none

   real :: radius, area

   real, parameter :: pi = 3.14159

! Display initial header and blank line

   write (*,*) "Circle Area Calculation"

   write (*,*)

! Prompt for and read the radius

   write (*,*) "Enter Circle Radius"

   read (*,*) radius

! Calculate the circle area

   area = pi * radius**2

! Display result

   write (*,*) "Circle Area: ", area

end program circle

! Calculate a cylinder surface given the input radius and height.

program AreaCylinder

! Declare variables and constants: constants=pi, variables=radius and height

implicit none    ! Requires all variables to be declared

    real :: radius, height, area

    real, parameter :: pi = 3.141592653589793

! Display initial header, prompt (radius, height)

    write (*,*) “Calculate surface area of a cylinder."

    write (*,*)

    write (*,*) “Input the radius and the height.”

    read (*,*) radius, height

! Calculate the surface area of a cylinder.

    area = 2 * pi * (radius**2 + radius*height)

! Write all the values to the screen.

    write (*,*) "radius=", radius,"height=", height, &

        "area=", area

end program AreaCylinder

Explanation / Answer

Both the programs are fine. For Cylinder you are calculating the total surface area.

Please check whether total surface area is required or curved surface area is required.

Related Questions

Navigate

• Browse (All)
• Browse T
• Subjects

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.