Cálculos de Sueldo, Porcentajes, Intereses e Identificación de Año Bisiesto

Vista previa del material en texto

Algoritmo sin_titulo
	definir sueldo,des,total,tiempo Como Real
	
	
	Escribir "Ingrese sueldo"
	leer sueldo
	Escribir "Ingrese tiempo que lleva trabajando si es menos de un año ingrese 0 y si su tiempo es un año y meses lo pone con decimales ejem 1 año y 3 meses seria 1.3"
	leer tiempo
	
	si (tiempo=0)Entonces
		des<-sueldo*0.05
	Sino 
		si (tiempo=1 o tiempo<2)Entonces
			des<-sueldo*0.07
		sino 
			si (tiempo=2 o tiempo<5)Entonces
				des<-sueldo*0.10
			sino 
				si (tiempo=5 o tiempo<10)
					des<-sueldo*0.15
					
				sino 
					si (tiempo>=10)entonces
						
						des<-sueldo*0.20
						
					FinSi
				FinSi
				
			FinSi
			
		FinSi
		
		
	FinSi
	total<-sueldo+des
	Escribir "su monto a recibir es",total
FinAlgoritmo
Ejercicio 2
Algoritmo sin_titulo
	Definir total,p1,p2,a,b Como entero
	
	Escribir "Ingrese cantidad total de Estudiantes"
	leer total
	Escribir "Ingrese cantidad de Estudiantes desaprobados"
	leer a
	Escribir "Ingrese cantidad de Estudiantes Aprobrados"
	leer b
	
 
	p1<-(a*100)/total
	p2<-(b*100)/total
	
	Escribir " El porcentaje de estudiantes desaprobados fue",p1
	Escribir " El porcentaje de estudiantes aprobados fue",p2
FinAlgoritmo
Ejercicio 3
	Algoritmo sin_titulo
		Definir a,b,c,d,e,i como real
		Escribir "Ingrese valor de la casa no mas de 100000"
		leer a
		i=2500
		b<-a-i
		c<-i*0.03
		Escribir "El interes inicial es",c
		d<-b*0.05
		Escribir "el interes restante es",d
		e<-c+d
		escribir "El cobro por asegurara es",e
 FinAlgoritmo
Ejercicio 4
Algoritmo sin_titulo
	Definir a Como Entero
	Escribir "ingrese año"
	leer a
	si (a=1800)Entonces
		Escribir "El año no es bisiesto"
	sino 
		si (a/4 es entero ) entonces
			Escribir "El año es bisiesto"
		sino 
			Si (a/400 es entero) entonces
				Escribir "El año es Bisisesto"
			sino 
				Escribir "El añi no es Bisisesto"
			FinSi
			
			
		FinSi
	FinSi
FinAlgoritmo