Vetor e matriz/ fortran

Disponível somente no TrabalhosFeitos
  • Páginas : 3 (744 palavras )
  • Download(s) : 0
  • Publicado : 7 de fevereiro de 2013
Ler documento completo
Amostra do texto
UNIVERSIDADE FEDERAL DO MANHÃO
EXERCÍCIO DE VETOR E MATRIZ – FORTRAN
vetor
1. Armazenar 10 nomes em um vetor NOME e imprimir uma listagem numerada.
character nome(10)
integer ido i=1,10,1
read (*,*) nome(i)
enddo
do i=1,10,1
write(*,*) i, "=", nome(i)
enddo
stop
end
2. Armazenar 15 números em um vetor NUM e imprimir umalistagem numerada contendo o número e uma das mensagens: PAR ou ÍMPAR.
integer num(1:15)
integer i
write (*,*) "entre com 15 n£meros"
do i=1,15,1
read(*,*) num(i)enddo
do i=1,15,1
if(mod(num(i),2)==0) then
write (*,*) num(i), "‚ par"
else
write(*,*) num(i), "‚ ¡mpar"
endif
enddo
stopend
3. Armazenar 8 números em um vetor X e imprimir todos os números. Multiplique todos os elementos com índice ímpar do vetor X por 10 e imprima o vetor final.
integer x(8), i
do i=1,8,1read(*,*) x(i)
enddo
do i=1,8,1
write(*,*) x(i)
enddo
write(*,*) " "
do i=1,8,1
if (mod(i,2).eq.1) then
x(i)=x(i)*10
endifwrite(*,*) x(i)
enddo
stop
end
4. Armazenar nome e salário de 20 pessoas. Calcular e armazenar o novo salário sabendo-se que o reajuste foi de 8%. Imprimir uma listagem numerada comnome e novo salário.
integer sali(20), i
real salf(20)
character*10 nome(20)
write (*,*) "entre com nome e sal rio"
do i=1,20,1
read (*,*) nome(i), sali(i)
enddo
do i=1,20,1
salf(i)=sali(i)*1.08
write (*,*) nome(i), salf(i)
enddo
stop
end
5. Ler um vetor X de 10 elementos e obter um vetorF cujos componentes são os fatoriais dos respectivos componentes de X.
integer X(10),fat(10),i,j
do i=1,10,1
read(*,*) X(i)
enddo
do i=1,10,1
fat(i)=1
do...
tracking img