Simple Sand Samples

プログラミング言語サンプル集

---

TOPへ

Hello World!(各言語のTOP)

コメント

(分岐)if文を使う

(分岐)if~elseを使う

(繰り返し)for文を使う

(計算)四則演算

(計算)商と余りを求める

(計算)小数点以下切り捨て

(計算)平方根

(計算)対数

(文字列)小文字->大文字 変換

(文字列)大文字->小文字 変換

(文字列)文字列を左右反転

乱数を使う

---

COBOL	awk	C言語	D言語	GO言語	Lua	Vim
bash	Perl	Gauche	Clojure	CLISP	EmacsLisp	VimScript
tcsh	Ruby	Groovy	Java	C#	VBScript	JavaScript
Io言語	Python	Erlang	Scala	VB.NET	Excel/VBA	PHP
Tcl	Haskell		OCaml	PowerShell	Windows	Unix/Linux

COBOL > 四則演算

    bc.cob

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
       IDENTIFICATION  DIVISION.
       PROGRAM-ID.     HELLO.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 RESULT    PIC -----.
       77 FRESULT   PIC 9V9999999.
       PROCEDURE       DIVISION.
      *    加算
           COMPUTE RESULT = 12 + 34.
           DISPLAY RESULT UPON CONSOLE.
      *    減算
           COMPUTE RESULT = 12 - 34.
           DISPLAY RESULT UPON CONSOLE.
      *    乗算
           COMPUTE RESULT = 12 * 34.
           DISPLAY RESULT UPON CONSOLE.
      *    除算
           COMPUTE FRESULT = 12 / 34.
           DISPLAY FRESULT UPON CONSOLE.
           STOP   RUN.

$ cobc -x bc.cob
$ ./bc
   46
  -22
  408
0.3529411
$