Trabalho Individual - A2

Prévia do material em texto

Algoritmo 
Trabalho Individual – A2 
 
 Aluno: Aline de Alcantara Figueiredo 
Matrícula: 20141106055 
Opção 2 – Parte 1 
Escrever um algoritmo ou programa envolvendo uma aplicação simples (por exemplo: 
cálculo de média, volume, densidade, IMC, etc...) que contenha uma estrutura de repetição 
(do) – (veja exemplos nos slides da aula 5 e 6) e vetor em computação (exemplos no 
slides da aula 6) e um programa ou algoritmo com uma sub-rotina (exemplo na aula 7). 
 
Algoritmo 
Algoritmo temperatura_média 
declare temperatura(5), tempertura_total 
inteiro i 
temperatura1=40 
temperatura2=50 
temperatura3=60 
temperatura4=20 
temperatura5=70 
temperatura_total=0 
para i de 1 até 5 faça 
temperatura_total<-temperatura_total+temperatura(i) 
fim para 
escreva “a temperatura total é”, temperatura _total 
e senão (tempertura_total>=100) então 
escreva erro. temperatura total acima da média 
ou 
escreva a temperatura elevou 
fim se 
fim programa 
 
Fortran 
program temperatura_media 
real temperatura(5), tempertura_total 
integer i 
temperatura1=40 
temperatura2=50 
temperatura3=60 
temperatura4=20 
temperatura5=70 
temperatura_total=0 
do i=1,5 
tempertura_total = tempertura_total+temperatura(i) 
end do 
write(*,*)"a temperatura total é", tempertura_total 
if (tempertura_total.gt.100) then 
write (*,*) "erro. temperatura total acima da média" 
else 
write(*,*) " a temperatura elevou " 
end if 
end program 
 
 
 
Opção 2 – Parte 2 
Algoritmo 
Algoritmo temperatura_media 
declare temperatura1, temperatura2, temperatura3, temperatura4, temperatura5, m, média 
inteiro i 
temperatura1=40 
temperatura2=50 
temperatura3=60 
temperatura4=20 
temperatura5=70 
cálculo média (temperatura1, temperatura2, temperatura3, temperatura4, temperatura5, m) 
escreva” temperatura média é igual a ", m 
fim 
 
sub-rotina da média (temperatura1, temperatura2, temperatura3, temperatura4, 
temperatura5, m) 
declare temperatura1, temperatura2, temperatura3, temperatura4, temperatura5, m 
m=(temperatura1+temperatura2+ temperatura3+temperatura4+temperatura5)/5 
fim 
 
 
Fortran 
program temperatura_media 
real temperatura1, temperatura2, temperatura3, temperatura4, temperatura5, m 
temperatura1=40 
temperatura2=50 
temperatura3=60 
temperatura4=20 
temperatura5=70 
call media(temperatura1, temperatura2, temperatura3, temperatura4, temperatura5, m) 
write(*,*) "temperatura média igual a", m 
end 
 
 
subroutine media(temperatura1,temperatura2,temperatura3, temperatura4,temperatura5,m) 
real temperatura1, temperatura2, temperatura3, temperatura4, temperatura5, m 
m=(temperatura1+temperatura2+temperatura3+temperatura4+temperatura5)/5 
end