Autores
-Alexander Cueva
-Alexander Jiménez
-Ismael Montesdeoca
-Saul Quishpe
Curso
En el presente documento podrá encontrar 20 diferentes ejercicios que fueron elaborados en el programa RStudio, cada uno con su respectivo planteamiento del problema.Elabore un programa el cual solicite al usuario ingrese los valores de Solicitar los dos catetos de un triángulo rectángulo y mostrar su hipotenusa. • Solicitar al usuario ingresar los valores de las variables a utilizar y la fórmula para obtener la hipotenusa.
{r }
cat1<-as.numeric(readline(“Ingrese el valor del cateto mayor:”))
cat2<-as.numeric (readline (“Ingrese el valor del cateto menor:”))
hipotenusa<-sqrt((cat1.cat1)+(cat2.cat2))
hipotenusa
Elabore un programa que calcule las soluciones de una ecuación de segundo grado de la forma ax2+bx+c=0ax2+bx+c=0
•Ingreso de valores en las 3 variables (a,b,c)
{r }
a<-as.nuneric(readline(“Escribe el primer valor de a:”))
b<-as.nuneric(readline(“Escribe el primer valor de b:”))
c<-as.nuneric(readline(“Escribe el primer valor de c:”))
discrim<-((b^2)-(4.a.c))
Solu1<-((-b-(sqrt(discrim)))/2*a))
Solu1<-((-b+(sqrt(discrim)))/2*a))
Cat(“La ecuación es:”,a,“x^2+”,b, “x+”,c,“=0,”las raíces de la ecuación son: “,”“,”X1 es igual a: ” , Solu1, “n"”X2 es igual a: “,Solu2,”n")
Elabore un programa para calcular el área del triángulo rectángulo dadas su base y altura•Ingreso de valores de base y altura
{r }
b<-as.numeric(readline(“Ingresar número para el valor de la base:”))
h<-as.numeric(readline(“Ingresar número para el valor de la altura:”))
•A continuación se presentan las fórmulas que se necesitan para calcular el área
area<-b*h
perimetro<-(2.h+2.b)
•Utilizamos cat para que el usuario coloque las variables
cat(“El área de dicho rectángulo es”, area, “cm^2”) cat(“El área de dicho perímetro es”, perimetro, “cm”)
Elabore un programa para calcular el área y perímetro de un rectángulo dado su base y altura{r}
num7<-as.numeric(readline(“Ingrese la base”))
num8<-as.numeric(readline(“Ingrese la atura”))
cat(“EL AREA DEL RECTANGULO:”, (num7*num8))
cat(“EL PERIMETRO DEL RECTANGULO:”, (num72)+(num82))
Elabore un programa para calcular el promedio de 3 notas que estén entre 0 y 20{r}
cat(“Calcular el promedio de 3 notas que estén entre 0 y 20”)
x <- as.numeric(readline(“Ingrese el valor de la primera nota. ”))
y <- as.numeric(readline(“Ingrese el valor de la segunda nota. ”))
z <- as.numeric(readline(“Ingrese el valor de la tercera nota. ”))
prom <- ((x+y+z)/3)
cat(“El promedio es de”,prom,“sobre 20”)
Elabore un programa para calcular el área y perímetro de la circunferencia dado el radio{r}
cat(“Calcular el área y perímetro de la circunferencia dado el radio”)
a <- as.numeric(readline(“Ingrese el valor del radio de la circunferencia. ”))
area <- (pi*(a^2))
perimetro <- (2.pi.a)
cat(“El area de la circunferencia es”,area)
cat(“El perimetro de la circunferencia es”,perimetro)
Elabore un programa para calcular el área y perímetro de un trapecio dado su base mayor, base menor y altura.{r}
cat(“Calcular el área y perímetro de un trapecio dado su base mayor, base menor y altura.”)
m <- as.numeric(readline(“Ingrese el valor de la base mayor. ”))
n<- as.numeric(readline(“Ingrese el valor de la base menor. ”))
h <- as.numeric(readline(“Ingrese el valor de la altura. ”))
a <- ((m+n)*(h/2))
l <- (((((m-n)/2)2)+(h2))^(1/2))
p <- (l+l+m+n)
cat(“El area del trapecio es”,a)
cat(“El perimetro del trapecio es”,p)
Elabore un programa para 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 (dados dos números) {r}
cat(“Identificar cual es menor, mayor o son iguales”)
x <- as.numeric(readline(“Ingrese primer número. ”))
y <- as.numeric(readline(“Ingrese segundo número. ”))
cat(“LOS DOS NÚMEROS SON:”, x,” “, y)
if(x<y) {
cat (“El segundo número es mayor:”,y)
}
if(x>y) {
cat (“El primer número es mayor:”,x)
}
if(x==y) {
cat (“Son iguales los dos:”,x,” “, y)
}
Elabore un programa que lea dos números y muestre en la salida su suma, resta, multiplicación y división{r}
cat(“OPERACIONES MATEMÁTICAS DE 2 CANTIDADES”)
x <- as.numeric(readline(“Ingrese primer número. ”))
y <- as.numeric(readline(“Ingrese segundo número. ”))
cat(“los números son:”, x ,” “, y )
cat (” multiplicación: “,x*y, “suma:”,x+y,“resta”, x-y,“división:”,x/y)
Elabore un programa que pida una cantidad en dólares y como resultado se visualice el IVA (12%) y el valor total a pagar{r}
cat(“Ingrese cantidad”)
x <- as.numeric(readline(“Ingrese el valor en dólares ”))
cat(” Valor base es: $“, x,”El 12% del valor es: $“, x0.12, “El valor total es: $”, x+(x0.12) )
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.{r}
cat(“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.”)
grad<-as.numeric(readline(“Ingrese la temperatura:”))
tipo<-as.character(readline(“Ingrese (C) si es Celcius y (F) si es Fahrenheit:”))
if(tipo==“C”) {cel <- ((grad-32)/1.8) cat(“La transformación de”,grad,“° Celcius a Fahrenheit es”,cel,“”)}
if(tipo==“F”)
{cel <- ((grad*1.8)+32)
cat(“La transformación de”,grad,“° Fahrenheit a Celcius es”,cel,“”)}
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{r}
cat(“Calcular el valor de horas trabajadas, coste por hora y horas extras”)
hora<-as.numeric(readline(“Ingrese el número de horas trabajadas:”))
coste<-as.numeric(readline(“Ingrese el costo por hora trabajada:”))
extra <- as.numeric(readline(“Ingrese el número de horas extras trabajadas:”))
vnorm <- hora*coste
cosext <- (coste+(coste/2))
vextra <- extra*cosext
ptotal <- vextra+vnorm
cat(“El valor a pagar sin horas extras es:”,vnorm,“”)
cat(hora,“horas * $”,coste,” =“,vnorm)
cat(“El valor a pagar con horas extras es:”,ptotal,“”)
cat(“El valor a pagar $”,vnorm,“+ $”,vextra,“por extras = $”,ptotal)
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{r}
cat( “Ingresar un número entero y mostrar la suma de todos los enteros desde 1 hasta n.”)
n <- as.numeric(readline(“Introduce un número entero:”))
suma<-(n*(n+1)/2)
cat(“La suma de los enteros ´positivos desde 1 hasta”,n,“es”, suma)
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 <imc> donde <imc> es el índice de masa corporal calculado redondeado con dos decimales{r}
cat(“ ÍNDICE DE MASA CORPORAL”)
peso<-as.numeric(readline(“Ingrese su peso en kg, por favor :”))
estatura<-as.numeric(readline(“Ingrese su peso en metros, por favor :”))
imc<-(peso/(estatura^2))
imc
imc1<-round(imc,2)
cat(“ Tu índice de masa corporales de :”, imc1)
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.{r}
cat(“CAPITAL OBTENIDO EN LA INVERSIÓN”)
inversion<-as.numeric(readline(“Ingrese la cantidad que desea invertir : $”))
tasa_interes<-as.numeric(readline(“Igrese la tasa de interés anual dado :”))
años<-as.numeric(readline(“Ingrese el número de años :”))
capital<-(inversion.(tasa_interes/100).años)+inversión
cat(“El capital total que se va ha invertir es de : $”,capital,“a una tasa de interés del :”,tasa_interes,” % y a un número de años de :“,años)
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.{r}
cat(“Ingresar el tiempo en horas o minutos y transformar al tiempo indicado.”)
h<-as.numeric(readline(“INGRESE SU TIEMPO:”))
tipo<-as.character(readline(“Ingrese (H) si está en horas o (M) si está en minutos:”))
if(tipo==“H”)
{seg <- (h*3600)
min<-(h*60)
cat(“Su hora transformada a minutos es:”,min,“”)
cat(“Su hora transformada a segundos es:”,seg,“”)}
if(tipo==“M”)
{seg<-(h*60)
cat(“Sus minutos transformados a segundos es:”,seg,“”)}
Escribir un programa en el que se digiten varios números y luego los números se presenten en pantalla ordenados.{r}
cat(“Ingresar 5 números y se mostrarán de forma ascendente.”)
n1<-as.numeric(readline(“INGRESE EL PRIMER NÚMERO:”))
n2<-as.numeric(readline(“INGRESE EL SEGUNDO NÚMERO:”))
n3<-as.numeric(readline(“INGRESE EL TERCER NÚMERO:”))
n4<-as.numeric(readline(“INGRESE EL CUARTO NÚMERO:”))
n5<-as.numeric(readline(“INGRESE EL QUINTO NÚMERO:”))
números<-c(n1,n2,n3,n4,n5)
cat(“LOS NÚMEROS ORDENADOS DE FORMA ASCENDENTE:”,sort(números))
Escribir un programa que calcule el factorial de un número que ha sido digitado por el usuario.{r}
cat(“Escribir un programa para calcular el factorial de un número”)
x<-as.numeric(readline(“Ingrese un número:”))
fac<-factorial(x)
cat(“El número factorial es:”,fac)
Escribir un programa que pida un número e indique si el número es primo o no{r}
numero <- as.numeric(readline(“INGRESE UN NUMERO POR FAVOR:”))
i<-1
c<-0
while ( i <= numero ) {
if ( numero %% i == 0 ){
c<-c+1
}
i<-i+1
}
if ( c==2 ) {
cat(“EL NUMERO ES PRIMO”)
} else {
cat (“EL NUMERO NO ES PRIMO”)
}
Escribir un programa que pida un número e indique si el número es par o impar.{r}
cat(“Escribir un programa que pida un número e indique si el número es par o impar”)
x<-as.numeric(readline(“Introduzca un numero:”))
par<-(x%%2==0)
imp<-(x%%2==1)
cat(“”,“El número introducido”,num,” es par:“,par,”“,”El número introducido “,num,” es impar:“,imp)