Fecha y hora actual: Martes 16 Jul 2019 02:40
Índice del Foro

Foros de programación informática, diseño gráfico y Web

En esta comunidad intentaremos dar soporte de programación a todos los niveles, desde principiantes a profesionales de la informática, desarrollo de programas, programación web y mucho más.

Traducir algoritmo a lenguaje pascal!

Responder al Tema

Índice del Foro > Programación en general > Traducir algoritmo a lenguaje pascal!

Autor Mensaje
Carlos bayona



Registrado: 27 Jun 2019
Mensajes: 2

Mensaje Publicado: Lunes 01 Jul 2019 20:21

Título del mensaje: Traducir algoritmo a lenguaje pascal!

Responder citando

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;

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

Ahora la ayuda que necesito es como desarrollo este algoritmo a lenguaje pascal para que cumpla esta función?[/img]

Volver arriba
Ver perfil del usuario Enviar mensaje privado
Tesis
Administrador


Registrado: 04 Mar 2007
Mensajes: 3222
Ubicación: Valencia - España

Mensaje Publicado: Lunes 08 Jul 2019 19:05

Título del mensaje: Traducir algoritmo a lenguaje pascal!

Responder citando

No hacemos ejercicios completos, así nadie aprendería... Hay que intentar hacerlo y mostrar aquí las dudas para que sean resueltas y en el foro adecuado.


Un saludo.


Normas del foro
Aprende a postear correctamente usando las etiquetas
Volver arriba
Ver perfil del usuario Enviar mensaje privado
Carlos bayona



Registrado: 27 Jun 2019
Mensajes: 2

Mensaje Publicado: Jueves 11 Jul 2019 23:15

Título del mensaje: Traducir algoritmo a lenguaje pascal!

Responder citando

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.
He hecho esto pero no logro una estructura que imprima y almacene el pago de los 102 trabajadores y muestre los dos reportes. En que estoy fallando?

Volver arriba
Ver perfil del usuario Enviar mensaje privado
Responder al Tema
Mostrar mensajes anteriores:   
Ir a:  
Todas las horas están en GMT + 2 Horas

Temas relacionados

Tema Autor Foros Respuestas Publicado
El foro no contiene ningún mensaje nuevo

Debate: ¿Cual es el mejor lenguaje de programac...

Samuel Martinez Programación en general 2 Lunes 10 Jun 2019 09:06 Ver último mensaje
El foro no contiene ningún mensaje nuevo

necesito ayuda con el algoritmo de dijkstra en ...

mery Python 0 Jueves 13 Dic 2018 18:07 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Ayuda en algoritmo de productos medios

Antony Python 1 Viernes 26 Oct 2018 06:27 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Necesito ayuda en este codigo en lenguaje c

EmmanuelTR9 C, C#, Visual C++ 0 Lunes 08 Oct 2018 18:38 Ver último mensaje
Panel de Control
No puede crear mensajes, No puede responder temas, No puede editar sus mensajes, No puede borrar sus mensajes, No puede votar en encuestas,