Aula 21 - 04/07/11

1). Faça um programa que preencha dois valores de cinco elementos numéricos cada um e mostre o vetor resultante da multiplicaçao dos valores deste vetores.


algoritmo "Exercicio 1"

var
vet1 : vetor [1..5] de inteiro
vet2 : vetor [1..5] de inteiro
a,b,c:inteiro
multi:real
inicio
para a de 1 ate 5 faca
escreval ("Digite um número")
leia (vet1[a])
fimpara
escreval ("*******************************")
para b de 1 ate 5 faca
escreval ("Digite um número")
leia (vet2[b])
fimpara
para c de 1 ate 5 faca
multi <- vet1[c] * vet2[c]
escreval ("O resultado é: ",multi)
fimpara
fimalgoritmo



2) Uma pequena loja de artesanato possui apenas um vendedor e comercializa dez tipos de objetos. Ovendedor recebe, mensalmente, salário de R$ 400,00, acrescido de 5% do valor total de suas vendas. O valor unitário dos objetos deve ser informado e armazenado em uma matriz; a quantidade vendida de cada peça deve ficar na mesma matriz, em outra coluna.
Crie um programa que receba os preços e as quantidades vendidas e armazenando-os na matriz.
Depois determine e mostre

- um relatório contendo quantidade vendida , valor unitário e valor de cada objeto. Ao final deverá ser mostrado um valor geral das vendas e o valor da comissao que será paga ao vendedor

- o valor do objeto mais vendido e sua posiçao na matriz (mostre linha e coluna.Não se preocupe com empates).



algoritmo "Exercicio 2"

var
valor: vetor[1..10,1..2] de inteiro
valorotal,maior,maior1,comi,valorgeral,valortotal:real
a,b,c,d,f,linha,coluna:inteiro
inicio
para a de 1 ate 10 faca
          escreval ("Digite o valor do produto",a," : ")
          leia (valor[a,1])
          escreval ("Digite a quantidade vendida do produto",a," :")
          leia (valor[a,2])
          limpatela
fimpara
maior <- valor[1,2]
maior1 <- valor[1,1]
valorgeral <- 0
comi <- 0
para c de 1 ate 10 faca
     valortotal <- valor[c,1] * valor[c,2]
     valorgeral <- valorgeral + valortotal
     escreval ("Produto ",c)
       escreval ("A quantidade vendia foi de: ",valor[c,2])
       escreval ("O valor unitário do produto é: ",valor[c,1])
          se (maior < valor[c,2]) entao
          maior1 <- valor[c,1]
          linha <- c
          maior <- valor[c,2]
          fimse
fimpara
comi <- valorgeral * 0.05
escreval ("*******************************************************************")
escreval ("O valor geral das vendas é: ",valorgeral)
escreval ("A comissao que será paga ao vendedor é de: ",comi," .")
escreval ("O valor do produto mais vendido é: ",maior1)
escreval ("Sua posição na matriz é linha: ",linha," coluna: 2.")

fimalgoritmo



3)Faça um programa que preencha uma matriz 10x3 com as notas de dez alunos em tres provas. O programa deverá mostrar um relatório com o número dos alunos(número da linha) e a média do aluno nas 3 prova. Ao final do relatório, deverá mostrar a média geral de todos os alunos.



algoritmo "Exercicio 3"

var
notas: vetor [1..10,1..3] de inteiro
a,b,c,d:inteiro
mediatotal,media:real
inicio
para a de 1 ate 10 faca
     para b de 1 ate 3 faca
          escreval ("Digite a nota da",b," prova do aluno",a)
          leia(notas[a,b])
          se (b = 3) entao
          limpatela
          fimse
     fimpara
fimpara
mediatotal <- 0
para c de 1 ate 10 faca
media<- 0
     para d de 1 ate 1 faca
     media <- (notas[c,1] + notas[c,2] + notas[c,3]) / 3
     mediatotal <- mediatotal + notas[c,1] + notas[c,2] + notas[c,3]
     escreval ("Aluno: ",c," media das notas: ",media)
     fimpara
fimpara
mediatotal <- mediatotal / 30
escreval ("A media total dos 10 alunos é: ",mediatotal)
   
fimalgoritmo



Nesta aula foi feito exercícios da prova do ano passado, primeiro e terceiro exercicio não tive dificuldades, no segunda ja foi um pouco complicado, mais deu pra tirar as duvidas com o professor, o que podemos fazer é praticar.