Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » Ayuda con este ejercicio de Turbo Pascal

Pascal/Turbo Pascal - Ayuda con este ejercicio de Turbo Pascal

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Ayuda con este ejercicio de Turbo Pascal

Publicado por Gustavo (1 intervención) el 29/06/2015 02:24:16
Buenas noches amigos, estoy perdido con este ejercicio, necesito ayuda por favor, este es el ejercicio:

http://imgur.com/jQjB7JF

Gracias espero que me ayuden.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ayuda con este ejercicio de Turbo Pascal

Publicado por ramon (2158 intervenciones) el 30/06/2015 23:47:06
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
{Mira esto}
 
program sueldo_trabajador;
 uses
    crt;
  type
    string100 = string[100];
  const
      sueldo = 2650.35;
      hora = 2;
      vent = 0.050;
      sgsc = 4;
      frt = 2.75;
      fctg = 1;
 
  var
     nombre : string100;
     horas : real;
     venta : real;
     toh, tov, total : real;
 
  procedure entrada_datos(var n : string100; var h, v : real);
  begin
     clrscr;
     write('    Entre Nombre : ');readln(n);
     write('    Entre Horas  : ');readln(h);
     write('    Entre Venta  : ');readln(v);
  end;
 
  begin
     entrada_datos(nombre,horas,venta);
     toh := horas * hora / 100;
     tov := venta * vent / 100;
     total := sueldo + toh + tov;
     if total < 3000.00 then
     total := total - (total * (sgsc + frt + fctg) / 100)
   else
     total := total - (total * (3.55 + 1.23) / 100);
     clrscr;
     writeln;
     writeln('   El Salario Neto Es : ',total:0:2);
     readkey;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Ayuda con este ejercicio de Turbo Pascal

Publicado por rockie (1 intervención) el 17/07/2015 08:14:29
Program SueldoTrabajador;

var
NombreTrabajador:String;
CantHorasExtras:integer;
VentaTotal:double;
SueldoNeto:double;
SUELDOPARCIAL:DOUBLE;



const
SalarioSemanal=2650.35;
SueldoHoraExtra=0.02;
SueldoVentaTotal=0.0005;
segurosocial=0.04;
Retiro1=0.0275;
contigencia1=0.01;
Retiro2=0.0355;
contigencia2=0.0123;

Begin

writeln('Por favor escriba su nombre: ');
readln(NombreTrabajador);
writeln('Por favor digite la cantidad de horas extras: ');
readln(CantHorasExtras);
writeln('Por favor digite la cantidad de la venta total del restaurante: ');
readln(VentaTotal);
SUELDOPARCIAL:=SalarioSemanal+(CantHorasExtras*SueldoHoraExtra)+(VentaTotal*SueldoVentaTotal);
IF (SUELDOPARCIAL<=3000)then
SueldoNeto:=SalarioSemanal+(((CantHorasExtras*SueldoHoraExtra)+(VentaTotal*SueldoVentaTotal))-((SalarioSemanal*segurosocial)+(SalarioSemanal*Retiro1)+(SalarioSemanal*contigencia1)))
ELSE
SueldoNeto:=SalarioSemanal+(((CantHorasExtras*SueldoHoraExtra)+(VentaTotal*SueldoVentaTotal))-((SalarioSemanal*segurosocial)+(SalarioSemanal*Retiro2)+(SalarioSemanal*contigencia2)));
writeln('EL SALARIO SEMANAL ES DE: ',SueldoNeto:0:2);
End.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar