Advertisement
Guest User

JOGO DE BASQUETE

a guest
Oct 22nd, 2019
138
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.04 KB | None | 0 0
  1. Var
  2. cesta,totalA,totalB:inteiro
  3. equipe,status:caractere
  4. Inicio
  5. //Total de A e B começam com 0.
  6. totalA<-0
  7. totalB<-0
  8.  
  9. escreval("Qual equipe vai jogar agora?")
  10. leia(equipe)
  11. escreval("Qual o tipo de cesta (1,2 ou 3)?")
  12. leia(cesta)
  13.  
  14. enquanto cesta<>0 faca
  15. se(equipe="A") e (cesta=1) entao
  16. totalA<-totalA+1
  17. fimse
  18.  
  19. se(equipe="A") e (cesta=2) entao
  20. totalA<-totalA+2
  21. fimse
  22.  
  23. se(equipe="A") e (cesta=3) entao
  24. totalA<-totalA+3
  25. fimse
  26.  
  27. // A PARTIR DAQUI É A EQUIPE B.
  28.  
  29. se(equipe="B") e (cesta=1) entao
  30. totalB<-totalB+1
  31. fimse
  32.  
  33. se(equipe="B") e (cesta=2) entao
  34. totalB<-totalB+2
  35. fimse
  36.  
  37. se(equipe="B") e (cesta=3) entao
  38. totalB<-totalB+3
  39. fimse
  40.  
  41. escreval("O jogo encerrou(s/n)?")
  42. leia(status)
  43.  
  44. se(status="s") entao
  45. cesta<-0
  46. senao
  47. escreval("Qual equipe vai jogar agora?")
  48. leia(equipe)
  49. escreval("Qual o tipo de cesta (1,2 ou 3)?")
  50. leia(cesta)
  51. fimse
  52.  
  53. fimenquanto // Aqui finaliza o Enquanto.
  54.  
  55. escreval("Total de pontos da equipe A: ",totalA)
  56. escreval("Total de pontos da equipe B: ",totalB)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement