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 > 商と余りを求める

    sho.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 RESULT PIC -----.
       77 FRESULT PIC 9V9999999.
       PROCEDURE DIVISION.
      * 除算
       COMPUTE RESULT = 10 / 3.
       DISPLAY RESULT UPON CONSOLE.
      * 余り
       COMPUTE RESULT = FUNCTION MOD(10 3).
       DISPLAY RESULT UPON CONSOLE.
       STOP RUN.
$ cobc -x sho.cob
$ ./sho
    3
    1
$