Monday, March 05, 2007
Perl/펄] 19단 출력, 19단표 만들기, 십구단 십구단표; 19 x 19 Table
구구단의 확장 버전인 19단을 만들어서 출력하는 프로그램입니다. 그렇지만 십구단을 아이에게 외우게 하는 것에는 찬성하지 않습니다. 자녀의 수학 실력을 향상시키려면 이런 것을 외우게 하는 것보다, 공학용 계산기를 한 대 사주고 장난감처럼 가지고 놀게 하는 것이 좋습니다. 수학이라는 것이 곱셈만으로 이루어져 있는 것은 아니지 않겠습니까.
아무튼 아래와 같은 19단표가 자동으로 만들어집니다:
< 19단 >
2 X 1 = 2 3 X 1 = 3 4 X 1 = 4 5 X 1 = 5 6 X 1 = 6 7 X 1 = 7
2 X 2 = 4 3 X 2 = 6 4 X 2 = 8 5 X 2 = 10 6 X 2 = 12 7 X 2 = 14
2 X 3 = 6 3 X 3 = 9 4 X 3 = 12 5 X 3 = 15 6 X 3 = 18 7 X 3 = 21
2 X 4 = 8 3 X 4 = 12 4 X 4 = 16 5 X 4 = 20 6 X 4 = 24 7 X 4 = 28
2 X 5 = 10 3 X 5 = 15 4 X 5 = 20 5 X 5 = 25 6 X 5 = 30 7 X 5 = 35
2 X 6 = 12 3 X 6 = 18 4 X 6 = 24 5 X 6 = 30 6 X 6 = 36 7 X 6 = 42
2 X 7 = 14 3 X 7 = 21 4 X 7 = 28 5 X 7 = 35 6 X 7 = 42 7 X 7 = 49
2 X 8 = 16 3 X 8 = 24 4 X 8 = 32 5 X 8 = 40 6 X 8 = 48 7 X 8 = 56
2 X 9 = 18 3 X 9 = 27 4 X 9 = 36 5 X 9 = 45 6 X 9 = 54 7 X 9 = 63
2 X 10 = 20 3 X 10 = 30 4 X 10 = 40 5 X 10 = 50 6 X 10 = 60 7 X 10 = 70
2 X 11 = 22 3 X 11 = 33 4 X 11 = 44 5 X 11 = 55 6 X 11 = 66 7 X 11 = 77
2 X 12 = 24 3 X 12 = 36 4 X 12 = 48 5 X 12 = 60 6 X 12 = 72 7 X 12 = 84
2 X 13 = 26 3 X 13 = 39 4 X 13 = 52 5 X 13 = 65 6 X 13 = 78 7 X 13 = 91
2 X 14 = 28 3 X 14 = 42 4 X 14 = 56 5 X 14 = 70 6 X 14 = 84 7 X 14 = 98
2 X 15 = 30 3 X 15 = 45 4 X 15 = 60 5 X 15 = 75 6 X 15 = 90 7 X 15 = 105
2 X 16 = 32 3 X 16 = 48 4 X 16 = 64 5 X 16 = 80 6 X 16 = 96 7 X 16 = 112
2 X 17 = 34 3 X 17 = 51 4 X 17 = 68 5 X 17 = 85 6 X 17 = 102 7 X 17 = 119
2 X 18 = 36 3 X 18 = 54 4 X 18 = 72 5 X 18 = 90 6 X 18 = 108 7 X 18 = 126
2 X 19 = 38 3 X 19 = 57 4 X 19 = 76 5 X 19 = 95 6 X 19 = 114 7 X 19 = 133
8 X 1 = 8 9 X 1 = 9 10 X 1 = 10 11 X 1 = 11 12 X 1 = 12 13 X 1 = 13
8 X 2 = 16 9 X 2 = 18 10 X 2 = 20 11 X 2 = 22 12 X 2 = 24 13 X 2 = 26
8 X 3 = 24 9 X 3 = 27 10 X 3 = 30 11 X 3 = 33 12 X 3 = 36 13 X 3 = 39
8 X 4 = 32 9 X 4 = 36 10 X 4 = 40 11 X 4 = 44 12 X 4 = 48 13 X 4 = 52
8 X 5 = 40 9 X 5 = 45 10 X 5 = 50 11 X 5 = 55 12 X 5 = 60 13 X 5 = 65
8 X 6 = 48 9 X 6 = 54 10 X 6 = 60 11 X 6 = 66 12 X 6 = 72 13 X 6 = 78
8 X 7 = 56 9 X 7 = 63 10 X 7 = 70 11 X 7 = 77 12 X 7 = 84 13 X 7 = 91
8 X 8 = 64 9 X 8 = 72 10 X 8 = 80 11 X 8 = 88 12 X 8 = 96 13 X 8 = 104
8 X 9 = 72 9 X 9 = 81 10 X 9 = 90 11 X 9 = 99 12 X 9 = 108 13 X 9 = 117
8 X 10 = 80 9 X 10 = 90 10 X 10 = 100 11 X 10 = 110 12 X 10 = 120 13 X 10 = 130
8 X 11 = 88 9 X 11 = 99 10 X 11 = 110 11 X 11 = 121 12 X 11 = 132 13 X 11 = 143
8 X 12 = 96 9 X 12 = 108 10 X 12 = 120 11 X 12 = 132 12 X 12 = 144 13 X 12 = 156
8 X 13 = 104 9 X 13 = 117 10 X 13 = 130 11 X 13 = 143 12 X 13 = 156 13 X 13 = 169
8 X 14 = 112 9 X 14 = 126 10 X 14 = 140 11 X 14 = 154 12 X 14 = 168 13 X 14 = 182
8 X 15 = 120 9 X 15 = 135 10 X 15 = 150 11 X 15 = 165 12 X 15 = 180 13 X 15 = 195
8 X 16 = 128 9 X 16 = 144 10 X 16 = 160 11 X 16 = 176 12 X 16 = 192 13 X 16 = 208
8 X 17 = 136 9 X 17 = 153 10 X 17 = 170 11 X 17 = 187 12 X 17 = 204 13 X 17 = 221
8 X 18 = 144 9 X 18 = 162 10 X 18 = 180 11 X 18 = 198 12 X 18 = 216 13 X 18 = 234
8 X 19 = 152 9 X 19 = 171 10 X 19 = 190 11 X 19 = 209 12 X 19 = 228 13 X 19 = 247
14 X 1 = 14 15 X 1 = 15 16 X 1 = 16 17 X 1 = 17 18 X 1 = 18 19 X 1 = 19
14 X 2 = 28 15 X 2 = 30 16 X 2 = 32 17 X 2 = 34 18 X 2 = 36 19 X 2 = 38
14 X 3 = 42 15 X 3 = 45 16 X 3 = 48 17 X 3 = 51 18 X 3 = 54 19 X 3 = 57
14 X 4 = 56 15 X 4 = 60 16 X 4 = 64 17 X 4 = 68 18 X 4 = 72 19 X 4 = 76
14 X 5 = 70 15 X 5 = 75 16 X 5 = 80 17 X 5 = 85 18 X 5 = 90 19 X 5 = 95
14 X 6 = 84 15 X 6 = 90 16 X 6 = 96 17 X 6 = 102 18 X 6 = 108 19 X 6 = 114
14 X 7 = 98 15 X 7 = 105 16 X 7 = 112 17 X 7 = 119 18 X 7 = 126 19 X 7 = 133
14 X 8 = 112 15 X 8 = 120 16 X 8 = 128 17 X 8 = 136 18 X 8 = 144 19 X 8 = 152
14 X 9 = 126 15 X 9 = 135 16 X 9 = 144 17 X 9 = 153 18 X 9 = 162 19 X 9 = 171
14 X 10 = 140 15 X 10 = 150 16 X 10 = 160 17 X 10 = 170 18 X 10 = 180 19 X 10 = 190
14 X 11 = 154 15 X 11 = 165 16 X 11 = 176 17 X 11 = 187 18 X 11 = 198 19 X 11 = 209
14 X 12 = 168 15 X 12 = 180 16 X 12 = 192 17 X 12 = 204 18 X 12 = 216 19 X 12 = 228
14 X 13 = 182 15 X 13 = 195 16 X 13 = 208 17 X 13 = 221 18 X 13 = 234 19 X 13 = 247
14 X 14 = 196 15 X 14 = 210 16 X 14 = 224 17 X 14 = 238 18 X 14 = 252 19 X 14 = 266
14 X 15 = 210 15 X 15 = 225 16 X 15 = 240 17 X 15 = 255 18 X 15 = 270 19 X 15 = 285
14 X 16 = 224 15 X 16 = 240 16 X 16 = 256 17 X 16 = 272 18 X 16 = 288 19 X 16 = 304
14 X 17 = 238 15 X 17 = 255 16 X 17 = 272 17 X 17 = 289 18 X 17 = 306 19 X 17 = 323
14 X 18 = 252 15 X 18 = 270 16 X 18 = 288 17 X 18 = 306 18 X 18 = 324 19 X 18 = 342
14 X 19 = 266 15 X 19 = 285 16 X 19 = 304 17 X 19 = 323 18 X 19 = 342 19 X 19 = 361
아래의 펄 소스로 위의 십구단표를 얻을 수 있습니다.
※ 아래 박스 클릭 후, 키보드 화살표 키로 좌우 스크롤 가능함
위의 소스는 19단 표를 그대로 화면에 출력하는데, 화면의 폭이 좁아서, 출력 결과가 이상하게 나올 것입니다.
따라서
도스창(명령 프롬프트;CMD.EXE)에서
example.pl > out.txt
이렇게 실행하여, 출력 결과를 out.txt 라는 텍스트 파일로 저장해야 합니다. out.txt 파일을 메모장 등의 편집기로 열어보면 됩니다.
구구단 만들기: ▶▶ Perl/펄] 구구단 출력, 구구단표 만들기; Multiplication Table 99
아무튼 아래와 같은 19단표가 자동으로 만들어집니다:
출력 파일인 19단표(out.txt)의 내용:
(※ 스크롤 박스 사용법: 박스 안을 마우스로 클릭한 후, 키보드의 좌우 화살표키를 누르면 양옆으로 움직일 수 있습니다. 박스에서 다시 나오려면, 박스 바깥의 아무곳이나 클릭하면 됩니다.)< 19단 >
2 X 1 = 2 3 X 1 = 3 4 X 1 = 4 5 X 1 = 5 6 X 1 = 6 7 X 1 = 7
2 X 2 = 4 3 X 2 = 6 4 X 2 = 8 5 X 2 = 10 6 X 2 = 12 7 X 2 = 14
2 X 3 = 6 3 X 3 = 9 4 X 3 = 12 5 X 3 = 15 6 X 3 = 18 7 X 3 = 21
2 X 4 = 8 3 X 4 = 12 4 X 4 = 16 5 X 4 = 20 6 X 4 = 24 7 X 4 = 28
2 X 5 = 10 3 X 5 = 15 4 X 5 = 20 5 X 5 = 25 6 X 5 = 30 7 X 5 = 35
2 X 6 = 12 3 X 6 = 18 4 X 6 = 24 5 X 6 = 30 6 X 6 = 36 7 X 6 = 42
2 X 7 = 14 3 X 7 = 21 4 X 7 = 28 5 X 7 = 35 6 X 7 = 42 7 X 7 = 49
2 X 8 = 16 3 X 8 = 24 4 X 8 = 32 5 X 8 = 40 6 X 8 = 48 7 X 8 = 56
2 X 9 = 18 3 X 9 = 27 4 X 9 = 36 5 X 9 = 45 6 X 9 = 54 7 X 9 = 63
2 X 10 = 20 3 X 10 = 30 4 X 10 = 40 5 X 10 = 50 6 X 10 = 60 7 X 10 = 70
2 X 11 = 22 3 X 11 = 33 4 X 11 = 44 5 X 11 = 55 6 X 11 = 66 7 X 11 = 77
2 X 12 = 24 3 X 12 = 36 4 X 12 = 48 5 X 12 = 60 6 X 12 = 72 7 X 12 = 84
2 X 13 = 26 3 X 13 = 39 4 X 13 = 52 5 X 13 = 65 6 X 13 = 78 7 X 13 = 91
2 X 14 = 28 3 X 14 = 42 4 X 14 = 56 5 X 14 = 70 6 X 14 = 84 7 X 14 = 98
2 X 15 = 30 3 X 15 = 45 4 X 15 = 60 5 X 15 = 75 6 X 15 = 90 7 X 15 = 105
2 X 16 = 32 3 X 16 = 48 4 X 16 = 64 5 X 16 = 80 6 X 16 = 96 7 X 16 = 112
2 X 17 = 34 3 X 17 = 51 4 X 17 = 68 5 X 17 = 85 6 X 17 = 102 7 X 17 = 119
2 X 18 = 36 3 X 18 = 54 4 X 18 = 72 5 X 18 = 90 6 X 18 = 108 7 X 18 = 126
2 X 19 = 38 3 X 19 = 57 4 X 19 = 76 5 X 19 = 95 6 X 19 = 114 7 X 19 = 133
8 X 1 = 8 9 X 1 = 9 10 X 1 = 10 11 X 1 = 11 12 X 1 = 12 13 X 1 = 13
8 X 2 = 16 9 X 2 = 18 10 X 2 = 20 11 X 2 = 22 12 X 2 = 24 13 X 2 = 26
8 X 3 = 24 9 X 3 = 27 10 X 3 = 30 11 X 3 = 33 12 X 3 = 36 13 X 3 = 39
8 X 4 = 32 9 X 4 = 36 10 X 4 = 40 11 X 4 = 44 12 X 4 = 48 13 X 4 = 52
8 X 5 = 40 9 X 5 = 45 10 X 5 = 50 11 X 5 = 55 12 X 5 = 60 13 X 5 = 65
8 X 6 = 48 9 X 6 = 54 10 X 6 = 60 11 X 6 = 66 12 X 6 = 72 13 X 6 = 78
8 X 7 = 56 9 X 7 = 63 10 X 7 = 70 11 X 7 = 77 12 X 7 = 84 13 X 7 = 91
8 X 8 = 64 9 X 8 = 72 10 X 8 = 80 11 X 8 = 88 12 X 8 = 96 13 X 8 = 104
8 X 9 = 72 9 X 9 = 81 10 X 9 = 90 11 X 9 = 99 12 X 9 = 108 13 X 9 = 117
8 X 10 = 80 9 X 10 = 90 10 X 10 = 100 11 X 10 = 110 12 X 10 = 120 13 X 10 = 130
8 X 11 = 88 9 X 11 = 99 10 X 11 = 110 11 X 11 = 121 12 X 11 = 132 13 X 11 = 143
8 X 12 = 96 9 X 12 = 108 10 X 12 = 120 11 X 12 = 132 12 X 12 = 144 13 X 12 = 156
8 X 13 = 104 9 X 13 = 117 10 X 13 = 130 11 X 13 = 143 12 X 13 = 156 13 X 13 = 169
8 X 14 = 112 9 X 14 = 126 10 X 14 = 140 11 X 14 = 154 12 X 14 = 168 13 X 14 = 182
8 X 15 = 120 9 X 15 = 135 10 X 15 = 150 11 X 15 = 165 12 X 15 = 180 13 X 15 = 195
8 X 16 = 128 9 X 16 = 144 10 X 16 = 160 11 X 16 = 176 12 X 16 = 192 13 X 16 = 208
8 X 17 = 136 9 X 17 = 153 10 X 17 = 170 11 X 17 = 187 12 X 17 = 204 13 X 17 = 221
8 X 18 = 144 9 X 18 = 162 10 X 18 = 180 11 X 18 = 198 12 X 18 = 216 13 X 18 = 234
8 X 19 = 152 9 X 19 = 171 10 X 19 = 190 11 X 19 = 209 12 X 19 = 228 13 X 19 = 247
14 X 1 = 14 15 X 1 = 15 16 X 1 = 16 17 X 1 = 17 18 X 1 = 18 19 X 1 = 19
14 X 2 = 28 15 X 2 = 30 16 X 2 = 32 17 X 2 = 34 18 X 2 = 36 19 X 2 = 38
14 X 3 = 42 15 X 3 = 45 16 X 3 = 48 17 X 3 = 51 18 X 3 = 54 19 X 3 = 57
14 X 4 = 56 15 X 4 = 60 16 X 4 = 64 17 X 4 = 68 18 X 4 = 72 19 X 4 = 76
14 X 5 = 70 15 X 5 = 75 16 X 5 = 80 17 X 5 = 85 18 X 5 = 90 19 X 5 = 95
14 X 6 = 84 15 X 6 = 90 16 X 6 = 96 17 X 6 = 102 18 X 6 = 108 19 X 6 = 114
14 X 7 = 98 15 X 7 = 105 16 X 7 = 112 17 X 7 = 119 18 X 7 = 126 19 X 7 = 133
14 X 8 = 112 15 X 8 = 120 16 X 8 = 128 17 X 8 = 136 18 X 8 = 144 19 X 8 = 152
14 X 9 = 126 15 X 9 = 135 16 X 9 = 144 17 X 9 = 153 18 X 9 = 162 19 X 9 = 171
14 X 10 = 140 15 X 10 = 150 16 X 10 = 160 17 X 10 = 170 18 X 10 = 180 19 X 10 = 190
14 X 11 = 154 15 X 11 = 165 16 X 11 = 176 17 X 11 = 187 18 X 11 = 198 19 X 11 = 209
14 X 12 = 168 15 X 12 = 180 16 X 12 = 192 17 X 12 = 204 18 X 12 = 216 19 X 12 = 228
14 X 13 = 182 15 X 13 = 195 16 X 13 = 208 17 X 13 = 221 18 X 13 = 234 19 X 13 = 247
14 X 14 = 196 15 X 14 = 210 16 X 14 = 224 17 X 14 = 238 18 X 14 = 252 19 X 14 = 266
14 X 15 = 210 15 X 15 = 225 16 X 15 = 240 17 X 15 = 255 18 X 15 = 270 19 X 15 = 285
14 X 16 = 224 15 X 16 = 240 16 X 16 = 256 17 X 16 = 272 18 X 16 = 288 19 X 16 = 304
14 X 17 = 238 15 X 17 = 255 16 X 17 = 272 17 X 17 = 289 18 X 17 = 306 19 X 17 = 323
14 X 18 = 252 15 X 18 = 270 16 X 18 = 288 17 X 18 = 306 18 X 18 = 324 19 X 18 = 342
14 X 19 = 266 15 X 19 = 285 16 X 19 = 304 17 X 19 = 323 18 X 19 = 342 19 X 19 = 361
아래의 펄 소스로 위의 십구단표를 얻을 수 있습니다.
19단 표 (십구단 표) 출력 소스 코드
스크립트 파일명: example.pl※ 아래 박스 클릭 후, 키보드 화살표 키로 좌우 스크롤 가능함
#!/usr/bin/perl
use strict; use warnings;
print "\n < 19단 >\n";
for (my $z = 0; $z <= 12; $z += 6) { # 19단을 3행으로 나누어 출력
for (my $j = 1; $j <= 19; $j++) {
print "\n";
for (my $i = 2 + $z; $i <= 7 + $z; $i++) { # 2단에서 19단까지
printf("%2d X %2d = %3d ", $i, $j, $i * $j);
}
}
print "\n";
}
print "\n";
use strict; use warnings;
print "\n < 19단 >\n";
for (my $z = 0; $z <= 12; $z += 6) { # 19단을 3행으로 나누어 출력
for (my $j = 1; $j <= 19; $j++) {
print "\n";
for (my $i = 2 + $z; $i <= 7 + $z; $i++) { # 2단에서 19단까지
printf("%2d X %2d = %3d ", $i, $j, $i * $j);
}
}
print "\n";
}
print "\n";
위의 소스는 19단 표를 그대로 화면에 출력하는데, 화면의 폭이 좁아서, 출력 결과가 이상하게 나올 것입니다.
따라서
도스창(명령 프롬프트;CMD.EXE)에서
example.pl > out.txt
이렇게 실행하여, 출력 결과를 out.txt 라는 텍스트 파일로 저장해야 합니다. out.txt 파일을 메모장 등의 편집기로 열어보면 됩니다.
구구단 만들기: ▶▶ Perl/펄] 구구단 출력, 구구단표 만들기; Multiplication Table 99
tag: perl
Perl | 펄
<< Home