늬들 내가 구구단 소스 공짜로 드립니다.

1/1

2023년 11월부터 2024년 4월 안과 진료비 내역이라도 보여주랴? ☆단비☆
아마 홈피 제오픈하면 러스트 악성분자들 개난리 칠 듯. ☆단비☆
러스트 악성분자들의 악성행위를 모아놓았으니 ☆단비☆
59.16 이 사람 예전에 나한테 욕하고 그랬던 사람이잖아 ☆단비☆
kime 러스트 악성행위 때문에 병원다닌 건 사실인데..ㅎㅎ ☆단비☆
it 중소 중견 대기업 다 다닌 집단 안의 사람 소감 프갤러

늬들 내가 구구단 소스 공짜로 드립니다.

nRST

2009.07.22 15:49:26

조회 132 추천 0 댓글 6

<pre>
   IDENTIFICATION                      DIVISION.
       PROGRAM-ID.                    gugudan
      *----------------------------------------------*
       ENVIRONMENT                     DIVISION.
       CONFIGURATION                                SECTION.
       SOURCE-COMPUTER.                        FACOM 230-45.
       OBJECT-COMPUTER.                          FACOM 230-45.
        INPUT-OUTPUT                                SECTION.
        FILE-CONTROL.
       SELECT   CARD-F      ASSIGN      TO    "U01".
       SELECT    PRINT-F    ASSIGN       TO  "U02".
      *-------------------------------------------*
       DATA                            DIVISION.
       WORKING-STORAGE                 SECTION.
       77 I     PIC 99 VALUE 0.
       77 J     PIC 99 VALUE 0.
       77 K     PIC 99 VALUE 0.
       77 N     PIC 99 VALUE 0.

       01 DISP-1.
         03 A      PIC 9.
         03 FILLER PIC X VALUE "X".
         03 B      PIC 9.
         03 FILLER PIC X VALUE "=".
         03 C      PIC Z9.

       01 DISP-2.
         03 FILLER PIC XX VALUE SPACE.
         03 D      PIC X(8)  OCCURS 8 TIMES.
      *---------------------------------------------*
       PROCEDURE                       DIVISION.
       START-RTN.
            PERFORM PROC-1   VARYING I FROM 1 BY 1 UNTIL I > 9.
       END-RTN.
             STOP RUN.

       PROC-1.
            MOVE 0 TO N.
            PERFORM PROC-11 VARYING J FROM 2 BY 1 UNTIL J > 9.
            DISPLAY DISP-2.

       PROC-11.
            MOVE J TO A, MOVE I TO B.
            COMPUTE K = J * I.
            MOVE K TO C.
            ADD 1 TO N.
            MOVE DISP-1 TO D(N).
</pre>

해석은 알아서

고정닉 0

전체 댓글 0개

등록순

본문 보기

타인의 권리를 침해하거나 명예를 훼손하는 댓글은 운영원칙 및 관련 법률에 제재를 받을 수 있습니다.
Shift+Enter 키를 동시에 누르면 줄바꿈이 됩니다.

갤러리 리스트
번호	제목	글쓴이	작성일	조회	추천
설문	힘들게 성공한 만큼 절대 논란 안 만들 것 같은 스타는?	운영자	24/06/10	-	-
152418	쉘스크립트로 만든 웹서버 [3]	JuEUS-U	09.10.15	156	0
152416	핫핫핫 귀여워 [1]	이모군(110.8)	09.10.15	107	0
152414	너님들힘내	편의점습격사건	09.10.15	65	0
152413	진짜 여긴 뭐하는 회사인지 모르겠네... [20]	임베디드(112.150)	09.10.15	305	0
152412	든데 여자교수는정말 ㄱ- [5]	빙글이	09.10.15	265	0
152409	알고리즘이 문제야.ㅠㅠ [10]	ㅁㄴㅇㄹ(203.223)	09.10.15	130	0
152408	프갤오빠들 펑션기능있자나영;ㅅ;.. [15]	빙글이	09.10.15	238	0
152405	지금까지 프갤에 남아있는 신사숙녀여러분 ^^ [4]	IHF	09.10.15	88	0
152404	미친 말라리아..	켁큇	09.10.15	60	0
152403	하도 처잤더니 [4]	algo	09.10.15	107	0
152398	형님들 도와주세요,ㅠㅠ 간단한거임,ㅎ [7]	제발,(124.216)	09.10.14	93	0
152396	혹시 녹음 할줄 아는횽 없어? ㅠㅠ [1]	전호섭(113.131)	09.10.14	61	0
152395	형들 포트란에서 질문이 있어... [1]	꼐임(210.216)	09.10.14	52	0
152394	리눅스 커널 스케줄링 좀 해본형들 봐줘.. [5]	형들미안(121.169)	09.10.14	104	0
152393	돌아다니다가 랜덤채팅 떡밥을 물었어. [1]	IHF	09.10.14	95	0
152392	퇴갤을 알리는...형들, 잘자 [4]	숙신	09.10.14	53	0
152390	프갤 족보를 만드는건 어때.. [8]	Vita500	09.10.14	192	0
152389	프갤 족보를 만드는건 어때.. [4]	Pupustory	09.10.14	151	0
152388	우울하다..역시.. [1]	허공	09.10.14	42	0
152387	내가 보기엔 최고의 전망은 [23]	오사카(124.56)	09.10.14	273	0
152386	A*알고리즘으로 8퍼즐 만드는거 쉬워? [1]	Tulsa	09.10.14	92	0
152383	내 이메일 공개한다. [7]	피로토스	09.10.14	136	0
152382	형들 C# 에서 어떻게 폼만 투명하게 만들어?? [4]	ㅠㅠ(123.142)	09.10.14	1444	0
152381	혹시 일산 킨텍스 구경한 횽들잇음?? [3]	허공	09.10.14	65	0
152380	그림쟁이들도 코딩쟁이만큼 짜네여 . . [5]	온순한감자	09.10.14	173	0
152379	기성용 골넣었다 [1]	ㅇㅇㅃ	09.10.14	38	0
152378	[VC][VB] dll VB에서 참조하는거 질문한 넘 봐라. [3]	피로토스	09.10.14	167	0
152377	지구인 씹쎄끼들 야구 축구 좀 고만했으면 좋겠음 [25]	오사카(124.56)	09.10.14	249	0
152376	개발자 ≠ 컴퓨터 능력자 ?? [5]	ls232(112.171)	09.10.14	181	0
152375	c++ 유니코드질문 [4]	이쁜뇌종양	09.10.14	91	0
152374	오호라..? [4]	IHF	09.10.14	84	0
152373	까북 님은 봅니다(2) [14]	숙신	09.10.14	118	0
152372	Rhea 지금 있음??? [7]	ls232(112.171)	09.10.14	91	0
152371	까북 님은 봅니다. [4]	숙신	09.10.14	87	0
152370	xp administration계정 비번을 까먹었어.. -_- [2]	ls232(112.171)	09.10.14	74	0
152369	형들 간단한 c++문제좀 봐줘... [3]	까북	09.10.14	87	0
152368	님들 자바스크립트에서 주석문기호가 //주석문 이거랑 /주석문/ 이거 [1]	시년덕	09.10.14	57	0
152367	IT인들은 정말.... [4]	물속의다이아	09.10.14	158	0
152366	잦뉴비가 이제 오라클 배울려는데... [1]	신발라마	09.10.14	86	0
152365	광고 댓글좀 쓰지마, 제발 [1]	숙신	09.10.14	73	0
152364	본격 질문 [4]	IHF	09.10.14	75	0
152363	형들 꼬꼬마 질문점 [20]	ㅋㅋㅋㅋ(211.224)	09.10.14	140	0
152362	아오 이놈의 모기색퀴들은 [3]	숙신	09.10.14	78	0
152359	[루비] 프로그램에서 한 동작을 수행한 후, 메모리 비우는 방법 좀. [3]	루비질문(58.79)	09.10.14	117	0
152358	[질문] C#에는 C++처럼 SDI, MDI 애플리케이션 개념은 없나요? [4]	오라클설치	09.10.14	181	0
152356	면접본 회사에서 내준 과제... [2]	임베디드(112.150)	09.10.14	207	0
152355	개념글 - 사장되는 와이브로 기술 [1]	each(118.46)	09.10.14	117	0
152354	C++ 문법만 몇일이면 끝내나요 [8]	야(121.129)	09.10.14	184	0
152350	나도 기분이 아주 좆같다	LightEach	09.10.14	62	0
152349	티베로..? 뭥미...? [4]	캐꼬꼬닭(112.216)	09.10.14	156	0