calculo de vendas
Publicado por NewLinuxer 13/12/2005
[ Hits: 4.387 ]
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.
Editor de texto em Pascal/Lazarus
Cáculo de Fatorial, utilizando-se de Repeat - Until
mais um modelo de programa com vetor
cadastro de multiplos clientes com registro
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
Linux é a solução para o fim do Windows10? (3)
Assinador JNLP do Site Portal da Nota Fiscal Eletrônica (0)
Programa fora de escala na tela do pc (29)









