calculo de vendas
Publicado por NewLinuxer 13/12/2005
[ Hits: 4.370 ]
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.
Crivo de Eratóstenes Simples em Ada 95
Contador de números (Pascal) - efeito Matrix
Nenhum comentário foi encontrado.
IA local no bolso, novo visual no Raspberry Pi OS e mais destaques do software livre
Kernel turbinado, compatibilidade em alta e debate sobre sustentabilidade: o dia no mundo Linux
Kernel turbinado e GNOME 49 dominam o giro do dia no mundo Linux
Novidades Linux: Kernel 6.17, distros em ebulição e segurança em foco
Kernel ganha novos linters Rust e distros avançam com recursos de IA
Adicionando o repositório backports no Debian 13 Trixie
Como definir um IP estático no Linux Debian
O que você está ouvindo agora? [2] (223)
Como vencer a procrastinação? (3)
Alguém que utilize o Warsaw do BB no Ubuntu 24.04 [RESOLVIDO] (7)
Orientação para instalar o Warsaw - módulo de proteção do Banco do Bra... (9)