vendas de uma empresa em matriz

Publicado por NewLinuxer 13/12/2005

[ Hits: 4.083 ]

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

soma da diagonal principal de uma matriz

programa pra carregear duas matrizes e achar o maior

Calculo do Fatorial Utilizando-se de for

Soma dois Valores e exibe o resultado

Função Fatorial Recursiva 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