Pascal/Turbo Pascal - ayuda estoy atorado con este programa

   
Vista:

ayuda estoy atorado con este programa

Publicado por freddy (2 intervenciones) el 13/04/2015 23:49:58
necesito ayuda para la estructura de este programa no entiendo como va la verdad, si tienen alguna idea o sugerencia seria de ayuda. lo que pide es lo siguiente

hacer un programa en pascal que calcule el sueldo quincenal y mensual de una persona, el seguro social y el impuesto que se paga ala seniat esa persona gana al año 120000
a) se requiere una estructura condicional (while)
b) si la cantidad da negativo emitir un mensaje

les dejo un capture de como despegue cada suma según lo pedido
IMG_20150413_083248

el impuesto que debe pagar creo que no es calculable ya que según los estándares de mi país tendrías que ganar 150000 anualmente para declarar impuesto.
seria de esta manera 150 que bale una unidad de impuesto se veria asi 150*1000= 150000
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 estoy atorado con este programa

Publicado por ramon (2072 intervenciones) el 14/04/2015 12:50:23
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
{Mira no entiendo bien loquee quieres mira esto si es algo diferente aclárame mas todo }
 
program salario;
  uses
     crt;
  const
     salar : longint = 120000;
     max : longint = 150000;
 
   var
     mens, quinc : real;
 
   begin
      mens := 0.0;
      quinc := 0.0;
      mens := salar / 12;
      quinc := mens / 2;
      if salar >= max then
      begin
         {Si es mayor calculamos impuesto}
      end
   else
      begin
         writeln('   Salario Anual     = ',salar);
         writeln('   Salario Mensual   = ',mens:0:2);
         writeln('   Salario Quincenal = ',quinc:0:2);
         {Aqui la seguridad social pero faltan datos
          cuanto paga de seguridad social el trabajador
          y de donde saca la cantidad del total mensual,
          o cota fija}
         writeln('   Pulse Una Tecla');
         readkey;
      end;
 
   end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

ayuda estoy atorado con este programa

Publicado por freddy join52630@hotmail.com (2 intervenciones) el 14/04/2015 17:08:56
hola ramon excelente el programa ya tengo claras algunas cosas el salario de 120000 es un salario hipotetico asi que se toma como salario maximo, y me preguntabas como saque el los calculos de salario y seguro social aqui te dejo un enlace en el que estan los calculos asi quedas claro en es parte.

http://www.lozadarivera.com/calcularAportes.htm

la otra cosa es si me puedes aclarar lo de la estructura while ya que no entiendo como usarla con estas variables lo e visto que se usa es con tablas de calculo con un numero estimado de veces que se repite
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

ayuda estoy atorado con este programa

Publicado por ramon (2072 intervenciones) el 14/04/2015 22:39:43
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
44
45
{Mira si esto te sirve}
program salario;
  uses
     crt;
  const
     salar : longint = 120000;
     max : longint = 150000;
 
   var
     mens, quinc : real;
     seguri : real;
     tanto : real;
     cont : integer;
 
   begin
      clrscr;
      mens := 0.0;
      quinc := 0.0;
      seguri := 0.0;
      mens := salar / 12;
      quinc := mens / 2;
      if salar >= max then
      begin
         {Si es mayor calculamos impuesto}
      end
   else
      begin
         writeln('   Salario Anual     = ',salar);
         writeln('   Salario Mensual   = ',mens:0:2);
         writeln('   Salario Quincenal = ',quinc:0:2);
      cont := 1;
      while cont <> 13 do
      begin
         tanto := (mens * 4) / 100;
         seguri := seguri + tanto;
         cont := cont + 1;
      end;
         writeln('   Seguridad Social Anual   = ',seguri:0:2);
         writeln('   Seguridad Social Mensual = ',seguri / 12:0:2);
         writeln('   Seguridad Social Diaria  = ',seguri / 365:0:2);
         writeln('   Pulse Una Tecla');
         readkey;
      end;
 
   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

ayuda estoy atorado con este programa

Publicado por dario dariodr32@yahoo.com (20 intervenciones) el 14/04/2015 15:45:24
A ver si esto esta bien.
Saludos.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var
	salario,mensual,quincenal,sso1,seguro:real;
	lunes:byte;
begin
	clrscr;
	write('Ingrese salario: ');
	readln(salario);
	if salario > 0 then begin
		write('Cuantos dias lunes tiene el mes: ');
		readln(lunes);
		mensual:=salario/12;
		quincenal:=mensual/2;
		sso1:=(mensual*12/52);
		seguro:=(sso1*0.04*lunes);
		writeln('Salario mensual = ',mensual:4:2);
		writeln('Salario quincenal = ',quincenal:4:2);
		writeln('Seguro social = ',seguro:4:2);
	end;
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