TUTORIALES

Parte 1

EJERCICIO 1

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

Elaborado por NeuroChispas

PASO 1: Se le pide al usuario que ingrese los valores de cada cateto.

cateto1 <- as.numeric(readline("Ingrese el primer cateto: "))
cateto2 <- as.numeric(readline("Ingrese el segundo cateto: "))

PASO 2: A continuacion se le muestra la operacion utilizando el comando “sqrt” para formar la raiz. Adicional se asigna nuestro resultado a un objeto llamado “hipotenusa”, la que nos permitira observar el valor de nuestra ecuacion.

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

PASO 3: Se le reflejara a continuacion el valor de la hipotenusa, con ayuda del comando”cat”.

cat("La hipotenusa es igual a: ", hipotenusa)

EJERCICIO 2

Escribe un programa que calcule las soluciones de una ecuacicion de segundo grado de la forma:

\(ax^2+bx+c\)

PASO 1: Hemos utilizado las variables x, y, z para cada valor de nuestra ecuacion. Seguido a esto pedimos a nuestro usuario ingresar dichos valores.

x <- as.numeric(readline("Ingrese el valor de a :  "))
y <- as.numeric(readline("Ingrese el valor de b :  "))
z <- as.numeric(readline("Ingrese valor de c :     "))

PASO 2: Se asigna nuestro resultado a dos objetos llamados “ecua1, ecua2”, la que nos permitira observar los valores de nuestras ecuaciones, ya que, en nuestras ecuaciones de segundo grado obtenemos 2 respuestas por nuestra raiz.

ecua1 <-((-y+sqrt((y^2)-4*x*z))) /(2*x)
ecua2 <-((-y-sqrt((y^2)-4*x*z))) /(2*x)

PASO 3: Utilizando nuestro comando “cat” imprimiremos nuestras respuestas.

cat("La solucion de una ecuaciC3n de segundo grado es: ", ecua1,ecua2)

EJERCICIO 3:

Escribe un programa que solicite calcular el área del triángulo rectángulo dadas su base y altura.

  • Paso 1: Identificar la fórmula del área de un triángulo rectángulo.

Elaborado por: neurochispas.com

  • Paso 2: Determinar las variables a utilizar, en este caso utilizamos la variable “base” y “altura”.

  • Paso 3: Identificar a la variable “base” y “altura” como numérica, utilizando la función “as.numeric()”.

  • Paso 4: Déspues, dentro de la anterior función se utiliza la función “readline()”, para que el usuario pueda ingresar valores desde la consola, luego entre paréntesis se ingresa un mensaje con el cual se específica la información que se necesita que ingrese el usuario en la consola. Con lo cual hasta ahora tendremos el código en R, de la siguiente manera:

base <- as.numeric(readline("Por favor, ingrese el valor de la BASE del triángulo rectángulo (en centímetros): "))
## Por favor, ingrese el valor de la BASE del triángulo rectángulo (en centímetros):
altura <- as.numeric(readline("Por favor, ingrese el valor de la ALTURA del triángulo rectángulo (en centímetros): "))
## Por favor, ingrese el valor de la ALTURA del triángulo rectángulo (en centímetros):
  • Paso 5: Por último, aplicar la fórmula de triángulo rectángulo. Para eso utilizamos la función concatenar “cat()”, en la cual insertaremos el resultado en un objeto y lo presentaremos directamente en la pantalla, de la siguiente forma:
cat ("El área del triángulo rectángulo es: ", (base*altura)/2, "cm²")
## El área del triángulo rectángulo es:  NA cm²

Script del código en R:

cat ("Área del triángulo rectángulo, dadas sus base y altura \n")
## Área del triángulo rectángulo, dadas sus base y altura
base <- as.numeric(readline("Por favor, ingrese el valor de la BASE del triángulo rectángulo (en centímetros): "))
## Por favor, ingrese el valor de la BASE del triángulo rectángulo (en centímetros):
altura <- as.numeric(readline("Por favor, ingrese el valor de la ALTURA del triángulo rectángulo (en centímetros): "))
## Por favor, ingrese el valor de la ALTURA del triángulo rectángulo (en centímetros):
cat ("El área del triángulo rectángulo es: ", (base*altura)/2, "cm²")
## El área del triángulo rectángulo es:  NA cm²

EJERCICIO 4:

Escribe un programa que calcule el área y perímetro de un rectángulo dado su base y altura.

  • Paso 1: Identificar la fórmula del área y el perímetro de un rectángulo.

Elaborado por: neurochispas.com

  • Paso 2: Determinar las variables a utilizar, en este caso utilizamos la variable “base” y “altura”.

  • Paso 3: Identificar a la variable “base” y “altura” como numérica, utilizando la función “as.numeric()”.

  • Paso 4: Déspues, dentro de la anterior función se utiliza la función “readline()”, para que el usuario pueda ingresar valores desde la consola, luego entre paréntesis se ingresa un mensaje con el cual se específica la información que se necesita que ingrese el usuario en la consola. Con lo cual hasta ahora tendremos el código en R, de la siguiente manera:

base <- as.numeric(readline("Por favor, ingrese el valor de la BASE del rectángulo (en centímetros): "))
## Por favor, ingrese el valor de la BASE del rectángulo (en centímetros):
altura <- as.numeric(readline("Por favor, ingrese el valor de la ALTURA del rectángulo (en centímetros): "))
## Por favor, ingrese el valor de la ALTURA del rectángulo (en centímetros):
  • Paso 5: Por último, aplicar la fórmula para calcular el área y el perímetro de un rectángulo dado su base y altura. Para eso utilizamos la función concatenar “cat()” dos veces, en la cual insertaremos el resultado en dos objetos y lo presentaremos directamente en la pantalla, de la siguiente forma:
cat ("El área del rectángulo es: ", (base*altura), "cm²")
## El área del rectángulo es:  NA cm²
cat ("El área del rectángulo es: ", ((base*2)+(altura*2)), "cm²")
## El área del rectángulo es:  NA cm²

Script del código en R:

cat ("Área y perímetro de un rectángulo, dadas sus base y altura \n")
## Área y perímetro de un rectángulo, dadas sus base y altura
base <- as.numeric(readline("Por favor, ingrese el valor de la BASE del rectángulo (en centímetros): "))
## Por favor, ingrese el valor de la BASE del rectángulo (en centímetros):
altura <- as.numeric(readline("Por favor, ingrese el valor de la ALTURA del rectángulo (en centímetros): "))
## Por favor, ingrese el valor de la ALTURA del rectángulo (en centímetros):
cat ("El área del rectángulo es: ", (base*altura), "cm²")
## El área del rectángulo es:  NA cm²
cat ("El área del rectángulo es: ", ((base*2)+(altura*2)), "cm²")
## El área del rectángulo es:  NA cm²

Ejercicio 5

Programa para calcular el promedio de 3 notas que estén entre 0 y 20

Extraído de PNGWING

Paso 1: Pedirle al usuario que ingrese las notas correspondientes a los 3 parciales.

Paso 2: Usaremos la función “mean” para calcular el promedio de este conjunto de datos.

Paso 3: Mostramos los resultados en pantalla con la ayuda de “cat”

cat("PROMEDIO DE 3 NOTAS ")
nota1 <- as.numeric(readline("Por favor, ingrese la primera nota: "))
nota2 <- as.numeric(readline("Por favor, ingrese la segunda nota: "))
nota3 <- as.numeric(readline("Por favor, ingrese la tercera la nota: "))
promedio<-mean(nota1,nota2,nota3)
cat("La nota promedio es: ", promedio)

Ejercicio 6

Programa para calcular el área y perímetro de la circunferencia dado el radio

Extraído de PNGWING

Paso 1: Pedimos al usuario que ingrese el radio de la circunferencia.

Paso 2: Asignamos las fórmulas del área y perímetro de la circunferencia a dos variables que posteriormente imprimiremos en pantalla.

cat("Área y perímetro de una circunferencia")
r <- as.numeric(readline("Por favor, ingrese el radio de la circunferencia: "))
area<-pi*r^2
perimetro <- 2*pi*r
cat(" El área de la circunferencia es: ", area)
cat(" El perímetro de la circunferencia es: ", perimetro)

Ejercicio 7

Programa para calcular el área y perímetro de un trapecio dado su base mayor, base menor y altura.

Extraído de PNGWING

Paso 1: Se le pide al usuario los valores de la base mayor, base menor y altura del trapecio.

Paso 2: Asignamos las fórmulas del área y perímetro del trapecio a dos variables que posteriormente imprimiremos en pantalla.

cat("Área y perímetro de un trapecio")
B <- as.numeric(readline("Por favor, ingrese el valor de la base mayor: "))
b <- as.numeric(readline("Por favor, ingrese el valor de la base menor: "))
h <- as.numeric(readline("Por favor, ingrese la altura: "))
area <- ((B+b)*h)/2
perimetro <- B+b+2*h
cat(" El área del trapecio es: ", area)
cat(" El perímetro del trapcio es: ", perimetro)

Ejercicio 8:

Dados dos números, determinar cual es el número mayor y cual es el número menor, si los dos números son iguales el mensaje debe decir que son números iguales.

Elaborado por Apendiendo Matemáticas

Paso 1: Se le pide al usuario que ingrese dos números usando “readline”

num1<-as.numeric(readline("Ingrese el primer número: "))
num2<-as.numeric(readline("Ingrese el segundo número: "))

Paso 2: Creando un conjunto con los números ingresados, se usa el comando “max” para clacular el número mayor, y “min” para el menor.

cat("El número mayor es: ", max(c(num1,num2)))
cat("El número menor es: ", min(num1, num2))

Paso 3: En caso de que los dos números sean iguales, usaremos el condicional “If” para escribir un mensaje.

if(num1==num2){"Los dos números son iguales"}

Ejercicio 9:

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

Extraído de PNGWING

Paso 1: Se le pide al usuario que ingrese dos números usando “readline”.

n1<-as.numeric(readline("Ingrese el primer número: "))
n2<-as.numeric(readline("Ingrese el segundo número: "))

Paso 2: Usando “cat” mostraremos los resultados de las operaciones realizadas.

cat("La suma de los dos números es: ", n1+n2)
cat("La resta de los dos números es: ", n1-n2)
cat("El producto de los dos números es: ", n1*n2)
cat("La división de los dos números da: ", n1/n2)

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: Se le pide al usuario que ingrese el subtotal conocido usando “readline”.

st<-as.numeric(readline("Ingrese el valor subtotal: "))

Paso 2: Se realiza el cálculo del IVA, multiplicando el subtotal ingresado por 0.12, para así obtener el 12%. #### Paso 3: Se imprime los resultados en pantalla.

cat("El valor del IVA es: ", st*0.12)
cat("El valor  total a pagar es: ", st+(st*0.12))

Parte 2

EJERCICIO 1

Escribir un programa que pida la temperatura y si esta es en Fahrenheit o Celsius y presentar en pantalla su transformación en la otra medida.

Elaborado por Beamex

PASO 1: Asignando nuestra variable x, vamos a pedirle a nuestro usuario que ingrese “FA, CE” segun la temperatura que requiera.

x <- as.character(readline("Ingrese FA O CE SEGUN CORRESPONDA:  "))

PASO 2: En esta parte ingresaremos nuestra temperatura en grados.

num1 <- as.numeric(readline("Ingrese la temperatura:  "))

PASO 3: En esta parte debemos poner un condicionante “if” cuando deseamos que una operación se ejecute únicamente cuando una condición se cumple. Ayudandonos con nuestra variable “x” asignamos nuestra operacion.

if(x == "FA")
a<-((num1-32)/1.8)

PASO 4: En esta parte el usuario encontra el resultado de nuestro cambio de nuestra temperatura.Y viceversa.

cat("La transformacion a Celsius es:  ",a)
if(x == "CE")
b<-((num1*1.8)+32)
cat("La transformacion a Fahrenheit es:  ",b)

EJERCICIO 2

Escribir un programa que pregunte al usuario por el número de horas trabajadas y el coste por hora. Después debe mostrar por pantalla la paga que le corresponde, además debe preguntar si existen horas extras que tienen un valor diferente y con estos valores se calcule la paga correspondiente.

Elaborado por Fixner

PASO 1: Solicitaremos a nuestro usuario que ingrese losvalores de “horas, costo, extras”.

hora<-as.numeric(readline("Ingrese el numero de horas trabajadas :  "))
costo<-as.numeric(readline("Ingrese el costo de horas trabajadas :  "))
extras<-as.numeric(readline("Ingrese el numero de horas extras trabajadas :  "))

PASO 2: Con la ayuda de nuestro comando”cat” imprimiremos nuestro resultado, calculado el sueldo sin horas extras.

cat("Sueldo a recibir sin horas extras: ",(hora*costo))

PASO 3: Con la ayuda de nuestro comando”cat” imprimiremos nuestro resultado, calculado el sueldo con horas extras.

cat("Sueldo total a recibir: ",(hora*costo+extras))

Ejercicio 3:

Escribir un programa que lea un entero positivo, n, introducido por el usuario y después muestre en pantalla la suma de todos los enteros desde 1 hasta n. La suma de los n primeros enteros positivos puede ser calculada de la siguiente forma:

suma=n(n+1)/2

  • Paso 1: Determinar las variables a utilizar, en este caso la variable “n” y “suma”.

  • Paso 2: Identificar a la variable “n” como numérica, utilizando la función “as.numeric()”.

  • Paso 3: Dentro de la anterior función se utiliza la función “readline()”, para que el usuario pueda ingresar valores desde la consola, luego entre paréntesis se ingresa un mensaje con el cual se indica la información que se necesita que ingrese el usuario en la consola. De la siguiente manera:

n <- as.numeric(readline("Por favor, ingrese un número entero positivo: "))
## Por favor, ingrese un número entero positivo:
  • Paso 4: Asignar a la variable “suma” la fórmula con la cual se resuelve el ejercicio.
suma <- (n*(n+1)/2)
  • Paso 5: Por último, se utiliza la función “cat ()”, la cual imprime los resultados que se desea mostrar en la consola.
cat ("La suma de los enteros positivos desde 1 hasta ", n," es: ", suma )
## La suma de los enteros positivos desde 1 hasta  NA  es:  NA

Script del código en R:

n <- as.numeric(readline("Por favor, ingrese un número entero positivo: "))
## Por favor, ingrese un número entero positivo:
suma <- (n*(n+1)/2)
# -------------------------------------------------------------------------
cat ("La suma de los enteros positivos desde 1 hasta ", n," es: ", suma )
## La suma de los enteros positivos desde 1 hasta  NA  es:  NA

Ejercicio 4:

Escribir un programa que pida al usuario su peso (en kg) y estatura (en metros), calcule el índice de masa corporal y lo almacene en una variable, y muestre por pantalla la frase Tu índice de masa corporal es donde es el índice de masa corporal calculado redondeado con dos decimales.

  • Paso 1: Identificar la fórmula para calcular el índice de masa corporal.

Elaborado por: Cardiología y Deporte

  • Paso 2: Determinar las variables a utilizar, en este caso la variable “peso”, “estatura” e “imc”.

  • Paso 3: Identificar a la variable “peso” y “estatura” como numérica, utilizando la función “as.numeric()”.

  • Paso 4: Dentro de la anterior función se utiliza la función “readline()”, para que el usuario pueda ingresar valores desde la consola, luego entre paréntesis se ingresa un mensaje con el cual se indica la información que se necesita que ingrese el usuario en la consola. De la siguiente manera:

peso <- as.numeric(readline("Por favor, ingrese el peso (en kg): "))
## Por favor, ingrese el peso (en kg):
estatura <- as.numeric(readline("Por favor, ingrese la estatura (en metros): "))
## Por favor, ingrese la estatura (en metros):
  • Paso 5: Asignar a la variable “imc” la fórmula con la cual se resuelve el ejercicio.
imc <- peso/ (estatura^2)
  • Paso 6: Para redondear la variable “imc” a dos decimales se utiliza la función “round(),2”, de la siguiente forma:
imc <- round(peso/(estatura^2),2)
  • Paso 7: Por último, se utiliza la función “cat ()”, la cual imprime los resultados que se desea mostrar en la consola.
cat ("Tu índice de masa corporal es: ", imc)
## Tu índice de masa corporal es:  NA

Script del código en R:

peso <- as.numeric(readline("Por favor, ingrese el peso (en kg): "))
## Por favor, ingrese el peso (en kg):
estatura <- as.numeric(readline("Por favor, ingrese la estatura (en metros): "))
## Por favor, ingrese la estatura (en metros):
imc <- round(peso/(estatura^2),2)
# -------------------------------------------------------------------------
cat("Tu índice de masa corporal es: ", imc)
## Tu índice de masa corporal es:  NA

Ejercicio 5

Escribir un programa que pregunte al usuario una cantidad a invertir, el interés anual y el número de años, y muestre por pantalla el capital obtenido en la inversión.

Extraído de UNIR

Paso 1: Pedir al usuario que ingrese los valores correspondientes a la cantidad invertida, interés anual y tiempo de inversión.

Paso 2: Asignar la fórmula correspondiente al monto final e imprimir el resultado en pantalla.

cat("Capital obtenido por una inversión ")
inversion<- as.numeric(readline("Ingrese la cantidad que desea invertir: "))
tasa_interes<- as.numeric(readline("Ingrese la tasa de interes en porcentaje: "))
tiempo<- as.numeric(readline("Ingrese el tiempo de inversión: "))
capital <- (inversion*(tasa_interes/100)*tiempo)+inversion
cat("El capital obtenido es ",capital, "cuando se hace una inversion de ",
    inversion, "a una tasa de interes del ",tasa_interes, 
    "% en un tiempo de ",tiempo,"años")

Ejercicio 6

Realizar un programa que pida el tiempo ya sea en horas, minutos o segundos, luego indicar en qué tipo de tiempo desea transformar y luego presentar el resultado.

Paso 1: Pedirle al usuario que ingrese la cantidad de tiempo que desea transformar

Paso 2: Especificar el tipo de conversión requerida.

Paso 3: Usar el condicional “if” para imprimir el resultado deseado.

cat("Transformación del tiempo")
x<- as.numeric(readline("Ingrese el tiempo que desea transformar: "))
y<- as.numeric(readline("Que tipo de transformacion desea hacer
                         Transformación a segundos presione 1
                         Transformación a minutos presione 2 :"))

if(y==1){
  x1 <- x*3600
 cat(x," horas en segundos es:",x1)
}else {
  x1 <- x*60
  cat(x," horas en minutos es:",x1)
}

Ejercicio 7

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

Paso 1: Pedir al usuario que ingrese los números a ordenar.

Paso 2: Crear un conjunto de datos con los números ingresados.

Paso 3: Ordenar de forma ascendente y/o descendente con la ayuda de “sort” y “decreasing”.

cat("Programa para odernar números")
num1 <-as.numeric(readline("Ingrese el primer número: "))
num2 <-as.numeric(readline("Ingrese el segundo número: "))
num3 <-as.numeric(readline("Ingrese el tercer número: "))
num4 <-as.numeric(readline("Ingrese el cuarto número: "))
num5 <-as.numeric(readline("Ingrese el quito número: "))

numeros <- c(num1,num2,num3,num4,num5)

#Ordena de forma descendente
sort(numeros,decreasing = TRUE)
#Ordena de forma ascendente
sort(numeros,decreasing = FALSE)

Ejercicio 8:

Escribir un programa que calcule el factorial de un número que ha sido digitado por el usuario.

Paso 1: Pedirle al usuario que ingrese el número del cual desea calcular su factorial.

num<-as.numeric(readline("Ingrese su número: "))

Paso 2: Usaremos el comando “fact” para calcular el factorial de este número y lo imprimiremos en pantalla.

fact<-factorial(num)
cat("El factorial de ", num, "es: ", fact)

Ejercicio 9:

Escribir un programa que pida un número e indique si el número es primo o no.

Extraído de Wikimedia Commons

Paso 1: Instalaremos el paquete “primes” y abriremos su librería.

install.packages("primes")
library(primes)

Paso 2: Pediremos al usuario que ingrese el número que desea analizar.

num<-as.numeric(readline("Ingrese su número: "))

Paso 3: Usamos la funcion “is_prime” para determinar si el número es primo o no, e imprimimos el resultado en la pantalla usando el condicional “if”.

if(is_prime(num)==TRUE){"Su numero es primo"
  }else{"Su numero no es primo"}

Ejercicio 10:

Escribir un programa que pida un número e indique si el número es par o impar.

Paso 1: Pedimos al usuario que ingrese su número.

num<-as.numeric(readline("Ingrese su número: "))

Paso 2: Tras analizar el número par o impar con “%%2==0”, utilizaremos el condicional “if” para imprimir losresultados.

if(num%%2==0){"Su número es par"
}else{"Su número es impar"}