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.

• Download exerc04.pas
• Enviar nova versão

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.

mais um modelo de programa com vetor

média dos numeros informados em posiçoes pares em um vetor

Existência de triângulo, em Pascal

Calculadora De Decimo Terceiro Salário feita no Lazarus (Delphi 7 para Linux)

Jogo Sudoku em Pascal

Nenhum comentário foi encontrado.