Pascal/Turbo Pascal - Interesante: ¿ Como usar dinero y tiempo ?

Es algo interesante, digamos que por cada hora (o sea 60 minutos) se cobra 5.00 y por cada hora extra 25% más, como le hago para el calculo, si su entrada de el tiempo tiene el formato real y es así: Tiempo inicial :3.15, tiempo final : 4.15. Ayudenme o me suicidio no se como hacerle.
Gracias.

No es tan dificil, lo mas facil que se puede hacer es lo siguiente:

restas la hora incial menos la hora final

horas:=h_ini - h_fin;

esta variable la multiplicas por 60

horas:=horas*60; esto te dara el total de minutos.

como solo una hora se cobra a $5.00 entonces preguntas si horas es menor o igual a 60 (una hora)

if horas <= 60 then

No es tan dificil, algo que se me ocurre es lo siguiente

horas:=h_ini - h_fin;
horas:=horas*60;

if horas <= 60 then
write('Paga: $',una)
else begin
cargo:=(horas-60)/60*(5*extra);
writeln ('Paga : $',5.00);
writeln('mas 25% : $',cargo);
end;

Paso por paso
1 A la variable horas le asignas la resta de hora incial menos la hora final
2 A esa variable la multiplicas por 60 lo que te da el total de minutos
3 Si "horas" es <= 60 quiere decir que solo se cobra 1 hora y escibes el mensaje correspondiente, donde "una" es una constante
4 Si no quiere decir que estuvo mas de 1 hora, (horas-60) indica los minutos extras depues de 1 hora, (horas-60)/60 me da el total de horas extras, calculé el porcentaje extra de $5 (aqui puedes camabiar el valor por el que sea), "extra" es una constante, todo esto se lo asigno a "cargo" que guadara el costo de las horas extra, y se escribe en pantalla.

espero te ayude, si no puedes escribirme