Scribd
Cargar
13 vistas3 páginas

Herramientas Computacionales.r

El documento contiene varios fragmentos de código en R que realizan diferentes cálculos y verificaciones. Incluye un cálculo de recargo para un seguro de vehículo basado en la edad y accidentes, el cálculo del índice de masa corporal (IMC) a partir de peso y altura, la verificación de si un número es primo, la generación de la secuencia de Fibonacci y la impresión de un patrón de asteriscos. Cada fragmento utiliza estructuras de control como condicionales y bucles para llevar a cabo sus respectivas tareas.

Cargado por

SUYLLER DANIEL MANRIQUE RODRÍGUEZ
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd
13 vistas3 páginas

Herramientas Computacionales.r

El documento contiene varios fragmentos de código en R que realizan diferentes cálculos y verificaciones. Incluye un cálculo de recargo para un seguro de vehículo basado en la edad y accidentes, el cálculo del índice de masa corporal (IMC) a partir de peso y altura, la verificación de si un número es primo, la generación de la secuencia de Fibonacci y la impresión de un patrón de asteriscos. Cada fragmento utiliza estructuras de control como condicionales y bucles para llevar a cabo sus respectivas tareas.

Cargado por

SUYLLER DANIEL MANRIQUE RODRÍGUEZ
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd

#1:

edad <- 18

accidentes <- 10

dato <- 300

recargo <- 0

if (edad < 27) {

recargo = recargo + 100

if (accidentes == 0) {

recargo = recargo

} else if (accidentes == 1) {

recargo = recargo + 100

} else if (accidentes == 2) {

recargo = recargo + 150

} else if (accidentes == 3) {

recargo = recargo + 250

} else {

recargo = recargo + 1000

total = dato + recargo

print(paste("El seguro del vehiculo es de: $", total))

#2:

pesolb <- 50

alturapulg <- 23

pesokg = pesolb * 0.4536

alturam = alturapulg * 0.0254

IMC <- pesokg/(alturam**2)


i <- 0

if (IMC < 18.5) {

print("bajo peso")

} else if (IMC < 25) {

print("peso normal")

} else if (IMC < 30) {

print("sobrepeso")

} else {

print("Obesidad")

#3

n <- 1253

i <- 0

if (n >= 2) {

while (n/i != 1) {

if (n%%i == 0) {

break

} else {

i=i+1

if (n == i) {

print("Es primo")

} else {

print("No es primo")

}
#4:

x <- 0

y <- 1

for (i in 1:30) {

print(a)

z = x+y

x=y

y=z

#5:

for (i in 6:1) {

print(paste(rep("*",i), collapse = ""))

También podría gustarte