calculo de vendas
Publicado por NewLinuxer 13/12/2005
[ Hits: 4.298 ]
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.
Achar o maior e o menor valor inserido pelo usuario
Script que verifica se um número é primo ou não
programa pra somar e tirar média
Existência de triângulo, em Pascal
cadastro de multiplos clientes com registro
Nenhum comentário foi encontrado.
Como aprovar Pull Requests em seu repositório Github via linha de comando
Como gerar um podcast a partir de um livro em PDF
Automatizando digitação de códigos 2FA no browser
Resolver problemas de Internet
Como compartilhar a tela do Ubuntu com uma Smart TV (LG, Samsung, etc.)
Resolvendo o erro "libQt6Widgets.so.6: cannot open shared object file" no Linux
Como instalar protetores de tela (Debian e derivados)
Conheça a 4Devs, caixa de ferramentas online para desenvolvedores
Como converter um vídeo MP4 para um GIF para publicar no README.md do seu repositório Github
Driver de rede realtek 8821ce bugado (1)
Problemas de compartilhame... de impressora no Ubuntu 24.04 (3)