calculo de vendas

Publicado por NewLinuxer 13/12/2005

[ Hits: 4.298 ]

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

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


  

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