Autores
-Rene Avila
-Michael Chacaguasay
-Johann Tul
-Bryan VenegasEscribe un programa que solicite los catetos de un triangulo rectangulo y muestre su hipotenusa teorema de pitagoras a2+b2=c^2
j<-as.numeric(readline("Ingrese el primer cateto"))## Ingrese el primer catetok<-as.numeric(readline("Ingrese el segundo cateto"))## Ingrese el segundo catetocat("La hipotenusa es: ", sqrt((j^2)+(k^2)))## La hipotenusa es: NAEscribir un rpogramma que calcule las soluciones de una ecuacion de segundo grado de la forma ax2+bx+c=0
num1<-as.numeric(readline("Escribir el valor de num1:"))## Escribir el valor de num1:num2<-as.numeric(readline("Escribir el valor de num2:"))## Escribir el valor de num2:num3<-as.numeric(readline("Escribir el valor de num3:"))## Escribir el valor de num3:#represetacion de la formula
num4<-(num2^2-4*num1*num3)
#primera respuesta(-)
resp1<-(-num2-(sqrt(num4))/2*num1)
#segunda respuesta(+)
resp2<-(-num2+(sqrt(num4))/2*num1)
#resultado
cat("Dados los valores para la ecuacion de segundo grado:","\n",
"nuestros datos ingresados son:\n",
"Entonces: ",num1,"x^2+",num2,"x+",num3,"=0\n",
"La respuesta en la formula es:",num4,"\n",
"La respuesta de x1 es :",resp1, "/n",
"La respuesta de x2 es:",resp2, "/n")## Dados los valores para la ecuacion de segundo grado:
## nuestros datos ingresados son:
## Entonces: NA x^2+ NA x+ NA =0
## La respuesta en la formula es: NA
## La respuesta de x1 es : NA /n La respuesta de x2 es: NA /nCalcular el Area del triangulo rectangulo dadas su base y altura
n<-as.numeric(readline("Ingrese la base"))## Ingrese la basem<-as.numeric(readline("ingrese la altura"))## ingrese la alturacat("El Area del triangulo es: ", (n*m)/2)## El Area del triangulo es: NACalcular el Area y perimetro de un rectangulo dado su base y su altura
num7<-as.numeric(readline("Ingrese la base"))## Ingrese la basenum8<-as.numeric(readline("Ingrese la atura"))## Ingrese la aturacat("EL AREA DEL RECTANGULO: ", (num7*num8))## EL AREA DEL RECTANGULO: NAcat("EL PERIMETRO DEL RECTANGULO: ", (num7^2)+(num8^2))## EL PERIMETRO DEL RECTANGULO: NACalcular el promedio de 3 notas que esten entre 0y20
num4<-as.numeric(readline("Ingrese la primera nota"))## Ingrese la primera notanum5<-as.numeric(readline("Ingrese la segunda nota"))## Ingrese la segunda notanum6<-as.numeric(readline("Ingrese la tercera nota"))## Ingrese la tercera notacat("El promedio es: ", (num4+num5+num6)/3)## El promedio es: NACalcular el Area y perimetro de la circunferencia dado el radio
num2<-as.numeric(readline("Ingrese el radio de la circunferencia"))## Ingrese el radio de la circunferenciacat("El area del circulo: ", (pi*(num2^2)))## El area del circulo: NAcat("El perimetro del circulo: ", (pi*(num2*2)))## El perimetro del circulo: NACalcular el area y perimetro de un trapecio dado su base mayor,base menor y altura
#Ingresamos la base mayor
a<-as.numeric(readline("Ingrese el valor de la base mayor:"))## Ingrese el valor de la base mayor:#Ingresamos base menor
b<-as.numeric(readline("Ingrese el valor de la base menor:"))## Ingrese el valor de la base menor:# Ingresamos altura
h <- as.numeric(readline("Ingrese la altura del trapecio:"))## Ingrese la altura del trapecio:#realizamos la operacion de la fórmula
cat("El área del trapecio es : ",h*(a+b)/2)## El área del trapecio es : NADados dos numeros, determine cual es el numero mayor y cual es el numero menor si los dos numeros son iguales el mensaje debe decir que son numeros iguales
p<- as.numeric(readline("Ingrese el primer numero"))## Ingrese el primer numerom<-as.numeric(readline("Ingrese el segundo numero"))## Ingrese el segundo numeroc("El primer numero es menor que el segundo numero;" , p<m, "\n",
"El primer numero es mayor que el segundo numero;", p>m, "\n",
"Los numeros son iguales;", p==m)## [1] "El primer numero es menor que el segundo numero;"
## [2] NA
## [3] "\n"
## [4] "El primer numero es mayor que el segundo numero;"
## [5] NA
## [6] "\n"
## [7] "Los numeros son iguales;"
## [8] NASuma, resta, multiplicación, división de dos números
r<-as.numeric(readline("ingrese el primer numero"))## ingrese el primer numerot<-as.numeric(readline("ingrese el segundo numero"))## ingrese el segundo numerocat("la suma de los numeros es : ", r+t)## la suma de los numeros es : NAcat("la resta de los numeros es: ", r-t )## la resta de los numeros es: NAcat("la multiplicacion de los numeros es: ",r*t )## la multiplicacion de los numeros es: NAcat("la division de los numeros es:", r/t)## la division de los numeros es: NARealice un programa que pida una cantidad en dolares y como resultado Se visualice el IVA (12%) y el valor total a pagar
x<-as.numeric(readline("ingrese el primer numero"))## ingrese el primer numerocat("El iva es: ", (x*0.12))## El iva es: NAcat("El valor total a pagar es: ",(x*0.12)+x)## El valor total a pagar es: NAEscribir 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 para transformar la temperatura")## Programa para transformar la temperaturatf <- as.numeric(readline("Ingresa la temperatura en Fahrenheit"))## Ingresa la temperatura en Fahrenheitgc <- (tf-32)/1.8
gc<-round(gc,2)
cat("La temperatura en grados Celsius es", gc,"grados")## La temperatura en grados Celsius es NA gradostc <- as.numeric(readline("Ingresa la temperatura en Celsius"))## Ingresa la temperatura en Celsiusgf <- (tc*1.8)+32
gf <- round(gf,2)
cat("La temperatura en grados Fahrenheit es", gf,"grados")## La temperatura en grados Fahrenheit es NA gradosEscribir 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.
ht <- as.numeric(readline("Ingresa el número de horas trabajadas"))## Ingresa el número de horas trabajadasvh <- as.numeric(readline("Ingresa el valor por hora"))## Ingresa el valor por horahx <- as.numeric(readline("Ingresa el número de horas extra"))## Ingresa el número de horas extra#sueldo <- (ht*vh)+(hx*(vh*0.5))
sueldo <- (ht*vh)+(hx*(vh*1.2))
cat("El sueldo que resiviras por tu horas trabajadas es",sueldo, "dólares")## El sueldo que resiviras por tu horas trabajadas es NA dólaresEscribir 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
n1 <- as.numeric(readline("Ingresa un numero entero positivo"))## Ingresa un numero entero positivosuma <- (n1*(n1+1)/2)
cat("La suma de los enteros postivos desde 1 hasta",n1,"es",suma)## La suma de los enteros postivos desde 1 hasta NA es NAEscribir 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
kg <- as.numeric(readline("Ingresa tu peso en kilos"))## Ingresa tu peso en kilosalt <- as.numeric(readline("Ingresa tu estatura en metros"))## Ingresa tu estatura en metrosimc<- kg/(alt^2)
imc <- round(imc,2)
cat("Tu índice de masa corporal es",imc)## Tu índice de masa corporal es NAEscribir 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
inv<-as.numeric(readline("Ingresa la cantidad a invertir"))## Ingresa la cantidad a invertirinte <- as.numeric(readline("Ingresa el interes anual"))## Ingresa el interes anualinte<-inte/100
año<-as.numeric(readline("Ingresa el número de años"))## Ingresa el número de añoscapital<- inv*((1+inte)^año)
capital <- round(capital,2)
cat("El capital final que obtendras por tu inversión es de",capital,"dólares")## El capital final que obtendras por tu inversión es de NA dólaresRealizar 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("Ingresa el número de horas"))## Ingresa el número de horasm <- h*60
s <- h*3600
cat("Transformando el resultado es",m,"minutos y en segundos es ",s)## Transformando el resultado es NA minutos y en segundos es NAEscribir un programa en el que se digiten varios números y luego los números se presenten en pantalla ordenados
n1<-as.numeric(readline("Ingresa un número"))## Ingresa un númeron2<-as.numeric(readline("Ingresa un número"))## Ingresa un númeron3<-as.numeric(readline("Ingresa un número"))## Ingresa un númeron4<-as.numeric(readline("Ingresa un número"))## Ingresa un númeron5<-as.numeric(readline("Ingresa un número"))## Ingresa un número v <-c(n1,n2,n3,n4,n5)
sort(v)## numeric(0)Escribir un programa que calcule el factorial de un número que ha sido digitado por el usuario
fac<-as.numeric(readline("Ingresa el número para calcular el factorial"))## Ingresa el número para calcular el factorialr <- factorial(fac)
cat("El factorial es", r)## El factorial es NAVerificar si el número es primo
Escribir un programa que pida un número e indique si es par o impar
n1<-as.numeric(readline("Ingrese un número por favor : "))## Ingrese un número por favor :par<- n1%%2==0
impar<-n1%%2==1
cat("El nùmero que ustd ingreso es par: ",par)## El nùmero que ustd ingreso es par: NAcat("El nùmero que ustd ingreso es impar: ",impar)## El nùmero que ustd ingreso es impar: NA