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 > 繰り返し(PERFORM ~ TIMES)

    for.cob

1
2
3
4
5
6
7
8
9
10
11
12
13
14
       IDENTIFICATION  DIVISION.
       PROGRAM-ID.     HELLO.
      *
       DATA            DIVISION.
       WORKING-STORAGE SECTION.
       77 COUNTER  PIC 9(3).
      *
       PROCEDURE       DIVISION.
            MOVE 1 TO COUNTER.
            PERFORM 3 TIMES
               DISPLAY "COUNTER is " COUNTER UPON CONSOLE
               ADD 1 TO COUNTER
            END-PERFORM.
            STOP  RUN.

$ cp for.cob hoge.cob //使用できないファイル名のため
$ cobc -x for.cob
$ ./hoge
COUNTER is 001
COUNTER is 002
COUNTER is 003
$