さまざまな言語で数値計算
Only Do What Only You Can Do
偶数の和
偶数の和は, 次の式で表せます.
この公式を使って, $ 10000 $ までの偶数の和を求めます.
VBScript
Option Explicit ' 10000 までの 偶数の和 ' 項目数 n = 5000 Dim n: n = 10000 \ 2 WScript.Echo n * (n + 1)
Z:\>cscript //nologo 0303.vbs 25005000
JScript
// 10000 までの 偶数の和 // 項目数 n = 5000 var n = 10000 / 2 WScript.Echo(n * (n + 1))
Z:\>cscript //nologo 0303.js 25005000
PowerShell
# 10000 までの 偶数の和 # 項目数 n = 5000 $n = 10000 / 2 Write-Host($n * ($n + 1))
Z:\>powershell -file 0303.ps1 25005000
Perl
# 10000 までの 偶数の和 # 項目数 n = 5000 my $n = 10000 / 2; print($n * ($n + 1), "\n");
Z:\>perl 0303.pl 25005000
PHP
<?php # 10000 までの 偶数の和 # 項目数 n = 5000 $n = 10000 / 2; echo ($n * ($n + 1)), "\n"; ?>
Z:\>php 0303.php 25005000
Python
# 10000 までの 偶数の和 # 項目数 n = 5000 n = 10000 / 2 print (n * (n + 1))
Z:\>python 0303.py 25005000
Ruby
# 10000 までの 偶数の和 # 項目数 n = 5000 n = 10000 / 2 puts (n * (n + 1))
Z:\>ruby 0303.rb 25005000
Groovy
Pascal
Program Pas0303(arg); var n:Integer; begin // 10000 までの 偶数の和 // 項目数 n = 5000 n := 10000 div 2; writeln( n * (n + 1) ); end.
Z:\>fpc Pas0303.pp -v0 Free Pascal Compiler version 2.6.2 [2013/02/12] for i386 Copyright (c) 1993-2012 by Florian Klaempfl and others Z:\>Pas0303 25005000
Ada
VB.NET
Module VB0303 Sub Main() ' 10000 までの 偶数の和 ' 項目数 n = 5000 Dim n As Integer = 10000 \ 2 Console.WriteLine( n * (n + 1) ) End Sub End Module
Z:\>vbc -nologo VB0303.vb Z:\>VB0303 25005000
C#
public class CS0303 { public static void Main() { // 10000 までの 偶数の和 // 項目数 n = 5000 int n = 10000 / 2; System.Console.WriteLine( n * (n + 1) ); } }
Z:\>csc -nologo CS0303.cs Z:\>CS0303 25005000
Java
public class Java0303{ public static void main(String []args){ // 10000 までの 偶数の和 // 項目数 n = 5000 int n = 10000 / 2; System.out.println( n * (n + 1) ); } }
Z:\>javac Java0303.java Z:\>java Java0303 25005000
C++
#include <iostream> using namespace std; int main() { // 10000 までの 偶数の和 // 項目数 n = 5000 int n = 10000 / 2; cout << ( n * (n + 1) ) << endl; return 0; }
Z:\>bcc32 CP0303.cpp Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland CP0303.cpp: Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland Z:\>CP0303 25005000
Objective-C
#import <Foundation/Foundation.h> int main (int argc, const char * argv[]) { // 10000 までの 偶数の和 // 項目数 n = 5000 int n = 10000 / 2; printf("%d\n", (n * (n + 1)) ); 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 25005000
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
n * (n + 1)
res0: Int = 25005000
終了
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
n * (n + 1)
val it : int = 25005000
終了
> #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)
(* n (+ n 1))
25005000
終了
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 * (n + 1)
25005000
終了
Prelude> :quit Leaving GHCi.