Tuesday, February 27, 2007
Perl/펄] 구구단 출력, 구구단표 만들기; Multiplication Table 99
펄로, 구구단(구구단표)을 화면에 출력하는 프로그램입니다. 구구단을 출력하는 것 자체는 쉽지만, 화면 크기에 맞추어서 보기 좋게 정렬하여 출력하려면 약간의 알고리즘(?)이 필요합니다.
아래의 펄 코드로 위의 출력 결과를 얻을 수 있습니다:
파일명: example.pl
또한
example.pl > out.txt
라는 명령으로 실행하면, 화면 출력 결과를 out.txt 라는 파일로 저장할 수 있습니다.
19단표 만들기: ▶▶ Perl/펄] 19단 출력, 19단표 만들기, 십구단 십구단표; 19 x 19 Table
구구단 게임 (온라인 버전):
▶▶ 구구단 게임, 99단 외우기 Game; 인터넷 브라우저에서 구구단 암기 놀이
D:\Z>example.pl
< 구구단 >
2 X 1 = 2 3 X 1 = 3 4 X 1 = 4 5 X 1 = 5
2 X 2 = 4 3 X 2 = 6 4 X 2 = 8 5 X 2 = 10
2 X 3 = 6 3 X 3 = 9 4 X 3 = 12 5 X 3 = 15
2 X 4 = 8 3 X 4 = 12 4 X 4 = 16 5 X 4 = 20
2 X 5 = 10 3 X 5 = 15 4 X 5 = 20 5 X 5 = 25
2 X 6 = 12 3 X 6 = 18 4 X 6 = 24 5 X 6 = 30
2 X 7 = 14 3 X 7 = 21 4 X 7 = 28 5 X 7 = 35
2 X 8 = 16 3 X 8 = 24 4 X 8 = 32 5 X 8 = 40
2 X 9 = 18 3 X 9 = 27 4 X 9 = 36 5 X 9 = 45
6 X 1 = 6 7 X 1 = 7 8 X 1 = 8 9 X 1 = 9
6 X 2 = 12 7 X 2 = 14 8 X 2 = 16 9 X 2 = 18
6 X 3 = 18 7 X 3 = 21 8 X 3 = 24 9 X 3 = 27
6 X 4 = 24 7 X 4 = 28 8 X 4 = 32 9 X 4 = 36
6 X 5 = 30 7 X 5 = 35 8 X 5 = 40 9 X 5 = 45
6 X 6 = 36 7 X 6 = 42 8 X 6 = 48 9 X 6 = 54
6 X 7 = 42 7 X 7 = 49 8 X 7 = 56 9 X 7 = 63
6 X 8 = 48 7 X 8 = 56 8 X 8 = 64 9 X 8 = 72
6 X 9 = 54 7 X 9 = 63 8 X 9 = 72 9 X 9 = 81
D:\Z>
< 구구단 >
2 X 1 = 2 3 X 1 = 3 4 X 1 = 4 5 X 1 = 5
2 X 2 = 4 3 X 2 = 6 4 X 2 = 8 5 X 2 = 10
2 X 3 = 6 3 X 3 = 9 4 X 3 = 12 5 X 3 = 15
2 X 4 = 8 3 X 4 = 12 4 X 4 = 16 5 X 4 = 20
2 X 5 = 10 3 X 5 = 15 4 X 5 = 20 5 X 5 = 25
2 X 6 = 12 3 X 6 = 18 4 X 6 = 24 5 X 6 = 30
2 X 7 = 14 3 X 7 = 21 4 X 7 = 28 5 X 7 = 35
2 X 8 = 16 3 X 8 = 24 4 X 8 = 32 5 X 8 = 40
2 X 9 = 18 3 X 9 = 27 4 X 9 = 36 5 X 9 = 45
6 X 1 = 6 7 X 1 = 7 8 X 1 = 8 9 X 1 = 9
6 X 2 = 12 7 X 2 = 14 8 X 2 = 16 9 X 2 = 18
6 X 3 = 18 7 X 3 = 21 8 X 3 = 24 9 X 3 = 27
6 X 4 = 24 7 X 4 = 28 8 X 4 = 32 9 X 4 = 36
6 X 5 = 30 7 X 5 = 35 8 X 5 = 40 9 X 5 = 45
6 X 6 = 36 7 X 6 = 42 8 X 6 = 48 9 X 6 = 54
6 X 7 = 42 7 X 7 = 49 8 X 7 = 56 9 X 7 = 63
6 X 8 = 48 7 X 8 = 56 8 X 8 = 64 9 X 8 = 72
6 X 9 = 54 7 X 9 = 63 8 X 9 = 72 9 X 9 = 81
D:\Z>
아래의 펄 코드로 위의 출력 결과를 얻을 수 있습니다:
구구단표 작성 예제
파일명: example.pl
#!/usr/bin/perl
use strict; use warnings;
print "\n < 구구단 >\n";
for (my $j = 1; $j <= 9; $j++) {
print "\n";
for (my $i = 2; $i <= 5; $i++) { # 2단 ~ 5단까지
printf("%d X %d = %2d ", $i, $j, $i * $j);
}
}
print "\n"; # 줄바꿈
for (my $j = 1; $j <= 9; $j++) {
print "\n";
for (my $i = 6; $i <= 9; $i++) { # 6단 ~ 9단까지
printf("%d X %d = %2d ", $i, $j, $i * $j);
}
}
print "\n"; # 줄바꿈
use strict; use warnings;
print "\n < 구구단 >\n";
for (my $j = 1; $j <= 9; $j++) {
print "\n";
for (my $i = 2; $i <= 5; $i++) { # 2단 ~ 5단까지
printf("%d X %d = %2d ", $i, $j, $i * $j);
}
}
print "\n"; # 줄바꿈
for (my $j = 1; $j <= 9; $j++) {
print "\n";
for (my $i = 6; $i <= 9; $i++) { # 6단 ~ 9단까지
printf("%d X %d = %2d ", $i, $j, $i * $j);
}
}
print "\n"; # 줄바꿈
또한
example.pl > out.txt
라는 명령으로 실행하면, 화면 출력 결과를 out.txt 라는 파일로 저장할 수 있습니다.
19단표 만들기: ▶▶ Perl/펄] 19단 출력, 19단표 만들기, 십구단 십구단표; 19 x 19 Table
구구단 게임 (온라인 버전):
▶▶ 구구단 게임, 99단 외우기 Game; 인터넷 브라우저에서 구구단 암기 놀이
tag: perl
Perl | 펄
<< Home