armazenar estoque em uma matriz
Publicado por NewLinuxer 13/12/2005
[ Hits: 6.145 ]
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 lê nome (básico) - Pascal para iniciantes
programa pra somar e tirar média
Calculo do Fatorial Utilizando-se de for
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (6)
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
O mínimo que você precisa saber sobre o terminal (parte 2)
O mínimo que você precisa saber sobre o terminal (parte 1)
Como iniciar uma máquina virtual do VirtualBox automaticamente no boot do LUbuntu 18 LTS
Como deixar as abas do Firefox mais fininhas
Mudar o gerenciador de login (GDM para SDDM)
"Tentando" fazer com que programas rodem no Wayland e no X11
Google Chrome não para de escrever no disco (2)
Notebook samsung 550xda não reconhece mais SSD (1)
Isso ta me cansando [RESOLVIDO] (4)
Inicio de uso do Mint 32bits (19)
Notebook instalado com Linux Debian de fábrica dando problema (3)