What will the following program output?
program question1 implicit none integer :: a, c, d real :: b, e, f a = 38/15 b = 38.0/15.0 c = (a*b)**3 d = 13.5/3*3 e = mod(c,d) f = 16**(0.25) print *, e, c, d, f, a**4, b stop end program question1
What does this program print?
program question2 implicit none real :: w, v, u integer :: z, y, x, m y = 17./5 v = 3**(2+4)/5 u = 1.1E1+1.1E-1 m = 1.2E1+0.000002E6 w = mod(m,y) print *, w print *, m , u print *, y, v stop end program question2
What will the following program print, given the input data below.
Program Question3 implicit none real :: I, J, K, L integer :: A, B, C interface ! You can ignore this subroutine THIS (U, V) ! interface section implicit none integer, intent(in out) :: U integer, intent(in) :: V end subroutine THIS subroutine THAT ( X,Y ) implicit none real, intent(in out) :: X real, intent(in) :: Y end subroutine THAT end interface ! ELF90 wants it ! ! Program begins ! A = 10 I = 0 B = 2 C = 4 K = 4.0 J = 4.0 L = 0.0 CALL THIS(B,C) CALL THAT(J,K) CALL THAT(L,3.0) PRINT *,A,B,C PRINT *,I,J,K,L Stop End Program Question3 ! ! End program, Start subs ! SUBROUTINE THIS (U,V) implicit none integer, intent(in out) :: U integer, intent(in) :: V integer :: A U = V**2 A = A+U+V RETURN END SUBROUTINE THIS SUBROUTINE THAT (X,Y) implicit none real, intent(in out) :: X real, intent(in) :: Y real :: I X= Y**3 I= I+X+Y RETURN END SUBROUTINE THAT
What does this program print?
Program Question4 implicit none integer :: i , j(100), k(100), a, b ,n read *,n do i = 1,n read * ,j(i), k(i) end do do i = 1, n-1 a=k(j(i)) b=k(j(i+1)) print *,i,a,b, (a+b) end do Stop End Program Question4 DATA : 6 3 15 5 12 6 18 1 10 2 14 4 16
What does this program print?
program test1 implicit none integer :: A, B l1: do a=8,19,4 l2: do b=1,3 if (mod(a,b) .ge. b/3) then if (a/4 .le. b+1) then print *, 'homer' else print *, 'marge' end if else print *, 'bart' end if end do l2 end do l1 stop end program test1
The results of an English test are many data records in the following format: Columns 1 - 20 Name Columns 21 - 22 Score - a 2 digit integer from 0 to 99 inclusive Write a FORTRAN 90 program to draw a bar graph like the following mock printout. The bar indicates the percentage of the students who falls in that category. The number after the bar is the actual number of students in that category. Your program should also produce a neat classlist of student names and marks - this can be printed before or after the bar chart. 10 20 30 40 50 60 70 80 90 100% . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 0 - 50 . * * 15 . 51 - 60 . * * * 30 . 61 - 70 . * * * * * * * * * * * 105 . 71 - 80 . * * * * * * * * * 90 . 81 - 90 . * * * * * 45 . 91 -100 . * * 15
.
WRITE your program, with Control Lines, neatly here:
(Use the back of pages if needed)