Algoritmos em visualg

[Itamar.Oliveira 0]

Boa noite estou tendo dificuldade em dois exercícios propostos pelo meu professor, os demais eu consegui desenvolver, mas estes abaixo estão me dando canseira.

1 - Escrever um algoritmo que lê uma matriz M(6,6) e calcula as somas das partes hachuradas. Escrever

a matriz M e as somas calculadas.

2 - Escrever um algoritmo que lê um vetor G(13) que é o gabarito de um teste de loteria esportiva,

contendo os valores 1(coluna 1), 2(coluna 2) e 3(coluna do meio). Ler, a seguir, para cada apostador, o

número de seu cartão e um vetor Resposta R(13). Verificar para cada apostador o número de acertos e

escrever o número do apostador e seu número de acertos. Se tiver 13 acertos, acrescentar a mensagem:

"GANHADOR, PARABÉNS".

Agradeço desde já.

 

O nº 2 está dando erro no inicio

 

algoritmo "loteria"

var

g: vetor [1..13] de inteiro

r: vetor [1..13] de inteiro

i,acertos :inteiro

inicio

// ler gabarito

para i de 1 ate 13 faca

g <- 0

enquanto (g < 1 ou g > 3) faca

escreval ("Digite o gabarito da linha: ", i)

leia (g)

fimenquanto

fimpara

escreval ("Digite o numero do cartao: ")

leia (numcartao)

para i de 1 ate 13 faca

r <- 0

enquanto (r < 1 ou r > 3) faca

escreval ("Digite a opção marcada para a linha: ", i)

leia (r)

fimenquanto

fimpara

acertos <- 0

para i de 1 ate 13 faca

se (r = g) entao

acertos <- acertos + 1

fimse

fimpara

se (acertos = 13) entao

escreval ("GANHADOR, PARABENS")

senao

escreval ("Você teve ", acertos, " acertos")

fimse

fimalgoritmo

[Letícia Alvarez 0]

algoritmo "RESPOSTA certa"
// Função :
// Autor :
// Data :
// Seção de Declarações
var
g: vetor [1..13] de inteiro
r: vetor [1..13] de inteiro
i,acertos :inteiro
numcartao: inteiro
inicio
// Seção de Comandos
para i de 1 ate 13 faca
g <- 0
enquanto (g< 1) ou (g>3) faca
escreval ("Digite o gabarito da linha: ", i)
leia(g)
fimenquanto
fimpara

escreval ("Digite o numero do cartao: ")
leia (numcartao)
para i de 1 ate 13 faca
r <- 0
enquanto (r<1) ou (r>3) faca
escreval ("Digite a opção marcada para a linha: ", i)
leia(r)
fimenquanto
fimpara

acertos <- 0
para i de 1 ate 13 faca
se (r = g) entao
acertos <- acertos + 1
fimse
fimpara

se (acertos = 13) entao
escreval ("GANHADOR, PARABENS")
senao
escreval ("Você teve ", acertos, " acertos")
fimse
fimalgoritmo

[Sergio Cavalcante 6]

quest 1

 

algoritmo "matriz 6X6"

// Função :

// Autor :

// Data : 23/05/2014

// Seção de Declarações

var

hachura:vetor[1..6,1..6] de inteiro

i,j,soma:inteiro

inicio

para i de 1 ate 6 faca

para j de 1 ate 6 faca

hachura[i,j]<-0

fimpara

fimpara

para i de 1 ate 6 faca

para j de 1 ate 6-i faca

hachura[i,j]<-RANDI(9) //aqui os numeros são adicionados aleatoriamente

soma<-soma+hachura[i,j] //graças ao randi

fimpara

fimpara

para i de 1 ate 6 faca

para j de 1 ate 6 faca

Escreva(hachura[i,j])

fimpara

Escreval

fimpara

escreval("A soma e :",soma)

fimalgoritmo

[Sergio Cavalcante 6]

algoritmo "ajuda"

// Data : 24/05/2014

// Seção de Declarações

//Autor:Sergio Cavalcante

var

coluna1:vetor[1..4] de inteiro

coluna2:vetor[1..4] de inteiro

coluna3:vetor[1..4] de inteiro

i,J,Cartela,soma:inteiro

inicio

// ler gabarito

n <- 4

para i de 1 ate n faca

Escreva(" Digite o gabarito da loteria 1 coluna : ")

leia (coluna1)

fimpara

limpatela

para i de 1 ate n faca

Escreva(" Digite o gabarito da loteria 2 coluna : ")

leia (coluna2)

fimpara

limpatela

para i de 1 ate n faca

Escreva(" Digite o gabarito da loteria 3 coluna: ")

leia (coluna3)

fimpara

limpatela

Escreval("-coluna1--coluna2-coluna3---")

para i de 1 ate n faca

Escreval("| ",coluna1, " ",coluna2, " ",coluna3)

fimpara

Escreval("---------------------------------------")

Escreval(" Jose informe o numero de sua cartela: ")

leia(Cartela)

para i de 1 ate n faca

se Cartela=coluna1entao

soma<-soma+1

se Cartela=coluna2entao

soma<-soma+1

se Cartela=coluna3entao

soma<-soma+1

fimse

fimse

fimse

fimpara

se (soma=12) entao

Escreval("parabens jose você e um sortudo acertou : ",soma )

senao

Escreval("Jose voce acertou: ",soma)

fimse

fimalgoritmo

EU FIZ COM 12 VÊ SE ISSO TE DA UMA LUZ ..............CASO CONSIGA DE OUTRA MANEIRA FAVOR POSTAR AQUI AGRADEÇO POR CONHECIMENTO