Colaborador: Mgtr.Fransisco Valverde

APRENDIENDO RMARKDOWN

Mis ejercicios en clase

Ejercicio 1

 Escribe un programa que solicite los catetos de un triángulo rectángulo y muestre su hipotenusa

Fórmula

\[hipotenusa=\sqrt(cateto1^2)+(cateto2^2)\]

Paso 1: Definimos 2 variables como numericas en la primera ingresamos el valor de un cateto y en la segunda ingresamos el valor del segundo cateto

Paso 2: Definimos una variable hipotenusa que estara asignada a la suma de los 2 catetos al cuadrado entre parentesis de un sqrt(la raiz cuadrada) de estos

Paso 3: con el comando CAT reflejamos el resultado

Codigo en Rstudio

cateto1<-as.numeric(readline("Ingrese el valor del primer cateto: "))
## Ingrese el valor del primer cateto:
cateto2<-as.numeric(readline("Ingrese el valor del segundo cateto: "))
## Ingrese el valor del segundo cateto:
cateto1<-4
cateto2<-3

hipotenusa<-sqrt((cateto1^2)+(cateto2^2))

cat("La hipotenusa del triangulo rectangulo es: ", hipotenusa)
## La hipotenusa del triangulo rectangulo es:  5

Ejercicio 2

Escribe un programa que calcule las soluciones de una ecuación de segundo grado de la forma ax^2+bx+c=0

Fórmula

\[ax^2+bx+c=0\]

Paso 1: Definimos 3 variables como numericas en la primera ingresamos el valor del primer componente de x^2 cateto, en la segunda ingresamos el valor del segundo comoponente de x y en la tercera ingresamos el valor correspondiente del tercer componente

Paso 2: Vamos a calcular el discriminante con el valor de las variables que seleccionamos anteriormente para esto obtenemos 2 soluciones que los asignaremos

Paso 3: con el comando CAT reflejamos el resultado

Codigo en Rstudio

a<-as.numeric(readline("Escriba el valor de a: "))
## Escriba el valor de a:
b<-as.numeric(readline("Escriba el valor de b: "))
## Escriba el valor de b:
c<-as.numeric(readline("Escriba el valor de c: "))
## Escriba el valor de c:
a<-2
b<-5
c<-2
discriminante<-(b**2-4*a*c)
solu1<-(-b-(sqrt(discriminante))/2*a)
solu2<-(-b+(sqrt(discriminante))/2*a)
cat("La ecuacion de segundo grado: ",a,"x^2+",b,"x +",c,"=0 \n\n",
    "Las raices de la ecuacion son: ","\n",
    "x1 es: ",solu1, "\n",
    "x2 es: ",solu2, "\n")
## La ecuacion de segundo grado:  2 x^2+ 5 x + 2 =0 
## 
##  Las raices de la ecuacion son:  
##  x1 es:  -8 
##  x2 es:  -2

Ejercicio 3

Calcular el área del triángulo rectángulo dadas su base y altura

Fórmula

\[área \ del\ triangulo= \frac{b*h}{2}\]

Paso 1: Definimos 2 variables como numericas en la primera ingresamos el valor de la base del triangulo y en la segunda ingresamos el valor de la altura

Paso 2: Vamos a calcular el area del triangulo que es igual a la multiplicacion de la base y la altura sobre 2

Paso 3: con el comando CAT reflejamos el resultado

Codigo en Rstudio

base<-as.numeric(readline("Ingrese la base del triangulo: "))
## Ingrese la base del triangulo:
altura<-as.numeric(readline("Ingrese la altura del triangulo: "))
## Ingrese la altura del triangulo:
base<-9
altura<-7
cat("El Area total es:",((base*altura)/2))
## El Area total es: 31.5

Ejercicio 4

Calcular el area y el perimetro de un rectangulo dado su base y su altura

Fórmula

\[ Perimetro \ P \ de \ un \ rectángulo \\ P = 2 l + 2 w \\ donde \ l \ es \ la \ longitud \ y \ w \ es \ el \ ancho \ del \ rectángulo\]

\[Área \ A \ de \ un \ rectángulo \\ A = lw \\ donde \ l \ es \ la \ longitud \ y \ w \ es \ el \ ancho\]

Paso 1: Definimos 2 variables como numericas en la primera ingresamos el valor de la base del rectangulo y en la segunda ingresamos el valor de la altura

Paso 2: Vamos a calcular el area del rectangulo que es igual a la multiplicacion de la base y la altura y calculamos el perimetro que es igual a 2 veces la base + 2 veces la altura del rectangulo

Paso 3: con el comando CAT reflejamos el resultado

Codigo en Rstudio

num7<-as.numeric(readline("Ingrese la base del rectangulo: "))
## Ingrese la base del rectangulo:
num8<-as.numeric(readline("Ingrese la altura del rectangulo: "))
## Ingrese la altura del rectangulo:
num7<-16
num8<-40
cat("El area del rectangulo es: ",(num7*num8), "\n ",
    "El perimetro del rectangulo es:", (2*num7)+(2*num8))
## El area del rectangulo es:  640 
##   El perimetro del rectangulo es: 112

Ejercicio 5

Calcular el promedio de 3 notas que estén entre 0 y 20

Paso 1: Definimos 3 variables como numericas en la primera ingresamos el valor de la nota individual, en la segunda ingresamos el valor de la nota grupal y en la tercera ingresamos el valor de la nota del examen

Paso 2: Vamos a calcular el promedio asignando la suma de estas 3 notas y dividiendo para 3

Paso 3: con el comando CAT reflejamos el resultado

Codigo en Rstudio

nota_individual<-as.numeric(readline("Ingrese su nota individual "))
## Ingrese su nota individual
nota_grupal<-as.numeric(readline("Ingrese su nota grupal "))
## Ingrese su nota grupal
nota_examen<-as.numeric(readline("Ingrese su nota examen "))
## Ingrese su nota examen
nota_individual<-15
nota_grupal<-17
nota_examen<-10

promedio<-(nota_individual + nota_grupal + nota_examen)/3

cat("Su nota final es", "\n", "Programacion: ", round(promedio, digits = 2))
## Su nota final es 
##  Programacion:  14

Ejercicio 6

Calcular el area y perimetro de la circunferencia dado el radio

Fórmula

\[área \ de\ la \ circunferencia = \pi*r^2\]

Paso 1: Definimos 1 variable como numerica e ingresamos el valor del radio de la circunferencia

Paso 2: Vamos a calcular el perimetro y el area, al perimetro le vamos asignar con la formula que es 2 pi r y al area le vamos asignar con la formula que es pi por r^2

Paso 3: con el comando CAT reflejamos el resultado

Codigo en Rstudio

r<- as.numeric(readline("Ingrese el valor del radio: "))
## Ingrese el valor del radio:
r<-8
perimetro <- 2*pi*(r)
area <-pi*(r)^2
cat("El perimetro de la circunferencia es: ", perimetro, "\n",
    "El area de la circunferencia es: ", area)
## El perimetro de la circunferencia es:  50.26548 
##  El area de la circunferencia es:  201.0619

Ejercicio 7

Calcular el área y perímetro de un trapecio dado su base mayor, base menor y altura

Fórmula

\[Perímetro \ del \ trapecio=\ AB+BC+CD+AD\]

\[Área \ del \ trapecio= \ h*\frac{(AD+BC)}{2}\]

Paso 1: Definimos 3 variables como numericas en la primera ingresamos el valor de la base mayor del trapecio, en la segunda ingresamos el valor de la base menor y en la tercera ingresamos el valor de la altura

Paso 2: Vamos a calcular el area y le vamos asignar como la base mayor + la base menor sobre 2 multiplicado su altura

Paso 3: con el comando CAT reflejamos el resultado

Codigo en Rstudio

bmayor<-as.numeric(readline("Ingrese la base mayor "))
## Ingrese la base mayor
bmenor<-as.numeric(readline("Ingrese la base menor "))
## Ingrese la base menor
altura<-as.numeric(readline("Ingrese la altura "))
## Ingrese la altura
bmayor<-8
bmenor<-10
altura<-25
cat("El area es: ", (bmayor+bmenor)/2*altura)
## El area es:  225

Ejercicio 8

Dados 2 numeros, determinar cual es el numero mayor y cual es el numero menor, si los dos numeros son iguales el mensaje debe decir que son numeros iguales

Paso 1: Para este ejercicio necesitaremos el uso de los comandos as.numeric para definir la variable, readline para poder leer valores dados por el usuario y cat la cual nos sirve para reflejar los resultados del ejercicio.

Paso 2: Vamos a definir 2 variables num1 y num2 como numéricas para poder ingresar los datos y hacer la comparativa de datos mayor, menor e igual.

Paso 3: Por ultimo con la función cat reflejamos un mensaje y el resultado de lo que nos pide el ejercicio en este caso si num1 es mayor que num2 o si los 2 son iguales.

Codigo en Rstudio

num1<-as.numeric(readline("Ingrese el primer numero: "))
## Ingrese el primer numero:
num2<-as.numeric(readline("Ingrese el segundo numero: "))
## Ingrese el segundo numero:
num1<-9
num2<-5
cat("El resultado para", num1, " es mayor que ", num2, " es: " ,num1>num2 )
## El resultado para 9  es mayor que  5  es:  TRUE
cat("El resultado para", num1, " es mmenor que ", num2, " es: " ,num1<num2 )
## El resultado para 9  es mmenor que  5  es:  FALSE
cat("El resultado para", num1, " es igual que ", num2, " es: " ,num1==num2 )
## El resultado para 9  es igual que  5  es:  FALSE
####Tambien podemos usar la funcion "If" y "else" para correr este programa 
num1<-5
num2<-8

if(num1>num2){
  print(paste("El numero ", num1, " es mayor que ", num2))
  
}else{
  if(num1<num2){
    print(paste("El numero ", num1, " es menor que ", num2))
  }else
    if(num1==num2){
      print(paste("El numero ", num1, " es igual que ", num2))
      }
  }
## [1] "El numero  5  es menor que  8"

Ejercicio 9

Escribe un programa que lea dos números y muestre en la salida su suma, resta, multiplicación y división

Paso 1: Definimos 2 variables como numericas en la primera ingresamos el valor de un numero y en la segunda ingresamos el valor del segundo numero

Paso 2: Vamos a calcular la suma, la resta, la multiplicacion y la division de estos

Paso 3: con el comando CAT reflejamos el resultado

Codigo en Rstudio

x<-as.numeric(readline("Ingrese el primer numero "))
## Ingrese el primer numero
y<-as.numeric(readline("Ingrese el segundo numero "))
## Ingrese el segundo numero
x<-26
y<-17

cat("La suma de los numeros es: ",x+y, "\n",
    "La resta de los numeros es: ",x-y, "\n",
    "La multiplicacion de los numeros es: ",x*y, "\n",
    "La division de los numeros es: ",x/y)
## La suma de los numeros es:  43 
##  La resta de los numeros es:  9 
##  La multiplicacion de los numeros es:  442 
##  La division de los numeros es:  1.529412

Ejercicio 10

Realice un Programa que pida una cantidad en dólares y como resultado se visualice el IVA (12%) y el valor total a pagar

Paso 1: Definimos 2 variables como numericas en la primera ingresamos el valor de la cantidad en dolares

Paso 2: Vamos a calcular el valor del IVA asignando la variable dolares multiplicado por el 0.12

Paso 3: con el comando CAT reflejamos el resultado

Codigo en Rstudio

dolares<-as.numeric(readline("Ingrese la cantidad en dolares: "))
## Ingrese la cantidad en dolares:
dolares<-1100
IVA<-dolares*0.12
cat("El valor del IVA es de: ",IVA)
## El valor del IVA es de:  132
cat("El valor total a pagar es de: ",IVA+dolares)
## El valor total a pagar es de:  1232

Ejercicio 11

Escribir un programa que pida la temperatura y si esta en F o C

Paso 1: Definimos 2 variables una como numerica y otra como caracter, en la numerica iran los grados y en la de caracter ira en que grados queremos la temperatura C o F

Paso 2: Con el comando IF crearemos una condicion donde pondremos las respectivas operaciones para sacar la tenperatura que se desea

Paso 3: con el comando CAT reflejamos el resultado

Codigo en Rstudio

t<-as.numeric(readline("Ingresar la temperatura: "))
## Ingresar la temperatura:
t<-50
medida<-as.character(readline("Ingrese si es Celsius una C y si es Farenheit una F"))
## Ingrese si es Celsius una C y si es Farenheit una F
medida<-"C"

if(medida=="C" | medida=="c"){
  farenheit<-(t*1.8)+32
  cat("Los grados en farenheit es: ",farenheit," F")
}else{
  celsius<-(t-32)/1.8
  cat("Los grados en Celsius es: ",celsius," C")
}
## Los grados en farenheit es:  122  F

Ejercicio 12

Un empleado de una fabrica de chocolates dese saber cuánto debería recibir de pago por su trabajo, para ello creamos un programa que realice los calculos correspondientes para el pago por hora, y ademas el pago por las horas extras. Para ello el empleado debe ingresar el numero de horas trabajadas y el numero de horas extras. 
El precio por horas es de ---------------------------------- $22 dolares 
El precio por cada hora extra es de ---------------------------------- $40 dolares

Paso 1: Ingresamos 2 variables de formato numerico este para reflejar las horas de trabajo

Paso 2: creamos 3 variables donde nos refleje el resultado que obtendremos mediante operaciones internas

Paso 3: Con la funcion CAT reflejamos los resultados obtenidos en las variables que creamos en el paso 2

Codigo en Rstudio

n<-as.numeric(readline("Ingrese el total de horas trabajadas:"))
## Ingrese el total de horas trabajadas:
ex<-as.numeric(readline("Ingrese el total de horas trabajadas:"))
## Ingrese el total de horas trabajadas:
n<-24
ex<-8

ht<-as.numeric(n*22)
hx<-as.numeric(ex*40)
sueldo<-as.numeric(ht*hx)


cat("El total por sus horas trabajadas es : $", ht, "dolares","\n",
" -El total por sus horas trabajadas es : $", hx, "dolares","\n\n",
" -El salario TOTAL que debe recibir es de: $", sueldo, "dolares **")
## El total por sus horas trabajadas es : $ 528 dolares 
##   -El total por sus horas trabajadas es : $ 320 dolares 
## 
##   -El salario TOTAL que debe recibir es de: $ 168960 dolares **

Ejercicio 13

La suma de numeros enteros

Paso 1: Crearenos 1 variable donde nos pida una variable de caracter numerico

Paso 2: creamos una variable donde nos incluya la operacion de suma esto incluida la variable anterior

Paso 3: Refleg=jamos el resuktado de la suma con la funcion CAT

Codigo en Rstudio

x<-as.numeric(readline("por favor introduzca un numero entero: "))
## por favor introduzca un numero entero:
x<-50
suma<-(x*(x+1))/2
cat("La suma de un numero entero es: ", suma)
## La suma de un numero entero es:  1275

Ejercicio 14

Saber el indice de masa corporal de una persona

Fórmula

\[Índice \ de \ masa \ corporal \\ IMC= \frac {peso}{estatura^2}\]

Paso 1: Asignamos 2 variables una que represente el peso y otro la estatura

Paso 2: creamos otra variable en donde se realice una division de 2 variables anteriores

Paso 3: Con la funcion ROUND redondearemos el resultado obtenido de la anterior operacion

Codigo en Rstudio

peso<-as.numeric(readline("Ingrese su peso en kilogramos"))
## Ingrese su peso en kilogramos
estatura<-as.numeric(readline("Ingrese su estatura a metros"))
## Ingrese su estatura a metros
peso<-60
estatura<-1.63
imc<-peso/estatura^2
cat("Su indice de masa corporal es de : ",round(imc,2))
## Su indice de masa corporal es de :  22.58

Ejercicio 15

Saber el capital de una empresa

Fórmula

\[Capital \ de \ una \ empresa \\ Capital=\ inversion * (1+tasa \ interes)^{años}\]

Paso 1: Asignamos 3 variables ina inversion, otra interes y la ultima años

Paso 2: sacamos los datos de la tasa de interes como una nueva variable y el capital

Paso 3: con la funcion CAT y round reflejamos el resultado

Codigo en Rstudio

inversion<-as.numeric(readline("INGRESE LA CANTIDAD INVERTIDA"))
## INGRESE LA CANTIDAD INVERTIDA
interes<-as.numeric(readline("INGRESE EL INTERES ANUAL"))
## INGRESE EL INTERES ANUAL
años<-as.integer(readline("INGRESE EL NUMERO DE AÑOS"))
## INGRESE EL NUMERO DE AÑOS
inversion<-50
interes<-300
años<-10



tasa_interes<-interes/100
capital<-inversion*(1+tasa_interes)^años

cat("El capital obtenido es: ",round(capital,digits = 2))
## El capital obtenido es:  52428800

Ejercicio 16

Realizar un programa que pida el tiempo ya sea en horas, minutos o segundos luego indicar en que tipo de tiempo desea transformar y luego prentar el resultado.
Una hora tiene 60 minutos, tiene 3600 segundos
Un minuto tiene 60 segundos

Paso 1: Debemos tener en cuenta los datos del tiempo, donde 1 hora contiene 60 minutos y 3600 segundos, 1 minuto contiene 60 segundos con estos datos tomados en cuenta se procede a realizar las operaciones respectivas para transformar lo que deseamos

Paso 2: para este ejercicio utilizaremos una sola variable pero en cada ejercicio usaremos ese dato para transformar el tiempo en minutos, segunso

Paso 3: con la funcion cat y las operaciones reralizaremos lo deseado y reflejamos los resultados del tiempo

Codigo en Rstudio

{
  t<-as.numeric(readline("Digite el numero de horas :"))
  t<-7
  cat("Transformacion de horas a minutos y segundos
      El numero de horas ingresadas equivale a: \n\n", t*(60/1), "minutos \n\n", t*(3600/1) , " segundos")
}
## Digite el numero de horas :
## Transformacion de horas a minutos y segundos
##       El numero de horas ingresadas equivale a: 
## 
##  420 minutos 
## 
##  25200  segundos
{
  t<-as.numeric(readline("Digite el tiempo en minutos: "))
  t<-8
  cat("Transformacion de minutos a horas y segundos
      El numero de minutos ingresados equivale a: \n\n", t*(1/60), " horas \n\n", t*(60/1), "segundos")
}
## Digite el tiempo en minutos: 
## Transformacion de minutos a horas y segundos
##       El numero de minutos ingresados equivale a: 
## 
##  0.1333333  horas 
## 
##  480 segundos
{
  t<-as.numeric(readline("Digite el tiempo en segundos: "))
  t<-12
  cat("Transformacion de segundos y horas a segundos
      El numero de minutos ingresados equivale a: \n\n", t*(1/60), " horas \n\n", t*(60/1), "segundos")
  
}
## Digite el tiempo en segundos: 
## Transformacion de segundos y horas a segundos
##       El numero de minutos ingresados equivale a: 
## 
##  0.2  horas 
## 
##  720 segundos

Ejercicio 17

Escribir un programa en el que se digiten varios números y luego los números se presenten en pantalla ordenados

Paso 1: Creamos 5 variables y que cada una de ellas sea a elccion por parte del usuario

Paso 2: concatenamos los archivos para poder unirlos y con esto agrupr todos los numeros en una sola variable

Paso 3: Con la funcion FACTOR SCAN y levels sacamos el resultado que en este caso sera agrupar los numeor y ordenarlos

Codigo en Rstudio

n1<-as.numeric(readline("INGRESE EL PRIMER NUMERO: "))
## INGRESE EL PRIMER NUMERO:
n1<-5
n2<-as.numeric(readline("INGRESE EL SEGUNDO NUMERO: "))
## INGRESE EL SEGUNDO NUMERO:
n2<-6
n3<-as.numeric(readline("INGRESE EL TERCER NUMERO: "))
## INGRESE EL TERCER NUMERO:
n3<-7
n4<-as.numeric(readline("INGRESE EL CUARTO NUMERO: "))
## INGRESE EL CUARTO NUMERO:
n4<-8
n5<-as.numeric(readline("INGRESE EL QUINTO NUMERO: "))
## INGRESE EL QUINTO NUMERO:
n5<-9
numeros<-c(n1,n2,n3,n4,n5)
cat("ORDENAR DE FORMA ACENDENTE: ", sort(numeros))
## ORDENAR DE FORMA ACENDENTE:  5 6 7 8 9
num<-factor(scan())
levels(num)
## character(0)

Ejercicio 18

Escribir un programa que calcule el factorial de un número que ha sido digitado por el usuario
Factorial Resultado
1! = 1
2! = 2(1) = 2
3! = 3(2)(1) = 6
4! = 4(3)(2)(1) = 24
5! = 5(4)(3)(2)(1) = 120
6! = 6(5)(4)(3)(2)(1) = 720
7! = 7(6)(5)(4)(3)(2)(1) = 5040
8! = 8(7)(6)(5)(4)(3)(2)(1) = 40320
9! = 9(8)(7)(6)(5)(4)(3)(2)(1) = 362880
10! = 10(9)(8)(7)(6)(5)(4)(3)(2)(1) = 3628800
… …

Paso 1: En este caso usaremos la función Fuction para poder definir una variable como función

Paso 2: También definiremos una función como numérica para decirle al usuario que ingrese un numero para realizar la operación planteada.

Paso 3: Por ultimo con el comando cat y fact reflejamos el resultado obtenido

Codigo en Rstudio

facto <- function(){
  n <- as.integer(readline("Ingrese por favor un numero para calcular el factorial: "))
  n<-30
  
  fact = 1
  for( i in 1:n) {
    fact = fact * i
  }
  cat("El factorial del valor", n,"!", "es:", fact )
}
facto()
## Ingrese por favor un numero para calcular el factorial: 
## El factorial del valor 30 ! es: 2.652529e+32
factorial(5)
## [1] 120

Ejercicio 19

 Escriba un numero e indique si es primo o no

Paso 1: Creamos una variable donde nos pida ingresar un numero

**Paso 2:* Con el signo % realizaremos la operacion de division y con ella obtendremo el cociente del ejercicio y si es primo o no

Paso 3: En la parte del resultado con el numero 2 puesto obtendremos la respuesta de la operacion anterior si es primo o no un numero

Codigo en Rstudio

numero<-as.numeric(readline("INGRESE UN NUMERO POR FAVOR: "))
## INGRESE UN NUMERO POR FAVOR:
numero<-8
p<-(sum(numero/1:numero==numero%/%1:numero))
p==2
## [1] FALSE

Ejercicio 20

Escriba un programa que pida un numero e indiques si el numero es par o impar

Paso 1: Pediremos al usuario que ingrese un numero cualquiera mediante una variable

Paso 2: Con el signo %% obtendremos un cociente de la division y con este sabremos si es par o impar dependiendo de lo que nos salga en una division para 2

Paso 3: Con la funcion CAT se obtendran 2 resultados uno donde el numero salga par o impar dependiendo del resultado este saltara un mensaje con las palabras en ingles TRUE o FALSE donde TRUE significa que es ese el resultado correcto

Codigo en Rstudio

num<-as.numeric(readline("Ingrese el numero a identificar: "))
## Ingrese el numero a identificar:
num<-50
par<-num %% 2 == 0
impar<-num %% 2 == 1

cat("El numero ingresado es par: ", par)
## El numero ingresado es par:  TRUE
cat("El numero ingresado es impar: ", impar)
## El numero ingresado es impar:  FALSE