Exercício Resolvido, Algoritmo de Pagamento de Permissão

Exercício Resolvido, Algoritmo de Pagamento de Permissão

Linguagem de Programação, Pascal

Construa  um algoritmo  para realizar  o pagamento  de comissão  de um  vendedor de  peças,  levando-se  em  consideração  que  sua  comissão será de 5% do total da venda. Para isto, o programa deve ler os seguintes dados de entrada: identificação do vendedor, código da peça, preço unitário da peça, quantidade vendida.

program CalculoComissao;

uses Crt;

//Variaveis
var   preco, comissao :real;
      cod:integer;
      id:string [255];
      i: integer;           //Inteiro Contador

//Procedures
procedure desenhelinha;       //Desenha linha
          begin
               for i:=0 to 79 do
                   write('-');

          end;

procedure espaco;                    //pula linha
          begin
               for i:=0 to 79 do
               write(' ');
          end;

//Programa Principal
begin

  
             desenhelinha;
             espaco;

             writeln('Seja Bem-Vindo ao Programa de Calculo de comissao de Vendas');
             writeln('Insira seu nome');
             readln (id);
             writeln('Olá ',id,'sua identificação foi realizada com sucesso');
             writeln('Insira o codigo da peca');
             readln (cod);
             writeln('Insira o preco da peca');
             readln (preco);

             comissao:=preco+0.05;

             espaco;
             writeln('Vendedor ',id);
             writeln('Peca ',cod);
             writeln('Preco ', preco:3:2,' reais');
             writeln('Comissao  ', comissao:3:2, ' reais ');
             espaco;
             desenhelinha;


             writeln('Pressione enter para realizar um novo calculo de comissao ...');

             readkey;      //Espera de entrada de usuário
             clrscr;       //Limpa Tela
 

end.

The Schoolpedia 

2013