vetor

[Turquetti 0]

Peço que me ajudem a entender o exercicio nao sei como terminar ou esta tudo errado????

algoritmo "TI Artesanatos"
// Função :Uma pequena loja de artesanato possui apenas um vendedor e comercializa diferentes tipos de objetos. o vendedor
// recebe, mensalmente, salario de r$400,00, acrecido de 5% do valor total de suas vendas. O valor unitario dos objetos
// deve ser informado e armazenado num vetor; a quantidade de objetos deve ficar em outro vetor; mas na mesma posição
// Crie um algoritimo que receba os preços e quantidade vendida, depois determine e mostre:
// *quantidade vendida,valor unitario e valor total de cada objeto.
// *O valor geral das vendas e valor da comissão a ser paga ao vendedor
// *o valor do objeto mais vendido e sua posição no vetor.
// Autor :Emerson  Turquetti
// Data : 20/05/2012
// Seção de Declarações

var
nome: caractere
salario: real
vendas: real
comissao: real
salarioFinal: real


inicio
// Seção de Comandos
escreval("<><><><><> TI Artesanatos  <><><><><>")
escreva(">>> Digite o nome do vendedor: ")
leia(nome)
escreva(">>> Digite o salário: ")
leia(salario)
escreva(">>> Informe a quantidade de vendas deste no mês: ")
leia(vendas)
// Cálculo da comissão e salário final
comissao <- 0.05 * vendas
salarioFinal <- salario + comissao
limpatela
escreval(">>>>>>>>>> RESUMO <<<<<<<<<<")
escreval("-- Nome: ",nome)
escreval("-- Salário: ",salario)
escreval("-- Salário Final (salário + comissão): ",salarioFinal)
escreval(">>>>>>>>>><><><><><<<<<<<<<<")
fimalgoritmo

[quitZAUMMM 18]

Vamos lá pergunta inicial, já sabe "brincar" com vetores?

 

[]s

[Turquetti 0]

Tive 2 aulas do basico, mas o loco do professor passo esse livro de cara.

e to perdido,li varias apostilas e quase todo o forum e nao concegui pega nada pra começar a resolver essa questão.

[quitZAUMMM 18]

Bom basicamente, você precisa ter uma noçaum sobre estruturas de repetição e índices, o miolo do exercício eh algo assim:

//vamos definir que o vetor terá 10 posições, pois no enunciado não diz de onde virá o tamanho dele...
Inteiro vetorV[10], vetorQ[10];
Inteiro i;

Para i de 0 até 9 faça //geralmente vetores começam do índice '0', verifique se o visualg começa do '0' ou do '1'..
   Leia (vetorV[i]);
   Leia (vetorQ[i]);
Fim_para

 

bom como sempre digo não uso visualg, então a lógica é essa só dar uma olhada..

 

[]s

[Turquetti 0]

vlw pela dica,queria que desse mais uma pra resolver como eu faço pra soma os objetos e quantidades,visto que na sequencia escrita so faz isso no ultimo declarado.

 

var
valuni,quantven: vetor [1..2] de real
i: inteiro
total: real
valoruni:real
comissao:real
inicio
escreva ("------TI artesanatos-------")
escreval
i<-1
Para i de 1 ate 2 faca
  escreva ("Digite o valor do objeto: ")
  Leia (valuni[i])
 escreva ("Digite a quantidade vendida: ")
  leia (quantven[i])
fimpara
limpatela
Para i de 1 ate 2 faca
 total <- (valuni[i] * quantven[i])
 valoruni <- (valuni[i])
 comissao <-(total * 0.05 + 400)
 fimpara
 escreval ("o valor total dos objetos vendido é : ",total )
 escreval ("o valor unitario de cada objeto é : ",valoruni )
 escreval ("A salario total do vendedor é: ",comissao)

fimalgoritmo

[quitZAUMMM 18]

vamos la:

 

você tem q fazer algo assim para calcular o total:

total <- total + (valuni[i] * quantven[i])

 

e a comissao tem q ser fora do loop.

 

[]s

[Turquetti 0]

vlw a dica novamente, bom cheguei num resultado quase esperado, mas se alguem puder deixar mais simples, agradeço.

var
valuni1,valuni2,quantven1,quantven2: vetor [1..1] de real
total,total1,total2,valoruni1,valoruni2,quantvend1,comissao: real
i: inteiro
inicio
escreva ("------TI artesanatos-------")
escreval
i<-1
para i de 1 ate 1 faca
  escreva ("Digite o valor do primeiro objeto: ")
  Leia (valuni1[i])
  escreva ("Digite a quantidade vendida: ")
  leia (quantven1[i])
  escreva ("Digite o valor do segundo objeto: ")
  Leia (valuni2[i])
  escreva ("Digite a quantidade vendida: ")
  leia (quantven2[i])
    limpatela
  para i de 1 ate 1 faca
     quantvend1 <- ( quantven1[i] + quantven2[i])
     valoruni1 <-(valuni1[i])
     valoruni2 <- (valuni2[i])
     total <- ((valuni1[i]*quantven1[i]) + ( valuni2[i] * quantven2[i]))
     total1 <-((valuni1[i])*(quantven1[i]))
     total2 <- (( valuni2[i] * quantven2[i]))
     comissao <-( total *  0.05 + 400)

     escreval ("o quantidade vendida dos objetos foi: ",quantvend1 )
     escreval ("o valor unitario de cada objeto é :Obj1",valoruni1,",Obj2",valoruni2)
     escreval ("o valor total de cada objetos vendido é :obj1",total1,",obj2",total2 )
     escreval ("o valor total dos objetos vendido é : ",total )
     escreval ("A Comissão total  do vendedor é : ",comissao)

  se (valuni1[i]) > (valuni2[i])  entao
     escreval   ("o valor do objetos mais vendido é : ",valuni1[i] )
  senao
     escreval  ("o valor do objetos mais vendido é : ",valuni2[i] )

  fimse
fimpara
fimalgoritmo

[quitZAUMMM 18]

esses escrevas ai eh td fora do 'para'

 

[]s