calculo de vendas
Publicado por NewLinuxer 13/12/2005
[ Hits: 4.263 ]
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.
Exemplo de for que mostra 6 números em ordem crescente
cadastro de multiplos clientes com registro
Nenhum comentário foi encontrado.
Instalar e Configurar o Slackware Linux em 2025
Como configurar os repositórios do apt no Debian 12 em 2025
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Configurando o Conky para iniciar corretamente no sistema
3 configurações básicas que podem melhorar muito a sua edição pelo editor nano
Como colorir os logs do terminal com ccze
Instalação Microsoft Edge no Linux Mint 22
Como configurar posicionamento e movimento de janelas no Lubuntu (Openbox) com atalhos de teclado
Linux Mint limitando rede a 20Mbps (4)
Linux Mint não conecta Wi-Fi sem fio (15)
Backup de arquivos no Mint (2)
Por que programação de baixo nível e tão comum no Linux do que no wind... (2)