16/03/2019, 13:54
program main
integer:: i,j,n,m,k,x
real:: a(100,100),f
logical:: v,w
v= .true.
w= .false.
print*, "ordine matrice"
read*, n,m
print*, "inserire elementnti"
do i=1,n
do j=1,m
read*, a(i,j)
end do
end do
p=2
k=0
do i=1,n
j=0
do
j=j+1
f=a(i,j)
if (mod(f,p)==0) then
x=1
else
x=0
end if
if (j==m .or. x==1) exit
end do
k=k+x
print*, "k" ,k
end do
if (k==n) then
print*, v
else
print*, w
end if
end
program main
integer:: i,j,n,m,t,ld
real:: b(100,100)
logical:: v,w
v=.true.
w=.false.
print*, "ordine matrice nxm"
read*, n,m
print*, "inserire elementi matrice"
do i=1,n
do j=1,m
read*, b(i,j)
end do
end do
call pari(b,100,100,t)
if (t==n) then
print*, v
else
print*, w
end if
end
subroutine pari(b,ld,m,u)
integer:: i,j,n,m,ld,k,x,u
real:: b(ld,m),f
P=2
K=0
do i=1,n
j=0
do
j=j+1
f=b(i,j)
if (mod(f,p)==0) then
x=1
else
x=0
end if
if (j==m .or. x==1) exit
end do
k=k+x
end do
u=k
return
end
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.