GRUPO 1: Escribe un programa que solicite los catetos de un triángulo rectángulo y muestre su hipotenusa. \[Hipotenusa=\sqrt{cat.\ adyacente^2+cat.\ opuesto^2} \]
cat1<-as.numeric(readline("Ingrese el valor del primer cateto: "))## Ingrese el valor del primer cateto:cat2<-as.numeric(readline("Ingrese el valor del segundo cateto: "))## Ingrese el valor del segundo cateto:hip<-sqrt(cat1**2+cat2**2)
cat("El valor de la hipotenusa es: ",hip)## El valor de la hipotenusa es: NAGRUPO 2: Escribe un programa que calcule las soluciones de una ecuación de segundo grado de la forma ax2+bx+c=0.
\[Formula\ general\ de\ la\ recta=ax^2+bx+c=0 \]
a<- as.numeric(readline("Ingrese el valor de a: ")) ## Ingrese el valor de a:b<- as.numeric(readline("Ingrese el valor de b: ")) ## Ingrese el valor de b:c<- as.numeric(readline("Ingrese el valor de c: ")) ## Ingrese el valor de c:d<- sqrt((b**2)-(4*a*c))
r1<-((-b-d)/(2*a))
r2<-((-b+d)/(2*a))
cat("Los resultados de la ecuación son: ", r1 , "y", r2)## Los resultados de la ecuación son: NA y NAGRUPO 3: Calcular el área del triángulo rectángulo dadas su base y altura.
\[Area\ del\ triangulo\ rectangulo =\frac{base*altura}{2}\]
b<-as.numeric(readline("Ingrese la base de su triángulo rectángulo: " )) ## Ingrese la base de su triángulo rectángulo:a<-as.numeric(readline("Ingrese el altura de su triángulo rectángulo: " ))## Ingrese el altura de su triángulo rectángulo:ar<-(b*a)/2
cat("El área del triángulo rectángulo es : ", ar)## El área del triángulo rectángulo es : NAGRUPO 4: Calcular el área y perímetro de un rectángulo dado su base y altura.
\[Area\ del\ rectangulo=base*altura \] \[Perimetro\ del\ rectangulo=2*base+2*altura\]
ba<-as.numeric(readline("Ingrese el valor de base del rectángulo: "))## Ingrese el valor de base del rectángulo:al<-as.numeric(readline("Ingrese el valor de la altura del rectángulo: "))## Ingrese el valor de la altura del rectángulo:cat("El valor del área del rectángulo es: ", (ba*al))## El valor del área del rectángulo es: NAcat("El valor del perímetro del rectángulo es: ", ((2*ba)+(2*al)) )## El valor del perímetro del rectángulo es: NAGRUPO 5: Calcular el promedio de 3 notas que estén entre 0 y 20.
\[Promedio=\frac{nota\ 1+nota\ 2+nota\ 3}{3}\]
nota1<-as.numeric(readline("Ingrese la primera nota "))## Ingrese la primera notanota2<-as.numeric(readline("Ingrese la segunda nota "))## Ingrese la segunda notanota3<-as.numeric(readline("Ingrese la tercera nota "))## Ingrese la tercera notaprom<-(nota1 + nota2 + nota3)/3GRUPO 6: Calcular el área y perímetro de la circunferencia dado el radio.
\[Área \ del \ circulo= \ pi*r^2\]
r<-as.numeric(readline("Ingrese el radio de la circunferencia:"))## Ingrese el radio de la circunferencia:cat("El area del circulo es: ", (pi*(r^2)))## El area del circulo es: NA\[Perímetro \ del \ circulo= \ 2*pi*r\]
r<-as.numeric(readline("Ingrese el radio de la circunferencia:"))## Ingrese el radio de la circunferencia:cat("El perimetro del circulo es: ", (2*pi*r))## El perimetro del circulo es: NAADICIONAL 1: Calcular el área y perímetro de un trapecio dado su base mayor, base menor y altura.
\[Area\ del\ trapecio=\frac{(base\ mayor+base\ menor)}{2}\] \[Perimetro\ del\ trapecio=(base\ mayor+base\ menor)+\sqrt{(\frac{base\ mayor-base\ menor}{2})^2 +altura^2}\ *2 \]
bm <- as.numeric(readline("Ingrese la base mayor del trapecio: "))## Ingrese la base mayor del trapecio:br <- as.numeric(readline("Ingrese la base menor del trapecio: "))## Ingrese la base menor del trapecio:al <- as.numeric(readline("Ingrese la altura del trapecio: "))## Ingrese la altura del trapecio:tri <- (bm-br)/2
pitag <- sqrt(tri**2+al**2)
per <- bm+br+(pitag*2)
area <- ((bm+br)/2)*al
cat("El perímetro y área de un trapecio con base mayor ", bm
, ",base menor ", br, "y altura ", al, "es respectivamente: "
, per, " y ", area)## El perímetro y área de un trapecio con base mayor NA ,base menor NA y altura NA es respectivamente: NA y NAADICIONAL 3: Escribe un programa que lea dos números y muestre en la salida su suma, resta, multiplicación y división.
num1<-as.numeric(readline("Ingrese el primer valor: "))## Ingrese el primer valor:num2<-as.numeric(readline("Ingrese el segundo valor: "))## Ingrese el segundo valor:cat("La suma de los dos números es: ", num1+num2)## La suma de los dos números es: NAcat("La resta de los dos números es: ",num1-num2)## La resta de los dos números es: NAcat("La multiplicación de los dos números es: ",num1*num2)## La multiplicación de los dos números es: NAcat("La división de los dos números es: ",num1/num2)## La división de los dos números es: NAADICIONAL 4: Realice un Programa que pida una cantidad en dólares y como resultado se visualice el IVA (12%) y el valor total a pagar.
do <- as.numeric(readline("Ingrese la cantidad en dólares: "))## Ingrese la cantidad en dólares:iva <- do*0.12
tot <- iva+do
cat("El IVA del valor ingresado en dólares es ",iva, "y el total del
valor ingresado más el IVA es ", tot )## El IVA del valor ingresado en dólares es NA y el total del
## valor ingresado más el IVA es NAGRUPO 1: Escribir un programa que pida la temperatura y si está es en Fahrenheit o Celsius y presentar en pantalla su transformación en la otra medida.
\[Fº= (Cº*1.8)+32\] \[Cº= \frac{(Fº-32)}{32}\]
temperatura<-as.numeric(readline("Ingresar la temperatura: "))## Ingresar la temperatura:grados<-as.character(readline("Ingrese C para Celsius o F para Farenheit: "))## Ingrese C para Celsius o F para Farenheit:if(grados=="C" | grados=="c"){
farenheit<-(temperatura*1.8)+32
cat("En grados farenheit es: ",farenheit,"F")
}else{
celsius<-(temperatura-32)/1.8
cat("En grados celcius es: ",celsius,"C")
}## En grados celcius es: NA CGRUPO 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.
hora<- as.numeric(readline(" Ingrese las horas trabajadas : "))## Ingrese las horas trabajadas :costo<- as.numeric(readline(" Ingrese el costo por hora : "))## Ingrese el costo por hora :pago<- hora*costo
cat("Sus horas trabajadas son de: ", hora, "\n", " El costo por hora es de: ", costo,"\n",
"Su pago es de: $",pago, "dolares." )## Sus horas trabajadas son de: NA
## El costo por hora es de: NA
## Su pago es de: $ NA dolares.extra <- as.character(readline(" Dispone de horas extras (si/no): "))## Dispone de horas extras (si/no):if (extra == "si") {
horaex<- as.numeric(readline(" Ingrese las horas extras trabajadas : "))
costoex<- as.numeric(readline(" Ingrese el costo por hora extra : "))
pagoex<- horaex*costoex
cat("Sus horas extras trabajadas son de: ", horaex, "\n", "El coste por hora extra es de: ", costoex, "\n",
"Su pago correspondiente es de: $",pago+pagoex, "dolares." )
}GRUPO 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.
n <- abs(as.integer(readline(prompt = "Ingrese un entero positivo: "))) ## Ingrese un entero positivo:s <- (n * (n + 1) / 2)
cat("La suma de los enteros hasta", n, "es:", s)## La suma de los enteros hasta NA es: NAGRUPO 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
\[Indice\ de\ masa\ corporal=\frac{Peso}{Estatura^2} \]
p<-as.numeric(readline("Ingrese su peso en kilos: "))## Ingrese su peso en kilos:e<- as.numeric(readline("Ingrese su estatura en metros: "))## Ingrese su estatura en metros:imc<- p/(e)**2
imc<-round(imc, digits = 2)
cat("Tu indice de masa corporal es: ", imc)## Tu indice de masa corporal es: NAGRUPO 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.
\[capital\ obtenido=(monto*interes*años)+años \]
c <- as.numeric(readline("Ingrese el monto a invertir: "))## Ingrese el monto a invertir:i <- as.numeric(readline("Ingrese el interés anual: "))## Ingrese el interés anual:a <- as.numeric(readline("Ingrese el número de años de la inversión: "))## Ingrese el número de años de la inversión:i <- i/100
cia <- (c*i*a)+c
cat("El capital obtenido e la inversión es", cia)## El capital obtenido e la inversión es NAGRUPO 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.
h<-as.numeric(readline("Ingrese el número de horas a transformar: "))## Ingrese el número de horas a transformar:m<-as.numeric(readline("Ingrese el número de minutos a transformar: "))## Ingrese el número de minutos a transformar:s<-as.numeric(readline("Ingrese el número de segundos a transformar: "))## Ingrese el número de segundos a transformar:hm<- h*60
hs<- hm*60
mh<- m/60
ms<- m*60
sh<- s/3600
sm<- s/60
cat(h,"horas contiene ", hm, "minutos y ", hs, "segundos.")## NA horas contiene NA minutos y NA segundos.cat(m,"minutos contiene ", mh, "horas y ", ms, "segundos.")## NA minutos contiene NA horas y NA segundos.cat(s,"segundos contiene ", sh, "horas y ", sm, "minutos")## NA segundos contiene NA horas y NA minutosADICIONAL 1: Escribir un programa en el que se digiten varios números y luego los números se presenten en pantalla ordenados.
n1<-as.numeric(readline("INGRESE EL PRIMER NUMERO: "))## INGRESE EL PRIMER NUMERO:n2<-as.numeric(readline("INGRESE EL SEGUNDO NUMERO: "))## INGRESE EL SEGUNDO NUMERO:n3<-as.numeric(readline("INGRESE EL TERCER NUMERO: "))## INGRESE EL TERCER NUMERO:n4<-as.numeric(readline("INGRESE EL CUARTO NUMERO: "))## INGRESE EL CUARTO NUMERO:n5<-as.numeric(readline("INGRESE EL QUINTO NUMERO: "))## INGRESE EL QUINTO NUMERO:nums<-c(n1,n2,n3,n4,n5)
cat("ORDENAR DE FORMA ACENDENTE: ", sort(nums))## ORDENAR DE FORMA ACENDENTE:ADICIONAL 3: Escribir un programa que pida un número e indique si el número es primo o no.
library(primes)
n <- as.numeric(readline("Ingrese el número: "))## Ingrese el número:is_prime(n)## [1] FALSEif (is_prime(n)==T) {
"Es primo"
} else if (is_prime(n)==F) {
"No es primo"
}## [1] "No es primo"