vendas de uma empresa em matriz
Publicado por NewLinuxer 13/12/2005
[ Hits: 4.280 ]
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.
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.
cadastro de um cliente com registro
Metodo de Ordenacion : Burbuja
Calculadora Empresarial (Baseada nas fórmulas de Logística)Lazarus
Nenhum comentário foi encontrado.
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
É normal não gostar de KDE? (9)
Linux é a solução para o fim do Windows10? (2)
Problemas com Driver NVIDIA (4)









