Pascal/Delphi Calcular o decimo terceiro salário, a fórmula está correta?

[PensadorNato1987]

procedure TForm1.CalcularClick(Sender: TObject);


    var n1,n2,resultado:real;//n1(numero1),n2(numero2),resultado(resultado do calculo)


    begin


    n1:=StrToFloat(Edit1.text);


    n2:=StrToFloat(Edit2.text);


    resultado:=n1*n2/12;


    Edit3.text:=FloatToStr(resultado);

A formula do decimo terceiro salário está errada né? Era para ser a seguinte:

 

resultado=SalarioMensal/365*Dias;

 

era para ser o seguinte:  

 

[PedraX]

Na verdade nem vou discutir a sintaxe desse programa  porque você não esclareceu a linguagem usada, mas se voce definiu que é um salário padrão de um funcionário que não tem horas extras, não tem descontos, não entra em férias, etc, então é só um exercício de programação?.

você quer exatamente como seria calculado o salário ou se as linhas de programação estão corretas?

Já adianto que não sou programador nem contador, mas acho que deveria ser mais claro na pergunta.

[PensadorNato1987]

41 minutos atrás, PedraX disse:

Na verdade nem vou discutir a sintaxe desse programa  porque você não esclareceu a linguagem usada, mas se voce definiu que é um salário padrão de um funcionário que não tem horas extras, não tem descontos, não entra em férias, etc, então é só um exercício de programação?.

você quer exatamente como seria calculado o salário ou se as linhas de programação estão corretas?

Já adianto que não sou programador nem contador, mas acho que deveria ser mais claro na pergunta.

Eu fiz no delphi 7 do Linux(mas conhecido como o lazarus no Linux),Coloquei na área certa que é Delphi.

[PedraX]

Mas você quer saber da sintaxe ou da lógica?

[PensadorNato1987]

3 minutos atrás, PedraX disse:

Mas você quer saber da sintaxe ou da lógica?

Eu só quero saber se a formula do decimo terceiro está certa,um ou outra.Pode me dizer?

[PedraX]

3 horas atrás, LendaNoLinux disse:

só quero saber se a formula do decimo terceiro está certa

sim, pela definição, Mas deve consultar um Contador se quiser ver mais detalhes do cálculo exato, porque existem alguns fatores a mais para considerar porque muita gente recebe salário variável ao longo do ano.

[Midori]

Nomear as variáveis como n1 e n2 não ajudam na leitura do código. Em vez disso você pode dar nomes mais sugestivos como mes e salario. Se essas forem referentes a salário e mês está certo.

[PensadorNato1987]

38 minutos atrás, Midori disse:

Nomear as variáveis como n1 e n2 não ajudam na leitura do código. Em vez disso você pode dar nomes mais sugestivos como mes e salario. Se essas forem referentes a salário e mês está certo.

Sim entendi colocarei mes e salario no meu programa em delphi,tá ok

[PensadorNato1987]

4 horas atrás, Midori disse:

Nomear as variáveis como n1 e n2 não ajudam na leitura do código. Em vez disso você pode dar nomes mais sugestivos como mes e salario. Se essas forem referentes a salário e mês está certo.

 

Assim fica melhor:

procedure TForm1.Button1Click(Sender: TObject);
    var mes,salario,resultado:real;

    begin
    mes:=StrToFloat(Edit1.text);
    salario:=StrToFloat(Edit2.text);
    resultado:=mes*salario/12;
    Edit3.text:=FloatToStr(resultado);
    end;                                      

 

[Simon Viegas]

Em 17/08/2023 às 16:12, LendaNoLinux disse:

A formula do decimo terceiro salário está errada né? Era para ser a seguinte:

 

 

A fórmula meio que vai depender dos requisitos do enunciado da questão ou das especificações do projeto etc.

 

Abstraia que seria para criar um código... pesquisaria sobre o tema e se aprofundaria mais. Quais as leis que regulamentam o décimo terceiro e o que dizem? Dá uma lida!

 

 

Aí depois para para implementar em alguma linguagem, ou seja, o código seria apenas para uma automação, mas os cálculos em si podem ser feitos da forma que quiser... (Papel, calculadora, Excel etc.)

 

 

 

3 horas atrás, LendaNoLinux disse:

Assim fica melhor:

 

Basicamente, a ideia é que os códigos não precisem ter comentários.

 

Original:

3 horas atrás, LendaNoLinux disse:

    mes:=StrToFloat(Edit1.text);
    salario:=StrToFloat(Edit2.text);
    resultado:=mes*salario/12;
    Edit3.text:=FloatToStr(resultado);

 

Que tal:

    qtdMeses := StrToFloat(Edit1.text);
    salarioMensal := StrToFloat(Edit2.text);
    decimoTerceiro := qtdMeses*salarioMensal/12;
    Edit3.text := FloatToStr(decimoTerceiro);

 

 

Exemplo ainda mais sugestivo:

    mesesTrabalhados := StrToFloat(EditMesesTrabalhados.text);
    salarioMensal := StrToFloat(EditSalarioMensal.text);
    decimoTerceiro := (mesesTrabalhados/12)*salarioMensal;
    EditDecimoTerceiro.text := FloatToStr(decimoTerceiro);

Obs.: matematicamente não precisa dos "()" ali na terceira linha, pode remover. Deixei para exemplificar que poderia destacar os membros da operação... 

[PensadorNato1987]

13 horas atrás, Simon Viegas disse:

 

 

A fórmula meio que vai depender dos requisitos do enunciado da questão ou das especificações do projeto etc.

 

Abstraia que seria para criar um código... pesquisaria sobre o tema e se aprofundaria mais. Quais as leis que regulamentam o décimo terceiro e o que dizem? Dá uma lida!

 

 

Aí depois para para implementar em alguma linguagem, ou seja, o código seria apenas para uma automação, mas os cálculos em si podem ser feitos da forma que quiser... (Papel, calculadora, Excel etc.)

 

 

 

 

Basicamente, a ideia é que os códigos não precisem ter comentários.

 

Original:

 

Que tal:

    qtdMeses := StrToFloat(Edit1.text);
    salarioMensal := StrToFloat(Edit2.text);
    decimoTerceiro := qtdMeses*salarioMensal/12;
    Edit3.text := FloatToStr(decimoTerceiro);

 

 

Exemplo ainda mais sugestivo:

    mesesTrabalhados := StrToFloat(EditMesesTrabalhados.text);
    salarioMensal := StrToFloat(EditSalarioMensal.text);
    decimoTerceiro := (mesesTrabalhados/12)*salarioMensal;
    EditDecimoTerceiro.text := FloatToStr(decimoTerceiro);

Obs.: matematicamente não precisa dos "()" ali na terceira linha, pode remover. Deixei para exemplificar que poderia destacar os membros da operação... 

 

Veja o código que eu estou fazendo,tem algo de errado:Veja na foto em anexo

 

 

 

 

13 horas atrás, Simon Viegas disse:

A fórmula meio que vai depender dos requisitos do enunciado da questão ou das especificações do projeto etc.

 

Abstraia que seria para criar um código... pesquisaria sobre o tema e se aprofundaria mais. Quais as leis que regulamentam o décimo terceiro e o que dizem? Dá uma lida!

 

 

Aí depois para para implementar em alguma linguagem, ou seja, o código seria apenas para uma automação, mas os cálculos em si podem ser feitos da forma que quiser... (Papel, calculadora, Excel etc.)

 

 

 

 

Basicamente, a ideia é que os códigos não precisem ter comentários.

 

Original:

 

Que tal:

    qtdMeses := StrToFloat(Edit1.text);
    salarioMensal := StrToFloat(Edit2.text);
    decimoTerceiro := qtdMeses*salarioMensal/12;
    Edit3.text := FloatToStr(decimoTerceiro);

 

 

Exemplo ainda mais sugestivo:

    mesesTrabalhados := StrToFloat(EditMesesTrabalhados.text);
    salarioMensal := StrToFloat(EditSalarioMensal.text);
    decimoTerceiro := (mesesTrabalhados/12)*salarioMensal;
    EditDecimoTerceiro.text := FloatToStr(decimoTerceiro);

Obs.: matematicamente não precisa dos "()" ali na terceira linha, pode remover. Deixei para exemplificar que poderia destacar os membros da operação... 

 

Assim fica melhor,eu já resolvi,assim ficou  o código:

var mesesTrabalhados,salarioMensal,decimoTerceiro:real;

begin
      mesesTrabalhados := StrToFloat(EditMesesTrabalhados.text);
       salarioMensal := StrToFloat(EditSalarioMensal.text);
       decimoTerceiro := (SalarioMensal/12)*mesesTrabalhados;
       EditDecimoTerceiro.text := FloatToStr(decimoTerceiro);



end;           

 

[Simon Viegas]

12 horas atrás, LendaNoLinux disse:

Assim fica melhor,eu já resolvi

 

Show!

 

 

 

 

12 horas atrás, LendaNoLinux disse:

var mesesTrabalhados,salarioMensal,decimoTerceiro:real;

begin
      mesesTrabalhados := StrToFloat(EditMesesTrabalhados.text);
       salarioMensal := StrToFloat(EditSalarioMensal.text);
       decimoTerceiro := (SalarioMensal/12)*mesesTrabalhados;
       EditDecimoTerceiro.text := FloatToStr(decimoTerceiro);



end;          

 

Procure também sempre manter o código organizado na indentação e espaçamento. Exemplo:

 

var
   mesesTrabalhados, salarioMensal, decimoTerceiro:real;

begin
   mesesTrabalhados := StrToFloat(EditMesesTrabalhados.text);
   salarioMensal := StrToFloat(EditSalarioMensal.text);
   decimoTerceiro := (salarioMensal/12)*mesesTrabalhados;
   EditDecimoTerceiro.text := FloatToStr(decimoTerceiro);
end;

 

Nesse exemplo utilizei 3 espaços para dar um dente (margem), mas poderia utilizar o padrão do "tab" aí na sua IDE. O importante que fique uniforme.

 

Detalhe: "salarioMensal foi declarada iniciando com minúsculo. Mantenha também um padrão só.

 

Quando mais organizado, mais simples.

 

[PensadorNato1987]

1 minuto atrás, Simon Viegas disse:

 

Show!

 

 

 

 

 

Procure também sempre manter o código organizado na indentação e espaçamento. Exemplo:

 

var
   mesesTrabalhados, salarioMensal, decimoTerceiro:real;

begin
   mesesTrabalhados := StrToFloat(EditMesesTrabalhados.text);
   salarioMensal := StrToFloat(EditSalarioMensal.text);
   decimoTerceiro := (salarioMensal/12)*mesesTrabalhados;
   EditDecimoTerceiro.text := FloatToStr(decimoTerceiro);
end;

 

Nesse exemplo utilizei 3 espaços para dar um dente (margem), mas poderia utilizar o padrão do "tab" aí na sua IDE. O importante que fique uniforme.

 

Detalhe: "salarioMensal foi declarada iniciando com minúsculo. Mantenha também um padrão só.

 

Quando mais organizado, mais simples.

 

Deixa como está,senão vai ficar muito complicado para mim.