17/01/2019, 16:58
program mainricercamassimominimo
integer:: n
real:: a(100),h(100),c,l
read*, n
call minimo (n,a,c)
call massimo (n,h,l)
print*,c,l
end
subroutine minimo (m,b,f)
real:: b(m)
integer:: i,m
do i=1,m
read*, b(i)
num=b(i)
if(num<f) then
f=num
end if
end do
end
subroutine massimo (m,b,f)
real:: b(m)
integer:: i,m
do i=1,m
read*, b(i)
num=b(i)
if(num>f) then
f=num
end if
end do
end
18/01/2019, 14:50
18/01/2019, 16:30
program mainricercamassimominimo
!ricerca del massimo e del minimo in un vettore di lunghezza 'n'!
!dichiarazione delle variabili!
integer:: n
real:: a(100),p,k
!lunghezza vettore!
print*, 'ordine vettore'
read*, n
!lettura degli elementi !
do i=1,n
read*, a(i)
end do
!Si fissano due elementi generici per confrontarli!
p=a(1)
k=a(n)
!procedura!
call minimo (n,a,p)
call massimo (n,a,k)
!stampa!
print*, 'minimo vettore e massimo vettore'
print*, 'min=',p,'max=',k
end
subroutine massimo (m,b,z)
integer:: i
real:: b(m)
do i=1,m-1
if(b(i)>z) then
z=b(i)
end if
end do
end
subroutine minimo (m,b,z)
integer:: i
real:: b(m)
do i=1,m-1
if(b(i)<z) then
z=b(i)
end if
end do
end
18/01/2019, 17:51
Skuola.net News è una testata giornalistica iscritta al Registro degli Operatori della Comunicazione.
Registrazione: n° 20792 del 23/12/2010.
©2000—
Skuola Network s.r.l. Tutti i diritti riservati. — P.I. 10404470014.
Powered by phpBB © phpBB Group - Privacy policy - Cookie privacy
phpBB Mobile / SEO by Artodia.