armazenar estoque em uma matriz
Publicado por NewLinuxer 13/12/2005
[ Hits: 6.211 ]
neste programa uma matriz recebe o estoque de cada porduto (são 4) em cada armazem (são 4), depois mostre que armazem tem maior estoque do produto 2 menor estoque do produto 4 e a quantidade de itens em cada armazem.
PROGRAM EXERCICIO6; USES CRT; VAR MATRIZ: ARRAY [1..5,1..4] OF INTEGER; LINHA,COLUNA, MAIOR, MENOR: INTEGER; ARMAZEM: ARRAY [1..4] OF INTEGER; BEGIN CLRSCR; FOR LINHA:= 1 TO 4 DO ARMAZEM[LINHA]:=0; FOR COLUNA:=1 TO 4 DO BEGIN FOR LINHA:=1 TO 4 DO BEGIN WRITE('INFORME A QUANTIDADE DE PRODUTOS N§',COLUNA,', NO ARMAZEM ',LINHA,': '); READLN(MATRIZ[LINHA,COLUNA]); ARMAZEM[LINHA]:=ARMAZEM[LINHA]+MATRIZ[LINHA,COLUNA]; END; WRITE('INFORME O VALOR DO PRODUTO ',COLUNA,': '); READLN(MATRIZ[5,COLUNA]); WRITELN; END; CLRSCR; MAIOR:=MATRIZ[1,2]; MENOR:=MATRIZ[1,4]; FOR LINHA:=1 TO 4 DO BEGIN WRITELN('O ARMAZEM ',LINHA,' POSSUI ',ARMAZEM[LINHA],' ITENS ARMAZENADOS'); IF MAIOR < MATRIZ[LINHA,2] THEN MAIOR:= MATRIZ[LINHA,2]; IF MENOR > MATRIZ[LINHA,4] THEN MENOR:= MATRIZ[LINHA,4]; END; WRITELN; WRITE('O ARMAZEM '); FOR LINHA:=1 TO 4 DO IF MAIOR = MATRIZ[LINHA,2] THEN WRITE(LINHA,', '); WRITELN('POSSUI O MAIOR ESTOQUE DO PRODUTO 2, COM ',MAIOR,' PRODUTOS'); WRITE('O ARMAZEM '); FOR LINHA:=1 TO 4 DO IF MENOR = MATRIZ[LINHA,4] THEN WRITE(LINHA,', '); WRITELN('POSSUI O MENOR ESTOQUE DO PRODUTO 4, COM ',MENOR,' PRODUTOS'); READKEY; END.
controle de notas de um aluno com registro e array
Array de números aleatórios não-repetidos de um intervalo em Pascal
média dos numeros informados em posiçoes pares em um vetor
Nenhum comentário foi encontrado.
Título: Descobrindo o IP externo da VPN no Linux
Armazenando a senha de sua carteira Bitcoin de forma segura no Linux
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Encontre seus arquivos facilmente com o Drill
Mouse Logitech MX Ergo Advanced Wireless Trackball no Linux
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Microfone detectado, sem som. (1)
Por que o fedora dita as regras no linux? (6)
Facebook classifica Linux como 'ameaça à segurança cibernética.... (3)