Pascal/Turbo Pascal - No se formular las siguientes operaciones. (Todo esto hecho en Lazarus)

 
Vista:
sin imagen de perfil
Val: 2
Ha disminuido su posición en 23 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

No se formular las siguientes operaciones. (Todo esto hecho en Lazarus)

Publicado por aBe (1 intervención) el 25/11/2020 23:02:22
1) En un hospital existen 3 areas: Urgencia, Pediatria y Traumatologia. El presupuesto anual del hospital se reparte de la siguiente manera, calcular el presupuesto de cada area.

Area // Presupuesto

Urgencia // 37%
Pediatria // 42%
Traumatogia // 21%

Escribir un programa que pida el nombre de un trabajador, el sexo (M/F), fecha de ingreso, sueldo mensual y el porcentaje de retención del I.S.L.R, calcule el monto neto a cobrar, una vez deducido el impuesto. El programa debe mostrar la siguiente salida:
RETENCION DE I.S.L.R
Nombre del trabajador: xxxxxxxxxxxxxxxxxxx Sexo : X
Sueldo mensual (Bs) : xxxxxx,xx Porcentaje retención : xx,xx%
Impuesto retenido (Bs) : xxxxxx,xx
Total a cobrar : xxxxxx,xx .
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
sin imagen de perfil
Val: 287
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

No se formular las siguientes operaciones. (Todo esto hecho en Lazarus)

Publicado por dario (87 intervenciones) el 26/11/2020 04:39:59
Ejercicio Nro 1, espero esto te ayude.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
const
	p_urgencia = 0.37;
	p_pediatria = 0.42;
	p_trauma = 0.21;
var
	presupuesto_anual:real;
	urgencia,pediatria,trauma:real;
begin
	clrscr;
	write('Ingrese presupuesto anual: ');
	readln(presupuesto_anual);
 
	{calculo de los presupuestos}
	urgencia:= presupuesto_anual * p_urgencia;
	pediatria:= presupuesto_anual * p_pediatria;
	trauma:= presupuesto_anual * p_trauma;
 
	writeln('Urgencia 37% = ',urgencia:4:2);
	writeln('Pediatria 42% = ',pediatria:4:2);
	writeln('Traumatologia 21% = ',trauma:4: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