Desconto variável na compra

{Minha lojinha de brinquedos está oferecendo descontos agora no final de ano de acordo com
o valor da compra. o descondo de 5% se o valor for maior que R$300, 15% se for
maior que R$ 500, 20% se maior que R$700 e 30%  acima de R$700, crie um
algoritmo que leia o nome do cliente, o nome do vendedor, o valor da compra
mostre o nome do cliente e do vendedor, valor da compra, valor de desconto
e o valor total a pagar pelo cliente.}


program compra_desconto;

var valor_compra, valor_desconto, valor_pagar: real;
    desconto : integer;
    vendedor : string[30];
    cliente : string[30];

begin
  
    write('O nome do cliente....:');
    readln(cliente);
    write('O nome do Vendedor....:');
    readln(vendedor);
    write('O valor da compra....:');
    readln(valor_compra);


    if valor_compra <= 300 then
          desconto := 5
    else if valor_compra <= 500 then
          desconto := 15
    else if valor_compra <= 700 then
          desconto := 20
    else
          desconto :=30;

    valor_desconto := (valor_compra * desconto) /100;
    valor_pagar :=  valor_compra - valor_desconto;

    writeln('Nome do cliente.......:',cliente);
    writeln('O nome do vendedor....:',vendedor);
    writeln('valor da compra.......:',valor_compra:6:2);
    writeln('valor do desconto.....:',valor_desconto:6:2);
    writeln('valor a pagar.........:', valor_pagar:6:2);

    writeln();
    readln();


end.

CONCURSO DE CANTO (MÉDIA DA NOTAS)

{Em um concurso de canto a avaliação é composta de três fundamentos, o primeiro
é o timbre que tem peso 2, o segundo é a melodia que tem peso 3, o terceiro é
a desenvoltura em palco, que tem peso 5, todos terão notas e se a media for maior
que 7 o candidato estara classificado, faça um algoritimo que mostre se ele está
classificado ou desclassificado para a próxima etapa.}

program concurso;

  var timbre, melodia, desenvoltura, media: real;

begin
  write('Digite a nota para o TIMBRE.......:::');
  readln(timbre);
  write('Digite a nota para a MELODIA......:::');
  READLN(MELODIA);
  write('Digite a nota para a DESENVOLTURA.:::');
  readln(desenvoltura);


  timbre := timbre * 2 /10;
  melodia := melodia *3 /10;
  desenvoltura := desenvoltura *5 /10;
  media := (timbre + melodia + desenvoltura);


  if media >= 7 then
       writeln('     Classificado com nota', media:6:2)
  else
       writeln('     Desclassificado com nota', media:6:2);

  writeln();
  writeln();
  writeln();
  writeln('                       OBRIGADO');
  readln();

end.

Ordem crescente com condicionais "if, then, else"

//Crie 2 variavéis (a e b) e leia seus valores e coloque em ordem crescente.

program ordemcrescente;
 
    var a, b : integer;

begin
    write('digite o valor  A...:');
    readln(a);
    write('digite o valor  B...:');
    readln(b);
   
// condicionais//
    if a > b then
           writeln('A ordem crescente B=', b ,'-a=',a)
    else
           writeln('A ordem crescente A=', a,'-b=',b);

   readln();
end.

Juros cartão.

Agora vamos supor que meu colega esteja com o cartão de crédito em atraso
vamos ver um programa que veja o valor da prestação a taxa de juros e os
dias em atraso.
__________________________________________________________________________________

program cartao;
var prestacao, valor, juros, totaljuros, total: real;
    atraso: integer;


begin
  write('digite o valor da prestacao.::');
  readln(prestacao);
  write('digite a taxa de juros......::');
  readln(juros);
  write('Dias em atraso..............::');
  readln(atraso);
  valor :=(prestacao * juros)/100 * atraso;
  totaljuros :=(prestacao - valor);
  total := (prestacao + valor);
  juros :=(prestacao - totaljuros);
  writeln('digite o valor da prestacao...........::',prestacao:6:2);
  writeln('digite o valor do juros... ...........::',juros:6:2);
  writeln('digite a quantidade de dias em atraso.::',atraso);
  writeln('digite o valor total com juros.........::',total:6:2);
  readln;

end.

Programa para financiamento.

E ai galera eu estou pagando a minha moto, e quero fazer um programa que
mostre a quantidade de prestações pagas, o valor delas, o total pago e o
que falta para terminar. são 36 prestações.

var total, quite, valor, par_resto, totalpago, devendo: real;

begin
   total :=36;
   writeln('Total de parcelas=',total:6:0);
   write('Quantidade paga...=');
   readln(quite);
   write('valor da parcela..=');
   readln(valor);
   totalpago :=(quite * valor);
   par_resto :=(total - quite);
   devendo :=(total - quite)* valor;
   writeln('Quantidade de parcelas pagas...=',    quite:6:0);
   writeln('O valor de cada parcela........=',    valor:6:2);
   writeln('Quanto foi pago................=',totalpago:6:2);
   writeln('Quantidade de parcelas restante=',par_resto:6:2);
   writeln('Quantidade de dinheiro a pagar.=',  devendo:6:2);
   readln;

end.
        

Salário com desconto do INSS e mostrando FGTS

Quero calcular o salário do meu empregado na loja, só que quero colocar o salario bruto,
descontando 6% do Inss e mostrando o fgts que é de 8%, quero um programa que mostre o nome do
funcionario, o valor do inss, o valor do fgts,s e o salario já descontado o valor do inss.

program descontos;

var salario, inss, fgts, salario_desc: real;
    nome :string[30];



begin

   write('Nome do funcionario=');
   readln(nome);
   write('salario=');
   readln(salario);
   inss :=(salario *6)/100;
   fgts :=(salario *8)/100;
   salario_desc :=(salario - inss);
   writeln('Nome do funcionario....=',nome);
   writeln('salario................=',salario:6:2);
   writeln('valor do inss..........=',   inss:6:2);
   writeln('salario descontado inss=',salario_desc:6:2);
   writeln;
   writeln;
   writeln('valor do fgts..........=',   fgts:6:2);
   readln();
end.

Vendas com salário e comissão variável.

Nesse exemplo ao final do dia verei quanto o vendedor ganhará, baseado no salário individual de cada e de comissão
individual, mostrando o salario, a comissão, quantidade de vendas e o total a receber.

program salario_variavel;

var salario, vendas, bonus, comissao, salario_total: real;


begin

   write('Salario=');
   readln(salario);
   write('porcentagem da comissao=');
   readln(bonus);
   write('Vendas=');
   readln(vendas);
   comissao:= (salario * bonus)/100 * vendas;
   salario_total:=(comissao + salario);
   writeln('Salario fixo........=',salario:6:0);
   writeln('Quantidade de vendas=',vendas:6:0 );
   writeln('comissao............=', comissao:6:2);
   writeln('salario total.......=', salario_total:6:2);
   readln();
end.