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.
  

Vendas mostrando salário e comissão fixa e com vendas variáveis.

Estou pretendendo fornecer salgados feitos por minha mamãe em mercados, mas vou contratar um vendedor, de ínicio  pagarei a ele um sálario fixo de R$510,00, mais uma comissão de 0.10%(1 décimo de real) do valor total de vendas no mês, quero um programa que me mostre o salario fixo, quantidade de vendas, o valor da comissão e o salario total do vendedor no fim do mês.

program salgados_vendas;

var salario, vendas, comissao, salario_total: real;


begin
   salario := 510;
   write('Vendas=');
   readln(vendas);
   comissao:= (salario * 0.10)/100 * vendas;
   salario_total:=(comissao + salario);
   writeln('Salario fixo........=',salario:6:0,' unidade');
   writeln('Quantidade de vendas=',vendas:6:0 );
   writeln('comissao............=', comissao:6:2,' 0.10%');
   writeln('salario total.......=', salario_total:6:2);
   readln();

end.
 

Saldo simples

Todo  mês pago adiantado ao João da padaria R$250,00 para minha esposa e filhos
comprarem durante o mês, porem vou fazer para ele um programa simples
para controlar meu saldo. mostrando o valor que foi comprado e saldo remanescente na tela

program saldo_padaria;

var saldo, compras: real;

begin
  
    saldo:=250;
    write('Valor da compra=');
    readln(compras);
    saldo := (saldo - compras);
 
    writeln('Seu saldo agora=', saldo);
    readln();

end.

Média final com notas de pesos diferentes

{Fiz a prova do concurso do INSS, eram 3 matérias, português, matemática financeira, e
a matéria especifica do INSS, porém português tinha peso 2, matemática peso 3, e a materia
do INSS tinha peso 5, quero fazer um programa que mostre o nome do aluno, calcule minha média final do concurso.}


program concurso;

Var port, matem, inss, media: real;
    nome: string[30];
begin
    write('Nome=');
    readln(nome);
    write('Digite a nota de portugues.=');
    readln(port);
    write('Digite a nota de matematica=');
    readln(matem);
    write('Digite a nota do INSS......=');
    readln(inss);

    port := port * 2 /10;
    matem := matem *3 /10;
    inss := inss *5 /10;
    media :=(port + matem+ inss);

    writeln('Meu nome..............::: ', nome);
    writeln('Minha media final foi.::: ', media:3:2);
    readln();

end.

{Notem que para a variável nome, foi do tipo string, e as outras do tipo real.
Tipos de dados nas variáveis, os 3 mais usados são;
inteiro: armazena números inteiros(não fracionados), ex= 5, 2, 4, 1254, 1054 etc.
real: armazena numeros inteiros e fracionados, ex= 5, 2, (5,2),(2,5), 5/2, 2/5, 6,99999, etc.
string: armazena letras e números e a quantidade é definidas entre[] como acima que foi [30]assim poderemos colocar uma palavra de até 30 caracteres,
OBS: em outras linguagens o nome pode modificar}
{Notem também que para comentar no seuprograma, usasse // para textos curtos ou {} para blocos de textos}.

Calcular porcentagem com todos os valores indefinidos

{Agora vamos ver o mesmo exemplo só que com todos os valores
definido pelo lojista}

program porcentagem;

var notebook, vendedor, imposto, preco_final: real;

begin
    write('Digite do notebook........=');
    readln(notebook);
    write('O valor do imposto........=');
    readln(imposto);
    write('Percentual do vendedor....=');
    readln(vendedor);
    vendedor :=(notebook /100) * vendedor;
    imposto :=(notebook / 100)* imposto;
    preco_final :=(notebook + vendedor + imposto);
    writeln('O valor do notebook........=',notebook:6:2);
    writeln('A porcentagem do vendedor..=',vendedor:6:2);
    writeln('O valor do do imposto......=',imposto:6:2);
    writeln('o valor final..............=',preco_final:6:2);
    readln();

end.

Calcular porcentagem e seus valores indefinidos

{Agora vamos ver o mesmo exemplo só que com o valor do notebook e do imposto
definido pelo lojista e a porcentagem de 5% do vendedor fixa}
__________________________________________________________________________________
program porcentagem_variavel;

var notebook, vendedor, imposto, preco_final: real;

begin
    write('Digite do notebook........=');
    readln(notebook);
    write('O valor do imposto........=');
    readln(imposto);
    vendedor :=(notebook * 5)/ 100;
    imposto :=(notebook / 100)* imposto;
    preco_final :=(notebook + vendedor + imposto);
    writeln('O valor do notebook........=',notebook:6:2);
    writeln('A porcentagem do vendedor..=',vendedor:6:2);
    writeln('O valor do do imposto..=',imposto:6:2);
    writeln('o valor final........=',preco_final:6:2);
    readln();

end.

Calcular porcentagem e seus valores predefinida.

Comprei vários notebook para revender em minha loja, porém tenho que pagar 40% sobre o valor da fábrica e pagar 5% ao vendedor, quero um programa que determine o valor que o notebook saiu para mim.
__________________________________________________________________________________

program porcentagem;

var notebook, vendedor, imposto, preco_final: real;

begin
    notebook := 1200;
    vendedor :=(1200 * 5)/ 100;
    imposto :=(1200 * 40)/100;
    preco_final :=(notebook + vendedor + imposto);
    writeln('O valor do notebook........=',notebook:6:2);
    writeln('A porcentagem do vendedor..=',vendedor:6:2);
    writeln('O valor do do imposto..=',imposto:6:2);
    writeln('o valor final........=',preco_final:6:2);
    readln();

end.

Troca de valores de variáveis

No exemplo abaixo mostro como armazenar um valor em uma variável e depois troca-lo pelo outro valor.
O time do Bahia tem 5 gols, o time do Santos tem 4 gols, mas quero inverter o resultado na tela, então guadarei os gols do santos, em uma outra variavel(reservado), então farei o seguinte.
__________________________________________________________________________________
program troca_valores;

var bahia, santos, reservado: real;

begin
     bahia :=5;
     santos :=4;
     reservado := bahia;
     bahia := santos;
     santos := reservado;
     writeln('bahia tem agora.::::: ',bahia);
     writeln('santos tem agora.::::: ',santos);
     readln();

end.

Notem que os gols estavam pré definidos, bahia=5 e santos=4, na tela estará ao contrario.
entenda, eu guardei a variável do bahia que era 5, na variável(reservado), e depois disse que bahia era a variável santos ou seja 4, então disse que santos era a variável reservado que passou a ter o valor do bahia 5
e mandei colocar na tela o valor do bahia que que ficou guardado na variável reservado e passou a ser do santos e o valor do santos que passou a ser do bahia.
Esse exemplo mostra como você guardar um valor para ser usado depois.

Média definida pelo usuário

Agora o usuário colocará a quantidade de gols para serem calculada a media dos dois turnos

__________________________________________________________________________________

program selecao_variavel;

var turno1, turno2, media: real;

begin 

     writeln('Quantos gols no primeiro turno.::');

     readln(turno1);

     writeln('Quantos gols no segundo turno..::');

     readln(turno2);

     media := (turno1 + turno2) / 2;

     writeln('media de gols.::::: ',media:2:2);

     readln();

end.

writeln(escreve a pergunta na telana linha seguinte)

write(escreve a pergunta na tela na mesma linha)

readln(digita na linha seginte)

read(digita na mesma linha)

ln(LINE NEW, OU NEW LINE EM PORTUGUÊS NOVA LINHA)

Notem que depois de media tem :2:2 significa que ao aparecer na tela, terá dois digitos antes do ponto e dois digitos depois, tentem rodar o programa sem isso e notem a diferença.

Média predefinida

Aqui mostrarei como fazer um programa que calcule a media(Já definida) da seleção brasileira em dois turnos de uma competição, vamos lá.
__________________________________________________________________________________
program selecao;

var turno1, turno2, media: real;

begin
     turno1 := 12;
     turno2 := 13;
     media :=(turno1 + turno2)/ 2;
     writeln('media de gols nos dois turnos.::::: ', media );
     readln();

end.

Estrutura simples do pascal.

Aqui colocaremos a estrutura básica do pascal, lembrando que não é um estudo profundo da linguagem.
EM PASCAL DEVE-SE SALVAR O ARQUIVO COM O MESMO NOME QUE FOI COLOCADO DEPOIS DE "PROGRAM"
__________________________________________________________________________________
program viagem;

var bahia, sergipe, amapa: real;

begin
      bahia := 150;
      sergipe := 100;
      amapa := 75;
      writeln('atletas que foram para a Bahia.:: ',bahia:3:0);
      writeln('atletas que foram para a Sergipe.:: ',sergipe:3:0);
      writeln('atletas que foram para a Amapa.:: ',amapa:3:0);
      readln();

end.


Nesse exemplo faço um pequeno programa que mostre uma quantidade de atleta que viajaram para os estados, é um valor pré definido, mas funcional, o nome do programa é viagem não podemos criar uma variável com esse nome, lembrem-se de que todas as letra devem ser sem acentos, em var(variável) será definidas suas variáveis ou seja tudo que você se referir a uma variável, ficara armazenada nela, no begin(ínicio) será de fato o inicio do programa, notem que para a variável bahia, foi atribuido o valor de 150 atletas, writeln serve para mostra a informação na tela, end(é o fim do programa, mas em outros casos mas adiante poderá significar fim de sentença), Bem , esse é apenas um exemplo simples, mas existem muito mais a se colocar em um programa em pascal.