23/09/2019, 08:53:58 am *
Bienvenido(a), Visitante. Por favor, ingresa o regístrate.
¿Perdiste tu email de activación?

Ingresar con nombre de usuario, contraseña y duración de la sesión
Noticias: Puedes practicar LATEX con el cómodo editor de Latex online
 
 
Páginas: [1]   Ir Abajo
  Imprimir  
Autor Tema: METODOLOGIA MAPS en diseño de algoritmos.  (Leído 92 veces)
0 Usuarios y 1 Visitante están viendo este tema.
carlosbayona
Junior
**

Karma: +0/-1
Desconectado Desconectado

Sexo: Masculino
Venezuela Venezuela

Mensajes: 35


Ver Perfil
« : 01/07/2019, 03:08:57 pm »

Se requiere calcular e imprimir el pago de 102 trabajadores que laboran en la Cía. GACMAN.
Los datos que se leerán serán los siguientes:
a) El tipo de trabajador.  1.- Obrero.  2.- Empleado.
b) Las horas trabajadas.
c) El sueldo por hora.
Para calcular los pagos se debe considerar lo siguiente: - Los obreros pagan 10 % de impuesto. - Los empleados pagan 10 % de impuesto. - Los trabajadores (obreros y empleados) que reciban un pago menor de 100,000 Bs no pagan impuesto.

- Al final se deberá imprimir el total a pagar tanto a los trabajadores como a los empleados.
La información solicitada deberá presentarse a través de dos (2) reportes o informes; el primero que contenga el total a pagar a los empleados, ver reporte 1, y el segundo contentivo del total a pagar a los obreros, ver reporte 2, ambos mostrados a continuación.

G A C M A N C.A. Reporte de Pago Impuestos (Empleados) Departamento: Recursos Humanos Total con Impuesto BS. XXXXXX,xx Total Exentos BS. XXXXXX,xx Total a Pagar Bs. XXXXXX,xx Reporte 1

G A C M A N C.A. Reporte de Pago Impuestos (Obreros) Departamento: Recursos Humanos Total con Impuesto BS. XXXXXX,xx Total Exentos BS. XXXXXX,xx Total a Pagar Reporte 2 Bs. XXXXXX,xx. He hecho lo siguiente;
He hecho esto!!
Variables
Ht, sh, ttrab, sueldo, totalap, Totaltra
Si Mientras n<102
haga Imprimir
‘digite horas trabajadas
Leer Ht
Imprimir ‘digite el sueldo de la hora’
Sueldo=sh*ht
Si Sueldo<100000
entonces Totalpa = sueldo
Sino Totalpa=sueldo+ (sueldo*0.10)
Totaltra=totaltra+totalpa
N=n+1
Fin mientras Imprimir Totaltr
Fin

Aquí esta traducido a lenguaje pascal
uses crt;
Var
   ht,n,tope:integer;
   sh: Real;
   sueldo: Real;
   totalpa: Real;
   totaltra: Real;
Begin
   tope := 3;
   totaltra:=0;
   for n:=1 to tope do begin
      WriteLn('Digite horas trabajadas: ');
      ReadLn(ht);
      WriteLn('Digite sueldo por hora: ');
      ReadLn(sh);
      sueldo := sh*ht;
      If sueldo<100000 Then
         totalpa := sueldo
      Else
         totalpa := sueldo+(sueldo*0.10);
 
      totaltra := totaltra+totalpa;
   End;
   WriteLn(totaltra:4:2);
End.
El problema se me presenta al momento de definir mediante metodología MAPS, la pre y post condición del problema ayuda por favor!!
Amigos ayudenme, por problemas como este ya reprobe una vez y no quiero volver a reprobar por favor!!
En línea
Páginas: [1]   Ir Arriba
  Imprimir  
 
Ir a:  

Impulsado por MySQL Impulsado por PHP Powered by SMF 1.1.4 | SMF © 2006, Simple Machines LLC XHTML 1.0 válido! CSS válido!