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 > 小数点以下切り捨て

    floor.cob

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
       IDENTIFICATION  DIVISION.
       PROGRAM-ID.     HELLO.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 RESULT    PIC -----.
       77 FRESULT   PIC 9V9999999.
       PROCEDURE       DIVISION.
           COMPUTE RESULT = FUNCTION INTEGER(4.5)
           DISPLAY RESULT UPON CONSOLE.
           COMPUTE RESULT = FUNCTION INTEGER(4.4)
           DISPLAY RESULT UPON CONSOLE.
           COMPUTE RESULT = FUNCTION INTEGER(-4.5)
           DISPLAY RESULT UPON CONSOLE.
           COMPUTE RESULT = FUNCTION INTEGER(-4.4)
           DISPLAY RESULT UPON CONSOLE.
           STOP   RUN.

$ cobc -x floor.cob
$ ./floor
    4
    4
   -5
   -5
$