venezuela
PROGRAM EJER36;
USES CRT;
VAR num:INTEGER;
BEGINClrScr;
WRITE ('Escriba un numero para ver con que dia corresponde: ');
READLN (num);
IF num=1 THEN
WRITE ('Lunes');
IF num=2 THEN
WRITE ('Martes');IF num=3 THEN
WRITE ('Miercoles');
IF num=4 THEN
WRITE ('Jueves');
IF num=5 THEN
WRITE ('Viernes');
IF num=6 THEN
WRITE ('Sabado');
IF num=7THEN
WRITE ('Domingo');
END.
PROGRAM EJER36;
USES CRT;
VAR num_dia_sem:INTEGER;
BEGIN
ClrScr;
WRITE('Dia de la semana (numero) -> ');READLN(num_dia_sem);
CASE num_dia_sem OF
1: WRITELN('Lunes');
2: WRITELN('Martes');
3: WRITELN('Miercoles');
4: WRITELN('Jueves');
5: WRITELN('Viernes');6: WRITELN('Sabado');
7: WRITELN('Domingo');
ELSE
WRITELN('No es un dia de la semana');
END;
END.
Escribir un programa en Pascal que calculeel salario neto semanal de un trabajador en función delnúmerodehorastrabajadasylatasadeimpuestosdeacuerdoalassiguient-
es hipótesis.·
Las primeras 35 horas se pagan a tarifa normal· Las horas quepasen de 35 se pagan 1.5 veces la tarifa normal· Las tasas de impuestos son:a: Los primeros 50 dólares son libres de impuestosb: Los siguientes 40 dólares tienen un 25% de impuestosc: Los restantes de45% de impuestos
PROGRAM EJER55;
USES
CRT;
VAR hor_tra,sal_bru,tas_imp,sal_net:real;
CONST tar_hor=2;
CONST tasa_imp1=0.25;
CONST tasa_imp2=0.45;
BEGIN
ClrScr;
WRITE('Numero de horastrabajadas: ');
READLN(hor_tra);
{Calculo del salario bruto}
IF hor_tra 0 THEN
WRITE ('El numero es positivo')
ELSE IF num < 0 THEN
WRITE ('El numero es negativo')...
Regístrate para leer el documento completo.