1. !lab 1(a) solution by <Ahmed Jaafari> program lab1_a implicit none real :: po
ID: 3782519 • Letter: 1
Question
1.
!lab 1(a) solution by <Ahmed Jaafari>
program lab1_a
implicit none
real :: powerSum, p_root
real :: i,j,k,u,v,w
integer :: p
print *, "lab 1(a) solution by <Ahmed Jaafari>"
print*, "enter real coordinates for two points (i,j,k),(u,v,w)"
read*
print *, "enter even positive integer value for exponent p"
read
print*, "First point is
print*, "Second point is
powerSum=
print*, "
p_root=
print *, "p_root is", p_root
end program lab1_a
2.
!lab 1(b) solution by < Ahmed Jaafari >
program lab1_b
implicit none
real :: x,val
print *, "lab 1(b) solution by <Ahmed Jaafari >"
print*, "enter real argument value"
read
print*,"
end program lab1_b
3.
program e2
implicit none
integer :: x=3,y=5,z=2
real :: a=3.5,b=8.0,c=2.0
x=3.0+2.0/5.0
y=y+x/z
b=3+y/z
a=a**2
b=b**(1/2)
c=c**(0.5)
print *, "OUTPUT FROM PROGRAM E2"
print *, "x=", x
print *, "y=", y
print *, "z=", z
print *, "a=", a
print *, "b=", b
print *, "c=", c
end program e2
Explanation / Answer
You have't mention any question. Please specify what you want.You can comment the question.
Related Questions
Navigate
Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.