Matrizes e Motores
algoritmo()
{
// declaracao das variaveis
matriz cadeia mes[12];
matriz inteiro ProducaoMensal[12:2];
matriz real CustoLucroProducao [2:2];
matriz real CustoLucroMensal [12:2];
matriz real CustoLucroAnual [2];
inteiro i,j,k;
// inicializacao
mes[1] := "janeiro";
mes[2] := "fevereiro";
mes[3] := "marco";
mes[4] := "abril";
mes[5] := "maio";
mes[6] := "junho";
mes[7] := "julho";
mes[8] := "agosto";
mes[9] := "setembro";
mes[10] := "outubro";
mes[11] := "novembro";
mes[12] := "dezembro";
// lendo os dados da producao mensal
para ( i := 1 ate 12 passo 1 )
{
para ( j := 1 ate 2 passo 1 )
{
leia ( "informe a producao: ", ProducaoMensal[i,j] );
}
}
// lendo os dados do custo
para ( i := 1 ate 2 passo 1 )
{
para ( j := 1 ate 2 passo 1 )
{
leia ( "informe o custo/lucro do motor: ",
CustoLucro [i,j] );
}
}
// efetuando os calculos
para ( i := 1 ate 12 passo 1 )
{
para ( j := 1 ate 2 passo 1 )
{
para ( k := 1 ate 2 passo 1 )
{
CustoLucroMensal[i,j] := CustoLucroMensal[i,j] +
ProducaoMensal[i,k] * CustoLucroProducao[k,j];
}
}
}
}