Lenguaje R, sobre para y si
#?Q1
x?=?0.5
n?=?0
mientras?(?abs(x?- ?cos(x))?gt;?0.01)?{
x?=?cos(x)
n?=?n ?1
print(sprintf('i,?x=.3f,?cos(x)=.3f',?n,?x,?cos(x))
P2, acabo de responder otra pregunta sobre números primos en R (/question/571598738). Este número es relativamente grande y tardará algún tiempo en ejecutarse. Eratosthenes?lt;
if?(ngt;2)?{ tamiz?lt;-?seq(2,n) primos?lt;-?c() for?(?i?in?seq(2, n ))?{ if?(cualquier(tamiz?==?i))?{ primos?lt;-?c?(?primos,?i) tamiz?lt;-?c?(?tamiz[(tamiz? ? i?)?!=?0?],?i)? if?((i-2)?en?tamiz)?{
print(sprintf("i,?i",? ( i-2),?(i))) }
}
}
return(primos) }?else?{
print?("n?gt;?2") }
}
primos?=?Eratóstenes(1000^2)
[1] ? "3,?5"
[1]?"5,?7"
[1]?"11,?13"
[1 ] ?"17,?19"
[1]?"29,?31"
[1]?"41,?43"
[ 1 ]?"59,?61"
[1]?"71,?73"
...