armazenar estoque em uma matriz
Publicado por NewLinuxer 13/12/2005
[ Hits: 6.240 ]
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.
Visualizador de imagem Pascal/Lazarus
Nenhum comentário foi encontrado.
Como gerar qualquer emoji ou símbolo unicode a partir do seu teclado
Instalar e Configurar o Slackware Linux em 2025
Como configurar os repositórios do apt no Debian 12 em 2025
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Muitas dificuldades ao instalar distro Linux em Notebook Sony Vaio PCG-6131L (VPCEA24FM)
Slackpkg+ (Slackpkg Plus) está de volta!
Como dividir duas janelas igualmente e lado-a-lado na sua tela
Configurando o Conky para iniciar corretamente no sistema
3 configurações básicas que podem melhorar muito a sua edição pelo editor nano
Erro de segmentação «Segmentation fault (core dumped)» ao retornar obj... (7)
Comando find na Utilização em Servidor de Backup. (0)
Instalar debian testing (13) "por cima" do debian 12 (4)
Pedagogia no brasil não passa de alfabetização por m4sturbação mental (0)
Minha rede tem um espaço invisível que não dá pra digitar o nome da re... (0)