armazenar estoque em uma matriz
Publicado por NewLinuxer 13/12/2005
[ Hits: 6.350 ]
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.
programa para selecionar os números em posições impares em array de 19 espaços e calcular a media
encontrar o menor valor em um vetor
Coleta de dados de alunos em Pascal
Nenhum coment�rio foi encontrado.
Comparação entre os escalonadores BFQ e MQ-Deadline (acesso a disco) no Arch e Debian
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Como instalar o Telegram Desktop no Ubuntu 24.04
Overclocking Permanente para Drastic no Miyoo Mini Plus
Problemas de chaves (/usr/share/keyrings) no Debian
Converter os repositórios Debian para o novo formato com as chaves
Primeiras impressões do Debian 13 (8)
como resolver o problema de som do linux mint mate (4)