armazenar estoque em uma matriz

Publicado por NewLinuxer 13/12/2005

[ Hits: 5.868 ]

Download exerc06.pas




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.

  



Esconder código-fonte

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.

Scripts recomendados

Coleta de dados de alunos em Pascal

dizer se o aluno passou ou nao

Calculadora de décimo terceiro no Lazarus

Script Tabuada

Mcd de una serie de numeros


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts