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.

encontrar o maior e o menor valor em um vetor

Calculadora de décimo terceiro salário(Lazarus)

Criptografador(Conceito criptografia)Lazarus

Média e soma de números

Cronômetro feito no Lazarus(Delphi 7 para Linux)

Nenhum comentário foi encontrado.