quarta-feira, 18 de janeiro de 2012

Exercícios 6 e 7 da lista de variáveis compostas

Pessoal aqui estão os dois algoritmos:


algoritmo " Exercicio 7"
// Função :
// Autor :
// Data : 18/01/2012
// Seção de Declarações
var
numeros:vetor[0..49] de inteiro
i,np,p:inteiro
inicio
// Seção de Comandos
para i de 0 ate 49 faca
   //numeros[i]<-i*i*3+3*i-2
     leia (numeros[i])
   //escreval(numeros[i])
fimpara
escreval("Digite um numero!")
leia(np)
p<-0
para i de 0 ate 49 faca
   se np=numeros[i] entao
      p<-i
   fimse
fimpara
se p<>0 entao
   escreval("O elemento ",np," encontra-se na posição: ",p)
senao
   escreval("O elemento ",np," não foi encontrado no vetor.")
fimse

fimalgoritmo



algoritmo " Exercicio 6 "
// Função :
// Autor :
// Data : 18/01/2012
// Seção de Declarações
var  resposta: vetor[0..19] de literal
i,rs,rn:inteiro

inicio
// Seção de Comandos
para i de 0 ate 19 faca
   leia (resposta[i])
fimpara
escreval ("A 9ª pessoa respondeu ",resposta[8])
rs<-0
rn<-0
para i de 0 ate 9 faca
   se resposta[i]="sim" entao
      rs<-rs+1
   fimse
fimpara
para i de 10 ate 19 faca
   se resposta[i]="nao" entao
      rn<-rn+1
   fimse
fimpara
escreval("Respostas das 10 primeiras sim= ",rs)
escreval("Respostas das 10 últimas   não= ",rn)
se rs>rn entao
   escreval("A quantidade de respostas sim foi maior")
senao
   se rs<rn entao
     escreval("A quantidade de respostas Não foi maior")
   senao
     escreval("A quantidade de respostas sim e não foram iguais.")
   fimse
fimse
fimalgoritmo

2 comentários:

Obrigado por contribuir para melhorar este blog, deixe sua mensagem.
Forte Abraço