Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Salario
//fpc 3.0.4 program Salario; var SalarioBase: real; NumHoras: real; SalarioBruto: real; begin {Pedimos l usuario una cadena del estilo "A op B"} writeln('Introduzca el salario base y las horas trabajadas:'); read(SalarioBase); read(NumHoras); if NumHoras <= 35 then SalarioBruto := NumHoras*SalarioBase; else SalarioBruto := SalarioBase*35 + (NumHoras-35)*1.5*SalarioBase; SalarioNeto := 0; if SalarioBruto <= 20000 /54 then SalarioNeto := SalarioBruto; else if SalarioBruto <= 45000/54 then begin SalarioNeto := 20000 /54 + (SalarioBruto-20000/54)*0.8; end else SalarioNeto := 20000 /54 + (25000/54)*0.8 + (SalarioBruto-45000/54)*0.7; end.
run
|
edit
|
history
|
help
0
generic stack implementation
Overriding
bla bla
enums with extension method: better
jjj3
Better Random number blocks
Testing 008
Unicode Braille Patterns.
aszasxsdf
Morse code