calculo de vendas

Publicado por NewLinuxer 13/12/2005

[ Hits: 4.205 ]

Download exerc13.pas




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.

  



Esconder código-fonte

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.

Scripts recomendados

Tratamentos de Erros

controle de notas de um aluno com registro e array

Números perfeitos

Calculo de la Moda

Calculadora Empresarial (Baseada nas fórmulas de Logística)Lazarus


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts