Gabarito da prova de recuperação de algoritmos T-20081

09Jun08

algoritmo “Q1ProvaRecuperacao”

var
n1,n2:real
inicio
// Seção de Comandos

leia(n1,n2)
escreval(”a soma é “, n1+n2)

se (n2<>0) entao
escreval(”a divisao é “, n1/n2)
fimse

escreval(”o quadrado de n1 é “, n1*n1)
escreval(”o quadrado de n2 é “, n2*n2)

fimalgoritmo

—————————————————

algoritmo “q2provarecuperacao”

var
n:inteiro
inicio

leia(n)

se (n % 3 = ) entao
escreval (”divisivel por 3″)
fimse

se (n % 17 = ) entao
escreval (”divisivel por 17″)
fimse

fimalgoritmo

—————————

algoritmo “q3provaRecuperacao”

var
i, maior, menor , n :inteiro
inicio

leia(n)
maior<-n
menor<-n

para i de 2 ate 100 faca
leia(n)
se (n > maior) entao
maior<-n
fimse
se (n < menor) entao
menor<-n
fimse
fimpara
escreval(”o menor é “, menor)
escreval(”o maior é “, maior)

fimalgoritmo

———————-

algoritmo “q4provaRecuperacao”

var
nomes: vetor [1..15] de literal
i: inteiro
busca:literal
inicio
//cadastro no vetor
para i de 1 ate 15 faca
leia(nomes[i])
fimpara

leia(busca)

para i de 1 ate 15 faca
se (busca=nomes[i]) entao
escreval(”nome encontrado”)

fimse

fimpara

fimalgoritmo

Filed under: Algoritmos   |  Leave a Comment