[관악구 설인컴퓨터] /Cobol/프로그램 소스/제목:기초 소스 1-1

안녕하세요! 오늘은 고대 언어? 오래된 역사를 가진 코볼 언어로 간단히 입출력하는 소스를 공유하겠습니다.

​

​오랜 역사를 가진 언어다 보니 구동하는 컴파일러 찾기도 어려웠지만 전부터 알고 사용했던 프로그램으로 컴파일 작업을 하여 테스트하였습니다.

​

identification division.
program-id. prog.
environment division.
data division.
working-storage section.
  77 n pic 9(2).
  77 i pic 9(2).
  77 r pic Z(9)9.
procedure division.
  display 'Hello, World!'
  accept n
  move 0 to i
  perform until i greater than n
    compute r = 2**i
    display r
    add 1 to i
  end-perform.
  stop run.

결과값은

Hello, World!

가 뜨고 30을 입력하면

Hello, World!
         1
         2
         4
         8
        16
        32
        64
       128
       256
       512
      1024
      2048
      4096
      8192
     16384
     32768
     65536
    131072
    262144
    524288
   1048576
   2097152
   4194304
   8388608
  16777216
  33554432
  67108864
 134217728
 268435456
 536870912
1073741824

이렇게 31줄로 2의 배수로 내려가는 값이 나옵니다.

​

20을 입력하면 21줄이 출력되고

​

10을 이력하면 11줄이 출력 됩니다.

---

다음 이 소스는 아래의 스펙과 설정으로 구동이 되었습니다.

구동 디바이스:아이패드 운영체제:IPAD OS 13.2 S/W 정보:Programming Language (Cobol) S/W 언어:Cobol

​