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
$