2
Fortran
Do(loop
(
2.1
Do(
k
k
∑n
n=1
2
k
∑ n3
n=1
2.1
r021
n2,(n3
((
(
n
)(
do(
((Fortrantext.pdf,(p.(10(2.6
n 1
k
(
ns(=(n(*(n((n×n
ns
)(
n2=(n2+ns((n2 ns
)(
n3=(n3+ns*n((n3 ns×n
)(
!((conDnue
write :((‘((((‘(
n2(n3)
(
(
6
conDnue
(
(
( (
(
7
) (
(
(
10)(
(
□□□□□□do(10(n=1,(k(
(
□□□10□conDnue(
□□□□□□end
2.1
(
(
(
(
(
(
k=10
(
k=20
(
(
k
10
(
10 20
2
10
∑ n( = 385
∑ n 3 = 3025
n=1
10
n=1
10
n=1
n=1
∑ n 2 = 2870
(
(
∑ n 3 = 44100
2.2
Do(
n
n
(
(
n
1n
x = ∑ xi
k i=1
{xi}
(1.1),((1.2)
S
s=
n −1
(1.1)
(1.1)
n
n
S ≡ ∑ (xi − x )2
(1.2)
i=1
(1J3)
2
i
2
n
S = ∑ (x − 2xi x + x ) = ∑ xi2 − nx 2
i=1
(1.3)
(1.4)
i=1
1
(*1)(
(
(*1)(
(
)
r021
r022
20
(p.13)(((x
(x(1)~x(20))
n
(
(
dble(n)
(
read
sum1,(sum2
D)
n
∑ xi
i=1
(
( 0.0D0
(
D(
(p.16)(
n
∑ xi2
(
i=1
n
rn
(
(
(
(+),(
(−),(
(*),(
(
(
dsqrt
(square(root) sqrt
((double precision) (
(
(
)(
(/)(
2.2
(
(
(
(
8 (
1.0,(0.987,(1.05,(0.875,(1.111,(1.121,(0.987,(0.876(
(
(
2.2
(A4
(
10/24(
)
(

クイズ①

クイズ①

クイズ①