- 유머가 아닌 펌글, 영상 등 가볍게 볼 수 있는 글들도 게시가 가능합니다.
- 여러 회원들이 함께 사용하기 위해 각 회원당 하루 5개로 횟수제한이 있습니다.
- 특정인 비방성 자료는 삼가주십시오.
| Date | 17/08/08 12:35:57 |
| Name | T.Robin |
| File #1 | toggl_how_to_kill_the_dragon_with_9_programming_languages.jpg (849.4 KB), Download : 23 |
| Subject | 프로그래밍 언어로 드래곤을 잡는 방법 |
 월급도둑질 하다가 어딘가에서 <프로그래밍 언어로 공주님을 구출하는 방법>이라는게 있길래 좀 뒤져봤더니 그 후속작으로 <프로그래밍 언어로 드래곤을 잡는 방법>이라는게 나왔더군요. 시간을 많이 낼 수는 없는 터라 일단 급한데로 그림판으로 대충 식자해봤습니다. 2
이 게시판에 등록된 T.Robin님의 최근 게시물
|
|
뭐, 굳이 원하신다면야...... ;)
10 RANDOMIZE TIMER
20 CLS
30 PRINT "1--------------------"
40 PRINT "2--------------------"
50 PRINT "3--------------------"
60 PRINT "4--------------------"
70 DIM P(4)
80 FOR I=1 TO 4
90 P(I)=2
100 NEXT I
110 I=INT(RND(1)*4)+1
120 LOCATE I,P(I): PRINT "-"
130 P(I)=P(I)+1
140 LOCATE I,P(I): PRINT "*"... 더 보기
10 RANDOMIZE TIMER
20 CLS
30 PRINT "1--------------------"
40 PRINT "2--------------------"
50 PRINT "3--------------------"
60 PRINT "4--------------------"
70 DIM P(4)
80 FOR I=1 TO 4
90 P(I)=2
100 NEXT I
110 I=INT(RND(1)*4)+1
120 LOCATE I,P(I): PRINT "-"
130 P(I)=P(I)+1
140 LOCATE I,P(I): PRINT "*"... 더 보기
뭐, 굳이 원하신다면야...... ;)
10 RANDOMIZE TIMER
20 CLS
30 PRINT "1--------------------"
40 PRINT "2--------------------"
50 PRINT "3--------------------"
60 PRINT "4--------------------"
70 DIM P(4)
80 FOR I=1 TO 4
90 P(I)=2
100 NEXT I
110 I=INT(RND(1)*4)+1
120 LOCATE I,P(I): PRINT "-"
130 P(I)=P(I)+1
140 LOCATE I,P(I): PRINT "*"
150 FOR J=1 TO 4
160 IF P[J]=21 THEN LOCATE 5,1: PRINT STR$(J);" WON!":END
170 NEXT J
180 GOTO 110
190 REM (C)Copyright 2016-2017 T.Robin. All rights reserved. License: GPL
여기서 테스트해보실 수 있습니다:
https://sourceforge.net/projects/pcbasic/
(GW-BASIC 에뮬레이터)
10 RANDOMIZE TIMER
20 CLS
30 PRINT "1--------------------"
40 PRINT "2--------------------"
50 PRINT "3--------------------"
60 PRINT "4--------------------"
70 DIM P(4)
80 FOR I=1 TO 4
90 P(I)=2
100 NEXT I
110 I=INT(RND(1)*4)+1
120 LOCATE I,P(I): PRINT "-"
130 P(I)=P(I)+1
140 LOCATE I,P(I): PRINT "*"
150 FOR J=1 TO 4
160 IF P[J]=21 THEN LOCATE 5,1: PRINT STR$(J);" WON!":END
170 NEXT J
180 GOTO 110
190 REM (C)Copyright 2016-2017 T.Robin. All rights reserved. License: GPL
여기서 테스트해보실 수 있습니다:
https://sourceforge.net/projects/pcbasic/
(GW-BASIC 에뮬레이터)
| 목록 |
|
