Scribd
Cargar
39 vistas3 páginas

Funciones de Cálculo y Ordenación

El documento presenta varias funciones en R para diferentes propósitos: 1) una función para calcular calificaciones en base a porcentajes; 2) otra función para convertir calificaciones de un sistema mexicano a letras; 3) una función para calcular el costo de un viaje dependiendo del destino y propósito; 4) una función para ordenar números de menor a mayor; y 5) otra función para compartir piezas entre hermanas.

Cargado por

Xiomara Nicole Chipana Villar
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 TXT, PDF, TXT o lee en línea desde Scribd
39 vistas3 páginas

Funciones de Cálculo y Ordenación

El documento presenta varias funciones en R para diferentes propósitos: 1) una función para calcular calificaciones en base a porcentajes; 2) otra función para convertir calificaciones de un sistema mexicano a letras; 3) una función para calcular el costo de un viaje dependiendo del destino y propósito; 4) una función para ordenar números de menor a mayor; y 5) otra función para compartir piezas entre hermanas.

Cargado por

Xiomara Nicole Chipana Villar
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 TXT, PDF, TXT o lee en línea desde Scribd

## funcion de calculadora de calificaciones/ aca escribo la funcion que me pide y

la devuelvo a la calificaicion:

calculadora_de_calififcaciones <- function(calificacion){


if(calificacion>=90 & calificacion<=100){
return("a")

}else if(calificacion>=80 & calificaqcion<=89){


return("b")

}else if(calificacion>=70 & calificacion<=79){


return("c")

}else if(calificacion>=60 & calificacion<=69){


return("d")

}else{
return("f")
}
}

## aca escogo un sistem,a de calificacion de mexico par transformarla al item


previo:

calculadora_de_calificaciones_mexico <- function(calificacion_mexico){


if(calificacion_mexico/10)+5;

return(calculadora_de_calififcaciones(integer(calculadora_de_calificaciones_mexico)
));

integer(calificacion);
print("ingrese la cantidad del estudiante");
scan("%d", & calificacion);

letra_calificacion = calculadora_de_calififcaciones(calificacion);
print("la calificacion correpondiente en el sistema de calificaciones mexico es:
%c/n",letra_calificacion);

letra_calificacion_mexico =calculadora_de_calificaciones_mexico(calififcacion);
print("la calificacion correspondiente al sistema de calificacion de mexico es:
%c/n",letra_calificacion_mexico);

## aca se crea una funcion que depende del destino y la razon del viaje, ademas,
del tipo de transporte y el costo del viaje:
#definir funcion:

calcular_costo_viaje <- function(destino,razon){


integer(costo);
if(str2expression(razon,"vacaciones")==0){

if(str2expression(destino,"norte")==0){

costo=5*5000+4000;

if(str2expression(desino,"norte")==0){
costo=5*5000+4000;

print("el tipo de transporte es bus y el costo del ciaje es $%d/n",costo);

}else if(str2expression(destino,"sur")==0){

costo=0.8*15*5000+2000;

print("el tiempo de transporte en avion y el costo del viaje es $%/n",costo);

}else{

print("destino invalido/n");
}else if(str2expression(razon."trabajo")==0){
if(str2expression(destino,"norte")==0 & str2expression(destino,"sur")==0){

costo=0.8*15*5000+2000;

print("el tipo de transporte es avion y el costo del viaje es $%d/n",costo);


} else{
print("destino invalido/n");

}else{
print("razon invalida/n");
}
}
}

destino[50]
razon[50]
print("ingrese el destino")
scan("%s,destino:")
print("ingrese la razon:")
scan("%s,razon")
calcular_costo_viaje(destino,razon)

## aca creare una funcion que recibe cuatro numeros y se ordena de menor a mayor

ordenar_numeros <- function(n1,n2,n3.n4){


integer(aux)
if(n1>n2){
aux=n1;
n1=n2;
n2=aux;
}

if(n2>n3){
aux=n2;
n2=n3;
n3=aux;
}

if(n3>n4){
aux=n3
n3=n4;
n4=aux;
}

print("los numeros ordenados de menor a mayor es:%d,%d,%d,%d/n",n1,n2,n3,n4);

## aca modifique los nunmeros para que se ordene de igaul manera sin imortar el
largo de estos:
integer(n1,n2,n3,n4)
print("ingrese el primer numero:")
scan("%d, & n1")

print("ingese el segundo nunmero:")


scan("%d, & n2")

print("ingrese el tercer numero")


scan("%d, 5 n3")

print("ingrese el cuarto numero")


sacn("%d, & n4")

return(numeros)

## aca creo una funcion sobre un problema de mi casa:

compartir_piezas <- function(hermanas){


if(hermanas+2){
3*hermanas
}
}

También podría gustarte