armazenar estoque em uma matriz
Publicado por NewLinuxer 13/12/2005
[ Hits: 6.298 ]
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.
Editor de texto em Pascal/Lazarus
Crivo de Eratóstenes Simples em Ada 95
Nenhum coment�rio foi encontrado.
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Como instalar o Google Cloud CLI no Ubuntu/Debian
Mantenha seu Sistema Leve e Rápido com a Limpeza do APT!
Procurando vídeos de YouTube pelo terminal e assistindo via mpv (2025)
Instalação de Ubuntu em SSD (interno) como se fosse um dispositivo ext... (1)
Mikrotik não abre o webmail-segur... da Locaweb (10)