Advertisement
moises33m

Multiplicação de vetores em portugol

Nov 15th, 2013
2,932
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Per 0.95 KB | None | 0 0
  1. algoritmo "Multiplicaçao de vetores"
  2. // Função :
  3. // Autor : Moises fernandes barbosa
  4. // Data : 11/11/2013
  5. // moises33m@gmail.com
  6. // Seção de Declarações
  7.  
  8. //5)Escreva um algoritmo que leia 10 elementos para um vetor “VETA” e 10 para
  9. //um vetor “VETB”.O algoritmo deverá efetuar a multiplicação dos elementos
  10. //para um vetor “VETC”.
  11.  
  12. var
  13. VETA, VETB, VETC: vetor[1..2] de inteiro
  14. i: inteiro
  15. inicio
  16. // Seção de Comandos
  17. para i de 1 ate 2 faca
  18. escreval("Digite a nota do aluno " , i,":")
  19. leia(VETA[i])
  20. fimpara
  21. para i de 1 ate 2 faca
  22. escreval(" A nota do aluno ",i," é: ",VETA[i])
  23. fimpara
  24. escreval("")
  25.  
  26. para i de 1 ate 2 faca
  27. escreval("Digite a nota do aluno " , i,":")
  28. leia(VETB[i])
  29. fimpara
  30. para i de 1 ate 2 faca
  31. escreval(" A nota do aluno ",i," é: ",VETB[i])
  32. fimpara
  33. escreval
  34. para i de 1 ate 2 faca
  35. escreval(" A mult do 1º com o 2º na pos",i, "")
  36. VETC[i]<- VETA[i] * VETB[i]
  37. escreval(VETC[i])
  38. fimpara
  39. fimalgoritmo
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement