Algoritmo Jogo

[Edjane 0]

Fiz esse algoritmo e não estou conseguindo fazer a soma das transpostas :x... já tentei de n e n maneiras, mas...nem dá certo :S... alguém pode me ajudar? ;)

 

algoritmo "semnome"

// Função :

// Autor :

// Data : 29/6/2009

// Seção de Declarações

var

A,B:vetor[1..5,1..5] de inteiro

AT,BT: vetor[1..5,1..5] de inteiro

soma,somat: vetor[1..5,1..5] de inteiro

opcao: caractere

i,j,n: inteiro

procedimento MatrizA

inicio

 

para i de 1 ate n faca

para j de 1 ate n faca

leia(A[i,j])

fimpara

fimpara

limpatela

para i de 1 ate n faca

para j de 1 ate n faca

escreva(A[i,j])

fimpara

escreval(" ")

fimpara

fimprocedimento

 

procedimento MatrizB

inicio

para i de 1 ate n faca

para j de 1 ate n faca

leia(B[i,j])

fimpara

fimpara

limpatela

para i de 1 ate n faca

para j de 1 ate n faca

escreva(B[i,j])

fimpara

escreval(" ")

fimpara

fimprocedimento

 

 

procedimento somaM

inicio

MatrizA

MatrizB

para i de 1 ate n faca

para j de 1 ate n faca

soma[i,j]<-A[i,j]+B[i,j]

fimpara

fimpara

para i de 1 ate n faca

para j de 1 ate n faca

escreva(soma[i,j])

fimpara

escreval(" ")

fimpara

fimprocedimento

 

 

procedimento somaTransposta

inicio

para i de 1 ate n faca

para j de 1 ate n faca

leia(A[i,j])

fimpara

fimpara

para i de 1 ate n faca

para j de 1 ate n faca

escreva(A[i,j])

fimpara

escreval(" ")

fimpara

escreval(" ")

escreval(" ")

para i de 1 ate n faca

para j de 1 ate n faca

leia(B[i,j])

fimpara

fimpara

para i de 1 ate n faca

para j de 1 ate n faca

escreva(B[i,j])

fimpara

escreval(" ")

fimpara

escreval(" ")

escreval(" ")

para i de 1 ate n faca

para j de 1 ate n faca

somat[i,j]<-A[i,j]+B[j,i]

fimpara

fimpara

para i de 1 ate n faca

para j de 1 ate n faca

escreva(somat[i,j])

fimpara

escreval(" ")

fimpara

 

fimprocedimento

 

procedimento tela

inicio

escreval("Escolha as opções a,b,c,d ou e")

escreval("-----------------------------")

escreval("|a)Matriz A-----------------|")

escreval("|b)Matriz B-----------------|")

escreval("|C)Soma---------------------|")

escreval("|d)Soma das transpostas-----|")

escreval("|e)Sair---------------------|")

escreval("-----------------------------")

fimprocedimento

 

 

procedimento erro

inicio

 

escreval("|-----------------------------------------------------|")

escreval("| Você escolheu uma opção inválida, escolha a, b ou c |")

escreval("|-----------------------------------------------------|")

 

fimprocedimento

 

 

inicio

// Seção de Comandos

n<-3

repita

tela

leia(opcao)

escolha opcao

 

caso "a"

limpatela

MatrizA

caso "b"

limpatela

MatrizB

timer 5000

limpatela

timer 0

caso "c"

somaM

timer 5000

limpatela

timer 0

caso "d"

limpatela

somaTransposta //chamada do procedimento obrigado

timer 5000

limpatela

timer 0

outrocaso

limpatela

erro //chamada do procedimento erro

timer 5000

limpatela

timer 0

fimescolha

//chamada do procedimento resultado

ate (opcao="e")

 

fimalgoritmo

[quitZAUMMM 18]

oq da errado n tem como eu testar aki.

 

[]s

[Edjane 0]

Tá.. :/

 

olha... como faço v1 ler valores em caracteres?

 

se v1=soma entao

certas <- certas + 1

fimse

[quitZAUMMM 18]

num é soh declarar como caracter e ler?

[Edjane 0]

nops... :x

 

visualg tem essa frescurinha... ;)

 

eu teria que ler de uma outra forma... mas, melhor criar "caso" e chamar o procedimento erro

ehsuaheuhusheuhsuheuhs

 

mais simples :P