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.

• Download exerc13.pas
• Enviar nova versão

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.

encontrar o menor valor em um vetor

Calculadora completa com porcentagem(Lazarus)

Tocador de Vídeo (Lazarus)

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

Calculadora Empresarial feita no Lazarus (Delphi 7 para Linux)

Nenhum comentário foi encontrado.