Practica 1

#Practica 1
cat("\014") 

nombre = "Jesús Leonel"
apellidoPaterno = "Arce"
apellidoMaterno =" Valdez"
fechaNac = "07/12/1985"
sueldoAprox = 8232.24

longnombre=nchar(nombre)
paterno=nchar(apellidoPaterno)
materno=nchar(apellidoMaterno)
cat("\014","Nombre=",nombre, "\nApellidos=", apellidoPaterno, apellidoMaterno,"\nFecha de nacimiento=", fechaNac,"\nSueldo aproximado por quincena=",sueldoAprox)

##  Nombre= Jesús Leonel 
## Apellidos= Arce  Valdez 
## Fecha de nacimiento= 07/12/1985 
## Sueldo aproximado por quincena= 8232.24

if (is.character(nombre)==TRUE)
  cat(nombre)

## Jesús Leonel

if (is.double(sueldoAprox)==TRUE)
  cat(sueldoAprox)

## 8232.24

if(longnombre>paterno){
  if(longnombre>materno){
    cat("El nombre es el de mayor extencion=",nombre,"\nla longitud es=",longnombre)
  }
}

## El nombre es el de mayor extencion= Jesús Leonel 
## la longitud es= 12

if(paterno>longnombre){
  if(paterno>materno){
    cat("El apellido paterno es el de mayor extencion=",apellidoPaterno,"\nla longitud es=",paterno)
  }
}

if(materno>longnombre){
  if(materno>paterno){
    cat("El apellido materno es del de mayor extencion=", apellidoMaterno,"\n la longitud es=",materno)
  }
}
  
if (sueldoAprox<=1000)
  print("sueldo es bajo")

if(sueldoAprox>1000 & sueldoAprox<=3000)
  print("sueldo medio")

if(sueldoAprox>3000)
  print("sueldo alto")

## [1] "sueldo alto"