calculo de vendas
Publicado por NewLinuxer 13/12/2005
[ Hits: 4.320 ]
nao tem um fim muito pratico, porém é um bom exemplo pra estudo, nele são armezenados em dois vetores o valor da peça vendida por cada um e a quantidade, no fim é mostrado quanto cada um vendeu, e quantas peças foram vendidas no total.
Program exercicio13; uses crt; Var pecas : array[1..10] of integer; valor : array[1..10] of real; contador,soma: integer; Begin clrscr; For contador := 1 To 10 do begin write('Informe a quantidade de pecas do vendedor ',contador:2,': '); readln(pecas[contador]); write('Informe o valor da peca do vendedor ',contador:2,': '); readln (valor[contador]); writeln end; soma:=0; clrscr; For contador := 1 to 10 do soma:= soma+pecas[contador]; writeln('O total de pecas vendidas por todos vendedores juntos foi: ',soma); writeln; For contador := 1 to 10 do writeln('O total das vendas do vendedor ',contador:2,' foi: R$ ',pecas[contador]* valor[contador]:0:2); Readkey; end.
Visualizador de imagem Pascal/Lazarus
Calculo do Fatorial Utilizando-se de for
calculo de porcentagem em vetores
Exemplo de for que mostra 6 números em ordem crescente
Nenhum coment�rio foi encontrado.
Customizar a Instalação do Linux Debian com Preseed
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Sem espaço na partição home (9)
Possível Migração de windows para linux ???? (pc da empresa) (0)