Contabilizar o numero de cestas realizadas por um time - Visualg

[policarpo 0]

Construa um algoritmo que possibilite contabilizar o numero de cestas realizadas por um time qualquer em uma partida de basquete conforme as seguintes condições :
sempre que ocorrer uma cesta durante a partida o algoritmo deve solicitar que seja digitado o numero da camisa do jogador e quantos pontos a cesta feita pelo mesmo valeu (2 ou 3)

a) a quantidade de pontos que cada jogador fez durante a partida

B) qual o numero de jogador que foi o cestinha da partida

 

 

 

Pessoal estou com bastante dificuldade em resolver esse algoritmo, por favor, pessoa ajuda de vcs para conseguir chegar a uma solução.

Abaixo deixo o que já fiz até agora... Meu problema é em conseguir contabilizar as cesta de acordo com a camisa do jogador, e mostrar o resultado agrupado, de acordo com a camisa..

 

 

 

 

algoritmo "numero-de-cestas"

// Função :

// Autor : Guilherme Policarpo

// Data : 06/06/2014

// Seção de Declarações

var

//Vetores

camisa: vetor[1..200] de inteiro

pontos: vetor[1..200] de inteiro

somacamisa: vetor[1..200] de inteiro //No Basquete, o nº das camisas vão de 00 a 99//

camisas: vetor[1..200] de inteiro

//Inteiros

menu, i, x, y, cont : inteiro

//Caracteres

aguarda : caracter

inicio

// Seção de Comandos

i <- 1

//Menu//

repita

escreval("================ PARTIDA EM ANDAMENTO ==============")

escreval(" ")

escreval(" [1] - Cadastrar Cesta")

escreval(" [0] - Sair")

escreval(" ")

escreval("======================== xx ========================")

escreval(" ")

escreva("Digite a opção desejada: ")

leia(menu)

escreval(" ")

enquanto (menu < 0) ou (menu > 1) faca

escreva("Erro! Digite um valor entre 0 e 1: ") //Mensagem de erro enquanto usuário digitar nº diferente de 1 ou 0//

leia(menu)

fimenquanto

limpatela

//Menu//

//Cadastro de Cestas//

se(menu = 1) entao

escreval("================ CADASTRO DE CESTAS ================")

escreval(" ")

escreva("Nº DA CAMISA DO JOGADOR: ")

leia(camisa)

escreva("QUANTIDADE DE PONTOS: ")

leia(pontos)

escreval(" ")

escreval("======================== xx ========================")

i <- i + 1

escreval(" ")

escreval("Pressione [Enter] para continuar")

leia(aguarda)

limpatela

fimse

ate(menu = 0)

// i é o numero de cestas

para x de 0 ate 99 faca

para y de 1 ate i faca

se x = camisa[y] entao

somacamisa[y] <- somacamisa[y] + pontos[y]

posicaocamisa[y] <- y

cont <- cont + 1

fimse

fimpara

fimpara

para y de 1 ate cont faca

escreval("Camisa ",camisas[y],": ",somacamisa[y]," pontos")

fimpara

fimalgoritmo

[Sergio Cavalcante 6]

algoritmo "Sergio cavalcante"

// Função :

// Autor :

// Data : 10/06/2014

// Seção de Declarações

var

gol:caracter

i,camisa,quant_cesta,soma,pontos:inteiro

inicio

Escreval("Jogador_____Camisa")

Escreval("[X] [X] ")

Escreval("paulo--------20")

Escreval("Francisco----33")

Escreval("Carlos-------44")

Escreva("Foi feito um gol sim ou não: ")

leia(gol)

se (gol= "não")entao

Escreva("finalizado ")

fimse

interrompa

se (gol = "Sim")entao

Escreva("Informe o nº da camisa: ")

leia(camisa)

fimse

escolha camisa

caso 20

Escreval("O jogador da camisa de nº",camisa," é paulo")

Escreva("Informe quantas cesta: ")

leia(quant_cesta)

para i de 1 ate quant_cesta faca

Escreva("Informe quantos pontos na " ,i," º cesta/: ")

leia(pontos)

soma<-soma+pontos

fimpara

Escreval(" total de pontos :",soma)

fimescolha

fimalgoritmo

vê se isso pode te dar uma luz

[policarpo 0]

Sim cara, ajudou bastante.

vou implementar e posto o resultado assim q terminar

 

Obrigado.