Exemplo (19)

Matrizes: Lucro de Motores

algoritmo()

{

// declaracao das variaveis

matriz cadeia mes[12];

matriz inteiro QuantMotor1[12];

matriz inteiro QuantMotor2[12];

real LucroMensalMotor1;

real LucroMensalMotor2;

real CustoMensalMotor1;

real CustoMensalMotor2;

real LucroAnualMotor1;

real LucroAnualMotor2;

real CustoAnualMotor1;

real CustoAnualMotor2;

real LucroMotor1;

real LucroMotor2;

real CustoMotor1;

real CustoMotor2;

real LucroTotal;

real CustoTotal;

inteiro i;

// 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";

leia ( "informe o custo do motor 1: ", CustoMotor1 );

leia ( "informe o lucro do motor 1:" , LucroMotor1 );

i := 1;

enquanto ( i <= 12 )

{

escreva ( mes[i] );

leia ( ":quantidade produzida: ", QuantMotor1 [i] );

i := i + 1;

}

leia ( "informe o custo do motor 2: ", CustoMotor2 );

leia ( "informe o lucro do motor 2:" , LucroMotor2 );

i := 1;

enquanto ( i <= 12 )

{

escreva ( mes[i] );

leia ( ":quantidade produzida: ", QuantMotor2 [i] );

i := i + 1;

}

escreva ( "resultado mensal" );

i := 1;

enquanto ( i <= 12 )

{

LucroMensalMotor1 := QuantMotor1[i] * LucroMotor1;

LucroMensalMotor2 := QuantMotor2[i] * LucroMotor2;

CustoMensalMotor1 := QuantMotor1[i] * CustoMotor1;

CustoMensalMotor2 := QuantMotor2[i] * CustoMotor2;

escreva ( "Lucro mensal: ", LucroMensalMotor1,LucroMensalMotor2);

escreva ( "Custo mensal: ", CustoMensalMotor1,CustoMensalMotor2);

LucroAnualMotor1 := LucroAnualMotor1 + LucroMensalMotor1;

LucroAnualMotor2 := LucroAnualMotor2 + LucroMensalMotor2;

CustoAnualMotor1 := CustoAnualMotor1 + CustoMensalMotor1;

CustoAnualMotor2 := CustoAnualMotor2 + CustoMensalMotor2;

i := i + 1;

}

LucroTotal := LucroAnualMotor1 + LucroAnualMotor2;

CustoTotal := CustoAnualMotor1 + CustoAnualMotor1;

escreva ( "o lucro anual do motor 1 e: ", LucroAnualMotor1 );

escreva ( "o custo anual do motor 1 e: ", CustoAnualMotor1 );

escreva ( "o lucro anual do motor 2 e: ", LucroAnualMotor2 );

escreva ( "o custo anual do motor 2 e: ", CustoAnualMotor2 );

escreva ( "o lucro total: ", LucroTotal );

escreva ( "o custo total: ", CustoTotal );

}