Exercício Resolvido, Algoritmo de Calculo de custo Teatral

Exercício Resolvido, Algoritmo de Calculo de custo Teatral

Linguagem de Programação, Pascal

Faça um algoritmo que receba o custo de um espetáculo teatral e o preço do convite deste espetáculo. Esse algoritmo deve calcular e mostrar a quantidade de convites  que  devem  ser  vendidos  para  que  pelo  menos  o  custo  do  espetáculo  seja alcançado.

program Teatro;

uses Crt;

//Variaveis

var   preco, total, ingresso:real;

      i: integer;           //Inteiro Contador

//Procedures

procedure desenhelinha;

          begin

               for i:=0 to 79 do

                   write('-');

          end;

procedure espaco;

          begin

               for i:=0 to 79 do

               write(' ');

          end;

//Programa Principal

begin

             desenhelinha;

             espaco;

             writeln('Seja Bem-Vindo ao Programa de Calculo de Ingressos Minimos');

             writeln(' Insira o preco do espetaculo ');

             readln (preco);

             writeln('Insira o valor unitario dos Ingressos ');

             readln (ingresso);

             total:=(preco/ingresso)+1;

             writeln('O Minimo de Ingressos a Serem Vendidos e de ', total:3:0, ' unidades ');

             espaco;

             desenhelinha;

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

             readkey;      //Espera de entrada de usuário

             clrscr;       //Limpa Tela

       

end.

The Schoolpedia 

2013

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

Exercício Resolvido, Saco de Ração

Exercício Resolvido

"Saco de Ração"

Pedro comprou um saco de ração com peso em quilos. Pedro possui dois gatos para os quais fornece a quantidade de ração em gramas. Faça um algoritmo (Fluxograma) que receba o peso do saco de ração e a quantidade de ração fornecida para cada gato por dia.Calcule e mostre quanto restará de ração no saco após cindo dias.

program racaoGatos;

uses Crt;

var saco,quantcat, sacogram, sobra:real;

    z:integer;

begin

           for z:=1 to 70 do

           write('*');

           writeln(' ');

           writeln('Calculo de alimentação dos felinos de Pedro');

           writeln('Digite o peso do saco de ração em quilos');

           read(saco);

           writeln('Digite a quantidade de ração para cada gato em gramas');

           read(quantcat);

           sacogram:=saco*1000;

           sobra:=sacogram-(quantcat*2*5);

           writeln('A porção de ração restante no saco apos 5 dias e de: ',sobra:3:2);

           for z:=1 to 70 do

           write('*');

           writeln(' ');

           readkey;

           clrscr;

end.

The Schoolpedia 

2013

Exercício Resolvido, Desconto de 5%

Exercício Resolvido 

"Desconto de 5%"

Elabore um algoritmo em Pascal que calcule e mostre o valor do desconto adquirido na compra de qualquer peça de roupa das lojas Z. O percentual de desconto é de 5%.

program Algoritmo1;

uses Crt;

var  preco,desc:real;

begin

       writeln('Insira o preco da peca');

       read(preco);

       desc:= 0.05*preco;

       writeln('O desconto sobre esta peca sera de  ',desc:3:2, ' reais');

       readkey;

end.

The Schoolpedia

 2013