vendas de uma empresa em matriz
Publicado por NewLinuxer 13/12/2005
[ Hits: 4.057 ]
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.
Calculadora completa com porcentagem(Lazarus)
validando um triângulo e classificando-o como equilátero, isoceles ou escaleno.
Visualizador de imagem Pascal/Lazarus
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (6)
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
O mínimo que você precisa saber sobre o terminal (parte 2)
O mínimo que você precisa saber sobre o terminal (parte 1)
Como iniciar uma máquina virtual do VirtualBox automaticamente no boot do LUbuntu 18 LTS
Como deixar as abas do Firefox mais fininhas
Mudar o gerenciador de login (GDM para SDDM)
"Tentando" fazer com que programas rodem no Wayland e no X11
Windows XP rodando no Linux (1)
Google Chrome não para de escrever no disco (3)
Notebook samsung 550xda não reconhece mais SSD (1)