home > さまざまな言語で数値計算 > 数列の和 >

さまざまな言語で数値計算

Only Do What Only You Can Do

自然数の和

自然数の和は, 「初項 $ 1 $, 公差 $ 1 $, 項数 $ n $ の等差数列の和」なので, 次の式で表せます.

この公式を使って, $ 10000 $ までの自然数の和を求めます.

VBScript

Option Explicit
' 10000 までの 自然数の和
' 項目数 n = 10000
Dim n: n = 10000 
WScript.Echo n * (n + 1) \ 2
Z:\>cscript //nologo 0302.vbs
50005000

JScript

// 10000 までの 自然数の和
// 項目数 n = 10000
var n = 10000 
WScript.Echo(n * (n + 1) / 2)
Z:\>cscript //nologo 0302.js
50005000

PowerShell

# 10000 までの 自然数の和
# 項目数 n = 10000
$n = 10000
Write-Host($n * ($n + 1) / 2)
Z:\>powershell -file 0302.ps1
50005000

Perl

# 10000 までの 自然数の和
# 項目数 n = 10000
my $n = 10000;
print($n * ($n + 1) / 2, "\n");
Z:\>perl 0302.pl
50005000

PHP

<?php
# 10000 までの 自然数の和
# 項目数 n = 10000
$n = 10000;
echo ($n * ($n + 1) / 2), "\n";
?>
Z:\>php 0302.php
50005000

Python

# coding: Shift_JIS

# 10000 までの 自然数の和
# 項目数 n = 10000
n = 10000
print (n * (n + 1) / 2)
Z:\>python 0302.py
50005000

Ruby

# 10000 までの 自然数の和
# 項目数 n = 10000
n = 10000
puts (n * (n + 1) / 2)
Z:\>ruby 0302.rb
50005000

Groovy

Pascal

Program Pas0302(arg);
var
    n:Integer;
begin
    // 10000 までの 自然数の和
    // 項目数 n = 10000
    n := 10000; 
    writeln( n * (n + 1) div 2 );
end.
Z:\>fpc Pas0302.pp -v0
Free Pascal Compiler version 2.6.2 [2013/02/12] for i386
Copyright (c) 1993-2012 by Florian Klaempfl and others

Z:\>Pas0302
50005000

Ada

VB.NET

Module VB0302
    Sub Main()
        ' 10000 までの 自然数の和
        ' 項目数 n = 10000
        Dim n As Integer = 10000 
        Console.WriteLine( n * (n + 1) \ 2 )
    End Sub
End Module
Z:\>vbc -nologo VB0302.vb

Z:\>VB0302
50005000

C#

public class CS0302
{
    public static void Main()
    {
        // 10000 までの 自然数の和
        // 項目数 n = 10000
        int n = 10000;
        System.Console.WriteLine( n * (n + 1) / 2 );
    }
}
Z:\>csc -nologo CS0302.cs

Z:\>CS0302
50005000

Java

public class Java0302{
     public static void main(String []args){
        // 10000 までの 自然数の和
        // 項目数 n = 10000
        int n = 10000;
        System.out.println( n * (n + 1) / 2 );
    }
}
Z:\>javac Java0302.java

Z:\>java Java0302
50005000

C++

#include <iostream>

using namespace std;

int main()
{
    // 10000 までの 自然数の和
    // 項目数 n = 10000
    int n = 10000;
    cout << ( n * (n + 1) / 2 ) << endl; 
    return 0;
}
Z:\>bcc32 CP0302.cpp
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
CP0302.cpp:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland

Z:\>CP0302
50005000

Objective-C

#import <Foundation/Foundation.h>

int main (int argc, const char * argv[])
{
    // 10000 までの 自然数の和
    // 項目数 n = 10000
    int n = 10000;
    printf("%d\n", (n * (n + 1) / 2) ); 
    return 0;
}
Compiling the source code....
$gcc `gnustep-config --objc-flags` -L/usr/GNUstep/System/Library/Libraries -lgnustep-base main.m -o demo -lm -pthread -lgmpxx -lreadline 2>&1

Executing the program....
$demo
50005000

D

Go

Scala

対話型実行環境を起動

Z:\>scala
Welcome to Scala version 2.10.2 (Java HotSpot(TM) Client VM, Java 1.7.0_21).
Type in expressions to have them evaluated.
Type :help for more information.

10000 までの 自然数の和

val n = 10000
n * (n + 1) / 2
res0: Int = 50005000

終了

scala> :quit

F#

対話型実行環境を起動

Z:\>fsi
Microsoft (R) F# 2.0 Interactive build 4.0.40219.1
Copyright (c) Microsoft Corporation. All Rights Reserved.

For help type #help;;

10000 までの 自然数の和

let n = 10000
n * (n + 1) / 2
val it : int = 50005000

終了

> #quit;;

Clojure

対話型実行環境を起動

Z:\>java -cp C:\ProgramFiles\clojure-1.5.1\clojure-1.5.1.jar clojure.main
Clojure 1.5.1

10000 までの 自然数の和

(def n 10000)
(quot (* n (+ n 1)) 2)
50005000

終了

user=> (. System exit 0)

Haskell

対話型実行環境を起動

Z:\>ghci
GHCi, version 7.6.3: http://www.haskell.org/ghc/  :? for help
Loading package ghc-prim ... linking ... done.
Loading package integer-gmp ... linking ... done.
Loading package base ... linking ... done.

10000 までの 自然数の和

let n = 10000
(n * (n + 1)) `div` 2
50005000

終了

Prelude> :quit
Leaving GHCi.
inserted by FC2 system