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

奇数の和

奇数の和は, 次の式で表せます.

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

VBScript

Option Explicit
' 10000 までの 奇数の和
' 項目数 n = 5000
Dim n: n = 10000 \ 2
WScript.Echo n ^ 2

Z:\>cscript //nologo 0304.vbs
25000000

JScript

// 10000 までの 奇数の和
// 項目数 n = 5000
var n = 10000 / 2
WScript.Echo(Math.pow(n, 2))

Z:\>cscript //nologo 0304.js
25000000

PowerShell

# 10000 までの 奇数の和
# 項目数 n = 5000
$n = 10000 / 2
Write-Host([math]::pow($n, 2))

Z:\>powershell -file 0304.ps1
25000000

Perl

# 10000 までの 奇数の和
# 項目数 n = 5000
my $n = 10000 / 2;
print($n ** 2, "\n");

Z:\>perl 0304.pl
25000000

PHP

<?php
# 10000 までの 奇数の和
# 項目数 n = 5000
$n = 10000 / 2;
echo pow($n, 2), "\n";
?>

Z:\>php 0304.php
25000000

Python

# 10000 までの 奇数の和
# 項目数 n = 5000
n = 10000 / 2
print (n ** 2)

Z:\>python 0304.py
25000000

Ruby

# 10000 までの 奇数の和
# 項目数 n = 5000
n = 10000 / 2
puts (n ** 2)

Z:\>ruby 0304.rb
25000000

Groovy

Pascal

Program Pas0304(arg);
uses
    SysUtils, Math;
var
    n:Integer;
begin
    // 10000 までの 奇数の和
    // 項目数 n = 5000
    n := 10000 div 2;
    writeln( format('%g', [power(n, 2)]) ); // power は Extended 型
end.

Z:\>fpc Pas0304.pp -v0
Free Pascal Compiler version 2.6.2 [2013/02/12] for i386
Copyright (c) 1993-2012 by Florian Klaempfl and others

Z:\>Pas0304
25000000

Ada

VB.NET

Module VB0304
    Sub Main()
        ' 10000 までの 奇数の和
        ' 項目数 n = 5000
        Dim n As Integer = 10000 \ 2
        Console.WriteLine( n ^ 2 )
    End Sub
End Module

Z:\>vbc -nologo VB0304.vb

Z:\>VB0304
25000000

C#

public class CS0304
{
    public static void Main()
    {
        // 10000 までの 奇数の和
        // 項目数 n = 5000
        int n = 10000 / 2;
        System.Console.WriteLine( System.Math.Pow(n, 2) );
    }
}

Z:\>csc -nologo CS0304.cs

Z:\>CS0304
25000000

Java

public class Java0304{
     public static void main(String []args){
        // 10000 までの 奇数の和
        // 項目数 n = 5000
        int n = 10000 / 2;
        System.out.println((int) Math.pow(n, 2) );
    }
}

Z:\>javac Java0304.java

Z:\>java Java0304
25000000

C++

#include <iostream>
#include <math.h>

using namespace std;

int main()
{
    // 10000 までの 奇数の和
    // 項目数 n = 5000
    int n = 10000 / 2;
    cout << int(pow(n, 2)) << endl; 
    return 0;
}

Z:\>bcc32 CP0304.cpp
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
CP0304.cpp:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland

Z:\>CP0304
25000000

Objective-C

#import <Foundation/Foundation.h>

int main (int argc, const char * argv[])
{
    // 10000 までの 奇数の和
    // 項目数 n = 5000
    int n = 10000 / 2;
    printf("%d\n", (int)pow(n, 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
25000000

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 = 5000
(Math.pow(n, 2)).toInt

res0: Int = 25000000

終了

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 = 5000
System.Math.Pow(double n, 2.0)

val it : float = 25000000.0

終了

> #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 5000)
(int (Math/pow n 2))

25000000

終了

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 = 5000
n ^ 2

25000000

終了

Prelude> :quit
Leaving GHCi.