TALLER 4
GRUPO 3
2024-11-24
EJERCICIOS TALLER 2
##EJERCICIO#1
cat(“Porgrama que cacula la hipotenusa de un triangulo”)
cateto1<-as.numeric(readline(“Ingrese el cateto adyacente:”))
cateto2<-as.numeric(readline(“Ingrese el cateto opuesto:”))
if(cateto1 <= 0 | cateto2 <= 0)
print(“Las longitudes y medidas físicas son valores no negativos, por definición”)else
{cat(“La Hipotenusa es:”, sqrt((cateto1^2) + (cateto2^2)), “”)}
##EJERCICIO#2
#2: Escribe un programa que calcule las soluciones de una ecuación de segundo grado de la forma ax2+bx+c=0
#Valor de a: a <-as.numeric(5)
b <-as.numeric(19)
c <-as.numeric(8)
num1 <- (-b + sqrt(b^2 + 4ac)) / (2*a)
num2 <- (-b - sqrt(b^2 + 4ac)) / (2*a)
cat(“El valor de x1 es:”, num1, “”) cat(“El valor de x2 es:”, num2, “”)
##EJERCICIO#3
#3 Solicitar la base y la altura del triángulo
base <- as.numeric(readline(prompt = “Ingrese la base del triángulo rectángulo:”)) altura <- as.numeric(readline(prompt = “Ingrese la altura del triángulo rectángulo:”))
area <- (1/2) * base * altura
cat(“El área del triángulo rectángulo es:”, area, “”)
##EJERCICIO#4
cat(“Porgrama que cacula el area y perimetro de un rectangulo”)
base<-as.numeric(readline(“Ingrese la base del reactángulo:”))
altura<-as.numeric(readline(“Ingrese la altura del rectángulo:”))
if((base <= 0 | altura <= 0) | (base == altura))
print(“Las longitudes y medidas físicas son valores no negativos, tampoco pueden ser iguales por definición.”)else
{cat(“El Area del Rectángulo es:”, base * altura)
cat(” El perimetro del Rectángulo es:“, 2 *(base + altura))}
##EJERCICIO#5
cat(“Porgrama que cacula el promedio entre tres notas entre 0 y 20”)
nota1<-as.numeric(readline(“Ingrese la primera nota:”))
nota2<-as.numeric(readline(“Ingrese la segunda nota:”))
nota3<-as.numeric(readline(“Ingrese la tercera nota:”))
if ((nota1 < 0 | nota1 > 20) | (nota2 < 0 | nota2 > 20) | (nota3 < 0 | nota3 > 20)) { print(“Las notas deben estar entre 0 y 20.”)
} else {
promedio <- (nota1 + nota2 + nota3) / 3
cat(“El promedio de las 3 notas es:”, promedio, “”)
##EJERCICIO#6
#6: Calcular el área y perímetro de la circunferencia, dado el radio.
radio<- as.numeric(8)
perimetro <- 2pi(radio)
area <-pi*(radio)^2
cat(“Perímetro=”, perimetro , “”, “Área=”, area)
##EJERCICIO#7
#7: Calcular el área y perímetro de un trapecio dados su base mayor, base menor y altura.
a<-as.numeric(24)
b<-as.numeric(15)
h <- as.numeric(16)
l <- as.numeric(16
area = ((ab)/2)h
print(paste(“el area es de”, area))
##EJERCICIO#8
#Solicitar dos números
num1 <- as.numeric(readline(prompt = “Ingrese el primer número:”))
num2 <- as.numeric(readline(prompt = “Ingrese el segundo número:”))
if (num1 > num2) {
cat(“El número mayor es”, num1, “y el número menor es”, num2, “”)
} else if (num1 < num2) {
cat(“El número mayor es”, num2, “y el número menor es”, num1, “”)
} else {
cat(“Los dos números son iguales.”)
}
##EJERCICIO#9
cat(“Programa que pide al usuario dos valores y realiza las operaciones básicas ”)
valor1 <- as.numeric(readline(“Ingrese el primer valor: ”))
valor2 <- as.numeric(readline(“Ingrese el segundo valor: ”))
resultado_suma <- valor1 + valor2
resultado_resta <- valor1 - valor2
resultado_multiplicacion <- valor1 * valor2
resultado_division <- ifelse(valor2 != 0, valor1 / valor2, “La división entre 0 es una indeterminación”)
cat(“Suma:”, resultado_suma, “”)
cat(“Resta:”, resultado_resta, “”)
cat(“Multiplicación:”, resultado_multiplicacion, “”)
cat(“División:”, resultado_division, “”)
##EJERCICIO#10
#Pedir al usuario que ingrese la cantidad en dólares
cant_dolares <- as.numeric(readline(prompt = “Ingrese la cantidad en dólares:”))
valor_iva <- cant_dolares * 0.12
total_pagar <- cant_dolares + valor_iva
cat(“IVA (12%): $”, round(valor_iva, 2), “”)
cat(“Total a pagar: $”, round(total_pagar, 2), “”)
EJERCICIOS TALLER 3
###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.
cat(“Programa que pide la temperatura y si esta es en Fahrenheit o Celsius y presenta en pantalla su transformación en la otra medida”)
temperatura<-as.numeric(readline(“Ingrese la temperatura:”))
escala<-as.character(readline(“Ingrese la escala (Celcius o Fahrenheit)”))
if(escala == “celcius” | escala == “Celcius”){
convertidofare <- (temperatura * 9/5) + 32
cat(temperatura, “grados Celsius son”, convertidofare, “grados Fahrenheit.”)
}else if (escala == “fahrenheit” | escala == “Fahrenheit”){
convertidocelc <- (temperatura - 32) * 5/9
cat(temperatura, “grados Fahrenheit son”, convertidocelc, “grados Celsius.”)
}
###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.
cat(“Cálculo de la paga total considerando horas extras”)
horas_trabajadas <- as.numeric(readline(“Ingrese el número de horas trabajadas:”))
coste_por_hora <- as.numeric(readline(“Ingrese el coste por hora:”))
paga_base <- horas_trabajadas * coste_por_hora
respuesta_extras <- as.character(readline(“¿Existen horas extras? (sí/no):”))
if (respuesta_extras == “sí” || respuesta_extras == “si”) {
horas_extras <- as.numeric(readline(“Ingrese el número de horas extras:”))
coste_por_hora_extra <- as.numeric(readline(“Ingrese el coste por hora extra:”))
paga_extras <- horas_extras * coste_por_hora_extra
paga_total2 <- paga_base + paga_extras
cat(“La paga total correspondiente es:”, paga_total2, “dólares.”)
} else {
paga_total1 <- paga_base
}
cat(“La paga total correspondiente es:”, paga_total1, “dólares.”)
###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
cat(“Programa que suma todos los numeros de 1 hasta n”)
n <- as.integer(readline(“Ingrese un entero positivo:”))
if (n > 0) {
suma <- (n * (n + 1)) / 2
cat(“La suma de todos los enteros desde 1 hasta”, n, “es:”, suma, “”)
} else {
cat(“Por favor, ingrese un número entero positivo.”)
}
###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
##Cálculo de índice de masa corporal
x<-as.numeric(x)
y<-as.numeric(y)
if (x<=0 | y<=0) {
print (“Error: dato menor o igual a cero”)
} else {
x<-readline(prompt = “Ingrese su peso:”)
y<-readline(prompt = “Ingrese su estatura:”)
cat(“Su índice de masa corporal es:”,round(IMC<-x/y,2) )
###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
##Cálculo de valor futuro
VA<-as.numeric(VA)
r<-as.numeric(r)
n<-as.numeric(n)
if (VA<=0 | n<=0) { print(“Error: valor menor o igual a 0”) }
else { VA<-as.numeric(readline(prompt=“Ingrese su valor actual:” )) r<-as.numeric(readline(prompt = “Ingrese la tasa de interés:”)) n<-as.numeric(readline(prompt = “Ingrese el nùmero de periodos en meses:”)) cat(“El capital obtenido es:”, round(VF<-VA*(1+r)^n,2))
}
###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
##Cálculo de horas, minutos o segundos
r<-as.numeric(r))
t<-as.numeric(t)
k<-as.string(k)
k2<-as.string(k2)
k<-readline(prompt = “Seleccione si su tiempo està en horas, minutos o segundos:”)
t<-as.numeric(readline(prompt=“Ingrese su tiempo:”))
k2<-readline(prompt=“Convertir en:”)
if (k==“minutos” & k2==“horas”) {
r<-as.numeric(t/60)
cat(“Su tiempo en horas es:”,r,“”)
} else {
r<-as.numeric(t*60)
cat(“Su tiempo en segundos es:”,r,“”)
if (k==“segundos” & k2==“minutos”){
r<-as.numeric(t/60)
cat(“Su tiempo en minutos es:”,r,“”)
} else {
r<-as.numeric(t/3600)
cat(“Su tiempo en horas es:”,r,“”)
if (k==“horas” & k2==“segundos”){
r<-as.numeric(t*3600)
cat(“Su tiempo en segundos es:”,r,“”)
} else {
r<-as.numeric(t*60)
cat(“Su tiempo en minutos es:”,r,“”) }
} }
###EJERCICIO 7:
##Escribir un programa en el que se digiten varios números ##y luego los números se presenten en pantalla ordenados
cat(“programa que al ingresar numeros los ordena de menor a mayor ”)
num1<-as.numeric(readline(“ingrese cualquier numero”))
num2<-as.numeric(readline(“ingrese cualquier numero”))
num3<-as.numeric(readline(“ingrese cualquier numero”))
num4<-as.numeric(readline(“ingrese cualquier numero”))
orden <- c(num1,num2,num3,num4)
cat(“Los numeros ingresados ordenadamente son:”,sort(orden))
###EJERCICIO 8:
##Escribir un programa que calcule el factorial de un número que ha sido digitado por el usuario
cat(“programa que al ingreas un numero devierve su factorial ”)
num<-as.numeric(readline(“ingrese cualquier número”))
valor<-1
for( i in 1:num)
{
valor<-valor*i
}
cat(“El numeron factorial de valor ingresado es:”,valor)
###EJERCICIO 9:
##EJERCICIO 9 ##Escribir un programa que pida un número e indique si el número es primo o no
numr<-as.numeric(readline(“Ingrese un número:”))
c<-(sum(numr/1:numr==numr%/%1:num))
if (c==2){
cat(“el numero”,numr,“es primo”)
}else{
cat(“el numero”,numr,“no es primo”)
}
###EJERCICIO 10:
##Escribir un programa que pida un número e indique si el número es par o impar
cat(“programa que indica si el numero es par o impar”)
num_1<-as.numeric(readline(“ingrese un numero”))
if (num_1%%2==0) {
cat(“el numero”,num_1,“es par”)
} else {
cat(“el numero”,num_1,“es impar”)
}
R Markdown
This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.
When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:
summary(cars)## speed dist
## Min. : 4.0 Min. : 2.00
## 1st Qu.:12.0 1st Qu.: 26.00
## Median :15.0 Median : 36.00
## Mean :15.4 Mean : 42.98
## 3rd Qu.:19.0 3rd Qu.: 56.00
## Max. :25.0 Max. :120.00Including Plots
You can also embed plots, for example:
Note that the echo = FALSE parameter was added to the
code chunk to prevent printing of the R code that generated the
plot.