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.

Temperatura establecida en Fahrenheit

fahrenheit_total <- (“Ingrese la temperatura en grados Fahrenheit:”)

Conversión

celsius_total <- (fahrenheit_total - 32) * 5/9

Mostrar resultado

resultado1 <- paste(“La temperatura en Celsius es:”, round(celsius_total, 2)) print(resultado1)

fahrenheit_total <- 95

celsius_total <- (fahrenheit_total - 32) * 5/9

resultado1 <- paste("La temperatura en Celsius es:", round(celsius_total, 2))
print(resultado1)

## [1] "La temperatura en Celsius es: 35"

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

Preguntar horas trabajadas

horas <- readline(“Ingresa el número de horas trabajadas:”) horas <- as.numeric(horas)

Preguntar costo por hora

costo <- readline(“Ingresa el costo por hora:”) costo <- as.numeric(costo)

Preguntar si hay horas extras

extra <- readline(“¿Existen horas extras? (si/no):”)

Cálculo de paga base

paga_total <- horas * costo

Verificar si hay extras

if (tolower(extra) == “si”) { horas_extra <- readline(“¿Cuántas horas extras trabajaste?:”) horas_extra <- as.numeric(horas_extra)

costo_extra <- readline(“¿Cuál es el costo por hora extra?:”) costo_extra <- as.numeric(costo_extra)

paga_total <- paga_total + horas_extra * costo_extra }

Mostrar resultado

print(paste(“Tu paga total es:”, paga_total))

# Datos establecidos
horas <- 40
costo <- 5
horas_extra <- 6
costo_extra <- 8

# Calcular paga
paga_total <- horas * costo + horas_extra * costo_extra

print(paste("Tu paga total es:", paga_total))

## [1] "Tu paga total es: 248"

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

Solicitar número entero positivo al usuario

n <- as.integer(readline(“Introduce un número entero positivo:”))

Validación

if (n > 0) {

Cálculo usando la fórmula

suma <- (n * (n + 1)) / 2

Mostrar resultado

print(paste(“La suma de los primeros”, n, “enteros positivos es:”, suma))} else {print(“Error: Debes ingresar un número entero positivo.”)}

n <- 10  

# Validación
if (n > 0) {
  # Cálculo usando la fórmula
  suma <- (n * (n + 1)) / 2
   # Mostrar resultado
  cat("La suma de los primeros", n, "enteros positivos es:", suma, "\n")} else { cat("Error: Debes ingresar un número entero positivo.\n")}

## La suma de los primeros 10 enteros positivos es: 55

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

Pedir peso

estatura <- dlg_input(“Ingresa tu estatura en metros:”)$res estaturatotal <- as.numeric(estatura)

Calcular IMC

imc <- pesototal / (estaturatotal^2)

Mostrar resultado

resultado <- paste(“Tu índice de masa corporal es”, round(imc, 2)) dlgMessage(resultado, type = “ok”)

# Datos establecidos
pesototal <- 70       # Peso en kilogramos
estaturatotal <- 1.68 # Estatura en metros

# Calcular IMC
imc <- pesototal / (estaturatotal^2)

# Mostrar resultado
resultado <- paste("Tu índice de masa corporal es", round(imc, 2))
print(resultado)

## [1] "Tu índice de masa corporal es 24.8"

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

Pedir cantidad a invertir

capital <- as.numeric(readline(“Ingresa la cantidad a invertir:”))

Pedir interés anual

interes <- as.numeric(readline(“Ingresa el interés anual (en %):”))

Pedir número de años

anios <- as.numeric(readline(“Ingresa el número de años:”))

Cálculo del capital final

capital_final <- capital * (1 + interes/100)^anios

Mostrar resultado

print(paste(“El capital obtenido después de”, anios, “años es:”, round(capital_final, 2)))

# Datos establecidos
capital <- 1000
interes <- 5
anios <- 3

# Cálculo del capital final
capital_final <- capital * (1 + interes/100)^anios

print(paste("El capital obtenido después de", anios, "años es:", round(capital_final, 2)))

## [1] "El capital obtenido después de 3 años es: 1157.63"

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

Pedir cantidad de tiempo

cantidad <- as.numeric(readline(“Ingresa la cantidad de tiempo:”))

Pedir unidad original

unidad_origen <- readline(“¿La cantidad ingresada está en horas, minutos o segundos?:”) unidad_origen <- tolower(unidad_origen)

Pedir unidad destino

unidad_destino <- readline(“¿A qué unidad deseas convertirlo(horas/minutos/segundos)?:”) unidad_destino <- tolower(unidad_destino)

Convertir todo primero a segundos

if (unidad_origen == “horas”) {segundos <- cantidad * 3600} else if (unidad_origen == “minutos”) {segundos <- cantidad * 60} else if (unidad_origen == “segundos”) {segundos <- cantidad} else {print(“Unidad de origen no válida.”)}

Convertir de segundos a la unidad destino

if (unidad_destino == “horas”) {resultado <- segundos / 3600} else if (unidad_destino == “minutos”) {resultado <- segundos / 60} else if (unidad_destino == “segundos”) {resultado <- segundos} else {print(“Unidad de destino no válida.”)}

Mostrar resultado

print(paste(cantidad, unidad_origen, “equivalen a”, round(resultado, 2),unidad_destino))

# Valores establecidos
cantidad <- 2
unidad_origen <- "horas"
unidad_destino <- "minutos"

# Convertir origen a segundos
if (unidad_origen == "horas") {
  segundos <- cantidad * 3600
} else if (unidad_origen == "minutos") {
  segundos <- cantidad * 60
} else {
  segundos <- cantidad
}

# Convertir a destino
if (unidad_destino == "horas") {
  resultado <- segundos / 3600
} else if (unidad_destino == "minutos") {
  resultado <- segundos / 60
} else {
  resultado <- segundos
}

print(paste(cantidad, unidad_origen, "equivalen a", round(resultado, 2), unidad_destino))

## [1] "2 horas equivalen a 120 minutos"

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

# Lista de números desordenados
numeros <- c(12, 3, 45, 7, 1, 30, 9, 4, 22)

# Ordenar de menor a mayor
ordenados <- sort(numeros)

cat("Numeros ingresados (desordenados):\n")

## Numeros ingresados (desordenados):

print(numeros)

## [1] 12  3 45  7  1 30  9  4 22

cat("Numeros ordenados de menor a mayor:\n")

## Numeros ordenados de menor a mayor:

print(ordenados)

## [1]  1  3  4  7  9 12 22 30 45

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

Solicitar número al usuario

num <- as.numeric(readline(“Ingresa un número para calcular su factorial:”))

Inicializar factorial

factorial <- 1

Validación y cálculo

if (num >= 0) { for (i in 1:num) { factorial <- factorial * i } print(paste(“El factorial de”, num, “es:”, factorial)) } else { print(“Error: Debes ingresar un número entero no negativo.”) }

num <- 6

factorial <- 1
for (i in 1:num) {factorial <- factorial * i}

print(paste("El factorial de", num, "es:", factorial))

## [1] "El factorial de 6 es: 720"

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

Solicitar número

num <- as.numeric(readline(“Ingresa un número para verificar si es primo:”))

Suponemos que es primo

es_primo <- TRUE

Validación

if (num <= 1) { es_primo <- FALSE } else { for (i in 2:(num - 1)) { if (num %% i == 0) { es_primo <- FALSE break}}}

Mostrar resultado

if (es_primo) { print(paste(“El número”, num, “es primo.”)) } else { print(paste(“El número”, num, “NO es primo.”)) }

# Número establecido
num <- 17

# Suponemos que es primo
es_primo <- TRUE

if (num <= 1) {es_primo <- FALSE} else {for (i in 2:(num - 1)) {if (num %% i == 0) {es_primo <- FALSE 
break}}}


if (es_primo) {print(paste("El número", num, "es primo."))} else {print(paste("El número", num, "NO es primo."))}

## [1] "El número 17 es primo."

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

Pedir número

num <- dlg_input(“Ingresa un número:”)$res num <- as.numeric(num)

Verificar si es par o impar

if (num %% 2 == 0) { mensaje <- paste(“El número”, num, “es PAR.”) } else { mensaje <- paste(“El número”, num, “es IMPAR.”) }

Mostrar mensaje

dlg_message(mensaje, type = “ok”)

# Número establecido
num <- 14

# Verificar
if (num %% 2 == 0) {mensaje <- paste("El número", num, "es PAR.")
} else {mensaje <- paste("El número", num, "es IMPAR.")}

print(mensaje)

## [1] "El número 14 es PAR."