■ このスレッドは過去ログ倉庫に格納されています
高校数学の質問スレPart408
- 587 :132人目の素数さん:2020/11/18(水) 15:38:00.02 ID:CJUGi+QQ.net
- # 0~9の数字を使ってeをネイピア数として円周率をe進法で小数10桁まで表わせ"
rm(list=ls())
options(digits=22)
n=10
q=numeric()
r=numeric()
e=exp(1)
1*e^1+0*e^0 < pi
pi < 1*e^1+1*e^0
r0=pi %% e
q=r=numeric()
q[1] = r0 %/% e^(-1)
r[1] = r0 %% e^(-1)
for(i in 1:(n-1)){
q[i+1] = r[i] %/% e^(-i-1)
r[i+1] = r[i] %% e^(-i-1)
}
base=e^(-1:-n)
e+sum(q*base)
print(paste0("10.",paste(as.character(q),collapse = '')),q=F)
総レス数 1001
347 KB
新着レスの表示
掲示板に戻る
全部
前100
次100
最新50
read.cgi ver.24052200