vendas de uma empresa em matriz

Publicado por NewLinuxer 13/12/2005

[ Hits: 4.081 ]

Download exerc04.pas




uma matriz 5x4 recebe as vendas de cinco vendedores durante quatro semanas e no final mostre a venda total de cada vendedor, de cada semana, e a venda total do mes.

  



Esconder código-fonte

PROGRAM EXERCICIO4;

USES CRT;

VAR
  MATRIZ: ARRAY[1..5,1..4] OF INTEGER;
  LINHA, COLUNA, TOTAL: INTEGER;
  MES: ARRAY[1..5] OF INTEGER;
  SEMANA: ARRAY[1..4] OF INTEGER;

BEGIN
  CLRSCR;

  FOR LINHA:=1 TO 5 DO
    SEMANA[LINHA]:=0;

  FOR COLUNA:=1 TO 4 DO
    MES[COLUNA]:=0;

  TOTAL:=0;

  FOR LINHA:=1 TO 5 DO
  BEGIN
    FOR COLUNA:=1 TO 4 DO
    BEGIN
      WRITE('VENDAS DO VENDEDOR ',LINHA,', NA SEMANA ',COLUNA,': ');
      READLN(MATRIZ[LINHA,COLUNA]);

      MES[LINHA]:=MES[LINHA]+MATRIZ[LINHA,COLUNA];
      SEMANA[COLUNA]:=SEMANA[COLUNA]+MATRIZ[LINHA,COLUNA];

    END;

    WRITELN;

  END;

  CLRSCR;

  FOR LINHA:=1 TO 5 DO
    WRITELN('AS VENDAS MENSAIS DO VENDEDOR ', LINHA,' SOMARAM: ',MES[LINHA]);

  WRITELN;

  FOR COLUNA:=1 TO 4 DO
    WRITELN('AS VENDAS DA SEMANA ',COLUNA,' SOAMRAM: ',SEMANA[COLUNA]);

  FOR LINHA:= 1 TO 5 DO
    TOTAL:= TOTAL + MES[LINHA];

  WRITELN;
  WRITELN('AS VENDAS TOTAIS NO MES SOMARAM: ',TOTAL);

  READKEY;

END.

Scripts recomendados

Cadastro de Passagens Aéreas

soma de números pares

Tocador de vídeo no Lazarus (Delphi 7 para Linux).

equação de 2º grau

Crivo de Eratóstenes Simples em Ada 95


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts