Question

Preciso de ajuda para converter esse código que esta em visualg para pascal:


Elabore um programa que leia as vendas de cinco produtos em três lojas diferentes e em dois meses consecutivos. O programa deverá armazenar essas vendas em duas matrizes 5 x 3. O bimestre é uma matriz 5 x 3, resultado da soma das duas matrizes anteriores. Deverá ainda calcular e mostrar:


- As vendas de cada produto em cada loja do bimestre;

- A maior venda do bimestre;

- O total vendido por loja no bimestre;

- O total vendido de cada produto no bimestre.


Var

Mes1:vetor [1..5,1..3] de real

Mes2:vetor [1..5,1..3] de real

Bim :vetor [1..5,1..3] de real

Tot_produto,tot_loja,maior,tot_produto1,t ot_produto2,tot_produto3,tot_prod uto4,tot_produto5:real

L,c:inteiro

Inicio

// seção de comandos

Para l:=1 ate 5 faca

para c:=1 ate 3 faca

escreval( " digite elemento " , l , c , " da matriz" )

leia(mes1[l,c])

fimpara

Fimpara

Para l:=1 ate 5 faca

para c:=1 ate 3 faca

escreval( " digite elemento " , l , c , " da matriz" )

leia(mes2[l,c])

fimpara

Fimpara

Para l:=1 ate 5 faca

para c:=1 ate 3 faca

bim[l,c]<-mes1[l,c]+mes2[l,c]

se (l=1) e (c=1) entao

maior<-bim[l,c]

senao

se bim[l,c]>maior entao

maior<-(bim[l,c])

fimse

fimse

fimpara

Fimpara

Para c:=1 ate 3 faca

para l:=1 ate 5 faca

tot_loja<-tot_loja+bim[l,c]

fimpara

Fimpara

Para l:=1 ate 5 faca

para c:=1 ate 3 faca

tot_produto1:=tot_produto1+bim[l,c]

tot_produto2:=tot_produto2+bim[l,c]

tot_produto3:=tot_produto3+bim[l,c]

tot_produto4:=tot_produto4+bim[l,c]

tot_produto5:=tot_produto5+bim[l,c]

fimpara

Fimpara

Escreval( " o maior valor de venda é = ", maior)

Escreval( " o total de venda do bimestre é = " , tot_loja)

Escreval( " o total vendido do produto 1 é = ", tot_produto1)

Escreval( " o total vendido do produto 2 é = ", tot_produto2)

Escreval( " o total vendido do produto 3 é = ", tot_produto3)

Escreval( " o total vendido do produto 4 é = ", tot_produto4)

Escreval( " o total vendido do produto 5 é = ", tot_produto5)

Fimalgoritmo

Answer 1

Resposta:

mina eu mim perdi no raciocínio quando cheguei na metade é muita coisa esqueci até qual era a resposta ñ pode simplifica ñ? pra ficar mas fácil