calculo de vendas

Publicado por NewLinuxer 13/12/2005

[ Hits: 4.209 ]

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

Calculadora Empresarial Lazarus

Script Tabuada

Script Copa do Mundo

Media dos Alunos

Array de números aleatórios não-repetidos de um intervalo em Pascal


  

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