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

Exercício Resolvido, Algoritmo de Calculo de Idade em Dias

Exercício Resolvidos, Algoritmo de Cálculo de Idade em dias

Linguagem de Programação, Pascal 

Faça um algoritmo  que leia a idade de uma pessoa expressa em anos,meses e dias e mostre-a expressa apenas em dias. Obs: Considere cada mês com 30 dias e o ano com 365 dias.

  

program CalculodeIdadeemDias;

uses Crt;

var   idade, anos, mes,dia:integer;

      c: integer;

      i: integer;

//SubProcedimentos

procedure desenhelinha;

          begin

               for i:=0 to 79 do

               write('-');

          end;

procedure espaco;

          begin

               for i:=0 to 79 do

               write(' ');

          end;

//Programa Principal

        desenhelinha;

        espaco;

        writeln ('Seja Bem-Vindo ao programa de Calculo de Idade');

        espaco;

        writeln ('Digite sua idade em anos');

        read(anos);

        writeln ('Digite sua Idade em meses');

        read (mes);

        writeln ('Digite sua Idade em dias');

        read (dia);

        espaco;

        Idade:=(anos*365)+(mes*30)+dia;

        writeln ('Sua idade total em dias e de ',idade,' dias');

        espaco;

        desenhelinha;

        espaco;

        writeln ('Para Realizar um novo calculo tecle ENTER ...');

        readkey;

        clrscr;

end.

The Schoolpedia
 2013