03/01/2019, 19:09
program provaesame
! Il presente algoritmo sviluppa una procedura data una matrice A di N righe e M colonne di numeri interi, e P un numeri intero, restituisca il valore s=0 se esitono P elementi consecutivi uguale a zero, invece restituisce il valore s=1 se non esistono P elementi consecutivi uguali a zero.
integer :: i,j,n,m,p,f,a,b
real:: x(100,100)
print*, 'inserire nella sequenza ordine matrice n-righe, m-colonne, valore numerico di p-elementi uguale a zero'
read*, n,m,p
if(p>m) then
s=0
else
print*, 'inserire elementi della matrice'
do i=1,n
do j=1,m
read*, x(i,j)
end do
end do
a=0
b=0
do i=1,n
read*, b
do j=1,m
if (x(i,j)/=0) then
s=0
else
do
f=j
do f=j,j+p
if ((x,j) == 0) then
a=a+1
end do
end do
if (f == j+p) exit
end do
end if
b=a
end do
b=b+1
end do
b=s
end if
print*, s
end
05/01/2019, 15:22
05/01/2019, 16:31
06/01/2019, 01:59
06/01/2019, 10:59
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.