2ちゃんねる ■掲示板に戻る■ 全部 1- 最新50    

■ このスレッドは過去ログ倉庫に格納されています

高校数学の質問スレ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