algoritmos resueltos

INGRESAR UN NUMERO k Y MULTIPLIQUELO DOS VECES POR UNA CANTIDAD QUE VA HACER n.
k<-240
n<-10
{
k<-k*n*n
}
REALIZAR UN PROGRAMA QUE INGRESE EL USUARIO UNA CANTIDA DE Nº NUMEROS 76429 Y ME MULTIPLEQUE POR EL ULTIMO DIGITO LA CANTIDAD PERO SIN CONTAR CON EL
cifra<-76429

r=cifra%/%10
res=r*cifra%%10
# suma de los 20 primeros multiplos de 5
suma <- 0
factor <- 5aux <- 1
i <- 0
while(i <= 10)
{
aux <- (aux+factor)
i<-(i+1)

}
aux
INGRESAR UNA COLECCIÓN DE NÚMERO Y OBTENER EL RESULTADO CUANTOS PARES EXISTEN
numero<-c(4,5,6,9,2,46,78,9,80)
resultado<-1
cont<-1
while(cont<length(numero))
{
if(numero[cont]%%2==0)
{
resultado<-resultado+1
}
cont<-cont+1
}
resultadoINGRESAR UNA COLECCIÓN DE NÚMERO Y OBTENER EL RESULTADO CUANTOS IMPARES EXISTEN
lista<-c(4,5,6,9,2,46,7,9,80)
resulsuma<-0
cont<-1
while(cont<length(lista))
{
if(lista[cont]%%2==0)
{
}else
{resulsuma<-resulsuma+1
}
cont<-cont+1
}
resulsuma
# calcular el promeio de una lista
lista <- c(1,2,3,4,5,6)
i<- 1
suma<-0
promedio <-0
while (i<= length(lista))
{
suma <- (suma+lista[i])
i <- (i+1)
}
promedio <- (suma/ length(lista))
promedio
INGRESE 10 NUMEROS Y CONTAR CUANTOS SON POSITIVOS Y CUANOS SON NEGATVO
n<-c(-23,-1,56,-64,85,-1,5,-3,7,-8)
c<-1
x<-1
nnega<-0
nposi<-0
while(x<=length(n))
{
if(n[x]>0)
{
nposi<-nposi+1
}else
{nnega<-nnega+1
}
x<-x+1
}
nposi
nnega
Realizar matrices con los elementos de una lista de la siguiente forma: elementos de la matriz serán cada Nº de la listas y la dimensión c obtendrá por la que este dicho elemento.
listas<-c(2,5,6,7,8)
for(i in 1:length(listas))
{
matris<-matrix(listas[i], ncol=i, nrow=i)
print("nueva matriz")
print(matris)
}
INGRESE TRES CANTIDADES Nº YVER CUAL ES EL MAYOR
n1<-8
n2<-15
n3<-5
if(n1>n2&&n1>n3)
{
print("n1 es el mayor")
}else
if(n2>n1&&n2>n3)
{
print("n2 es el mayor")
}else
{print("n3 es mayor")}
INGRESAR DOS VECTORES Y ORDENAR UN SOLO VECTOR DE MENOR A MAYOR
li<-data.frame(a=c(45,78,34),d=c(56,98,46))
f<-function(li)
{
b<-1
c<-1
p<-length(li)+1while(b<=p)
{
while(c<=p)

{
if (li$a[b]<li$a[c])
{

tem<-li$a[b]
li$a[b]<-li$a[c]
li$a[c]<-tem

}c<-c+1
}
c<-1
b<-b+1
}
lisnue<-data.frame(li$a,li$d)
return(lisnue)
}
INGRESAR DOS VECTORES Y ORDENAR UN SOLO VECTOR DE MAYOR A MENOR
li<-data.frame(a=c(45,78,34),d=c(56,98,46))
f<-function(li)
{
b<-1
c<-1
p<-length(li)+1while(b<=p)
{
while(c<=p)

{
if(li$a[b]>li$a[c])
{

tem<-li$a[b]
li$a[b]<-li$a[c]
li$a[c]<-tem

}c<-c+1

}
c<-1
b<-b+1
}
lisnue<-data.frame(li$a,li$d)
return(lisnue)
}
REALIZAR UN PROGRAMA PARA CALIFICACION DE UNA NOTA Y QUE EL USUARIO INGRESE UN Nº DEL 1 AL 10 Y SABER SI LA Nº>=7 “APROBADO”
Nº>=5 ”SUPLETORIO” Y CASO CONTRARIO ES REPROBADO...