Eu estou com alguns problemas pra fazer um programa que tenha um registro dentro de uma matriz com duas dimensões no VisualG. Eu consigo fazer registro com um vetor de boa, o problema só surge quando eu preciso de dois índices pra definir os elementos.
Segue o código do meu programa. O programa dá erro na linha que eu peço pra ler Automoveis.MAutomovel[i,j]
Algoritmo "MovimentacaoDeLocacao"
Tipo
Clientela = registro
Codigo : inteiro
NCliente : caractere
Soma : real
fimregistro
Carros = registro
MAutomovel : caractere
ValorLoc : real
fimregistro
Var
// Seção de Declarações das variáveis
Clientes : Vetor [1..100] de Clientela
Automoveis : Vetor [1..100,1..100] de Carros
i, j , n , p , class : inteiro
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
escreval ("Digite o número de clientes a serem cadastrados :")
leia (n)
para i de 1 ate n faca
Clientes.Codigo[i] := i + 1000
escreval ("Digite o nome do cliente :")
leia (Clientes.NCliente[i])
escreval ("Digite o número de automóveis que o cliente pretende cadastrar :")
leia (p)
para j de 1 ate p faca
escreval ("Digite o nome da marca/modelo do ", j ,"° automóvel ")
leia (Automoveis.MAutomovel[i,j])
escreval ("Selecione a classificação do automóvel")
escreval ("1 - Básico (R$ 80,00) ")
escreval ("2 - Intermediário (R$ 150,00) ")
escreval ("3 - Executivo (R$ 300,00) ")
leia (class)
escolha class
caso 1
Automoveis.ValorLoc[i,j] := 80,00
caso 2
Automoveis.ValorLoc[i,j] := 150,00
caso 3
Automoveis.ValorLoc[i,j] := 300,00
outrocaso
escreval ("Opção inválida!")
j := j - 1
fimescolha
Clientes.Soma[i] := Clientes.Soma[i] + Automoveis.ValorLoc[i,j]
limpatela
fimpara
limpatela
fimpara
escreval ("CLIENTES CADASTRADOS")
escreval (" ")
para i de 1 ate n faca
escreval ("Código : C", Clientes.Codigo[i])
escreval ("Nome Do Cliente : ", Clientes.NCliente[i])
para j de 1 ate p faca
escreval ("Marca/Modelo do ", j ,"° Automóvel : ", Automoveis.MAutomovel[i,j])
escolha Automoveis.ValorLoc[i,j]
caso 80,00
escreval ("Descrição Da Classificação : Básico ")
escreval ("Valor Da Locação : R$ 80,00 ", )
caso 150,00
escreval ("Descrição Da Classificação : Intermediário ")
escreval ("Valor Da Locação : R$ 150,00 ", )
caso 300,00
escreval ("Descrição Da Classificação : Executivo ")
escreval ("Valor Da Locação : R$ 300,00 ", )
fimescolha
fimpara
escreval ("Valor Total Da Locação : R$ ", Clientes.Soma[i])
fimpara
Fimalgoritmo
É para um trabalho semestral que eu preciso entregar em no máximo duas semanas, então eu preciso resolver esse problema o mais rápido possível. Conto com a ajuda de vocês e agradeço desde já pela atenção.