Ir ao conteúdo
  • Cadastre-se
pedrolagecs

Pascal Preciso de uma moral em 2 exercicios de pascal!

Posts recomendados

Olá, estou precisando de uma ajuda meio urgente nesses dois exercicios de matrizes em pascal:

 

1) Faça um programa que:

•receba o preço de 10 produtos e armazene-os em um vetor;

•receba a quantidade estocada de cada um desses produtos em cinco armazéns diferentes, utilizando uma matriz 5 x 10.

Calcule e mostre:

•a quantidade de produtos estocados em cada um dos armazéns;

•a quantidade de cada um dos produtos estocados em todos os armazéns juntos;

•o preço do produto que possui maior estoque em um único armazém;

•o menor estoque armazenado de cada produto;

•o custo de cada armazém.

 

2)Faça um programa que leia dois vetores (A e B )de cinco posições de números inteiros. O programa deve, então, subtrair o primeiro elemento de A do último de B, acumulando o valor, subtrair o segundo elemento de A do penúltimo de B, acumulando o valor e assim por diante. Mostre o resultado da soma de todas as subtrações.

 

Valeu!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

@pedrolagecs, poste o que já conseguiu fazer e em qual parte está com dúvidas.

 

adicionado 14 minutos depois

Esboço sobre a declaração das variáveis e um teste de uso:

 

{
receba o preço de 10 produtos e armazene-os em um vetor;
receba a quantidade estocada de cada um desses produtos em cinco armazéns diferentes, utilizando uma matriz 5 x 10.
Calcule e mostre:
a quantidade de produtos estocados em cada um dos armazéns;
a quantidade de cada um dos produtos estocados em todos os armazéns juntos;
o preço do produto que possui maior estoque em um único armazém;
o menor estoque armazenado de cada produto;
o custo de cada armazém.
}
{$CODEPAGE UTF8} //uma forma de tentar conseguir imprimir palavras acentuadas
program Exercicio01;
uses
  CRT;
var
  vet_precoProduto: array [1..10] of real;
  vet_armazem_qtdProduto: array [1..5, 1..10] of integer;
  
  codProduto, codArmazem: integer;
  
BEGIN
codProduto := 5;
vet_precoProduto[codProduto] := 4.90;
codArmazem := 2;
vet_armazem_qtdProduto[codArmazem, codProduto] := 10;
codArmazem := 4;
vet_armazem_qtdProduto[codArmazem, codProduto] := 13;

codProduto := 5;
writeln('Produto ', codProduto:1, ': R$', vet_precoProduto[codProduto]:1:2);

codArmazem := 2;
writeln('Armazém ', codArmazem:1, ': ', vet_armazem_qtdProduto[codArmazem, codProduto], ' (unidades)');

codArmazem := 4;
writeln('Armazém ', codArmazem:1, ': ', vet_armazem_qtdProduto[codArmazem, codProduto], ' (unidades)');

ReadKey();
END.

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Aprenda_a_Ler_Resistores_e_Capacitores-capa-3d-newsletter.jpg

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!