Determina el salario semanal de un trabajador dada la hora dada la tarifa por horas y horas trabajadas. La jornada es de 8 horas y las horas extras se pagan doble.
pascal:
{
Descripcion: Determina el salario semanal de un trabajador dada la hora
dada la tarifa por horas y horas trabajadas. La jornada es de 8 horas y las
horas extras se pagan doble.
www.mis-algoritmos.com
}
uses
crt;{Cargamos libreria de la pantalla}
var
salario : real;
tarifa_por_hora : real;
horas_trabajadas : real;
begin
clrscr;{Limpiamos pantalla}
write('Tarifa por hora: ');{Salida en pantalla}
readln(tarifa_por_hora);{Entrada desde el teclado}
write('Horas trabajadas: ');{Salida en pantalla}
readln(horas_trabajadas);{Entrada desde el teclado}
if horas_trabajadas>8 then
{Evalua salario si trabajo mas de 8 horas}
salario:=(8*tarifa_por_hora)+(2*(horas_trabajadas-8)*tarifa_por_hora)
else
{Evalua salario si trabajo menos de 8 horas}
salario:=horas_trabajadas*tarifa_por_hora;
writeln('Salario: ',salario:0:2);{Muestra el salario en pantalla}
readkey;{Espera una tecla para finalizar}
end.
Descripcion: Determina el salario semanal de un trabajador dada la hora
dada la tarifa por horas y horas trabajadas. La jornada es de 8 horas y las
horas extras se pagan doble.
www.mis-algoritmos.com
}
uses
crt;{Cargamos libreria de la pantalla}
var
salario : real;
tarifa_por_hora : real;
horas_trabajadas : real;
begin
clrscr;{Limpiamos pantalla}
write('Tarifa por hora: ');{Salida en pantalla}
readln(tarifa_por_hora);{Entrada desde el teclado}
write('Horas trabajadas: ');{Salida en pantalla}
readln(horas_trabajadas);{Entrada desde el teclado}
if horas_trabajadas>8 then
{Evalua salario si trabajo mas de 8 horas}
salario:=(8*tarifa_por_hora)+(2*(horas_trabajadas-8)*tarifa_por_hora)
else
{Evalua salario si trabajo menos de 8 horas}
salario:=horas_trabajadas*tarifa_por_hora;
writeln('Salario: ',salario:0:2);{Muestra el salario en pantalla}
readkey;{Espera una tecla para finalizar}
end.