Friday, April 13, 2007
Perl 펄] 퍼센트 증가/감소, 인상/인하, 백분율 계산; Percent Increase Decrease
Perl에서, 숫자를 몇 퍼센트 증가시키거나 감소시키는 방법입니다. 계산 공식을 그대로 펄 코드로 만들어 주었습니다.
탁상용 계산기로 각종 퍼센트 계산을 하면, 버튼 누르는 순서들을 기억하기가 어렵기에, 이렇게 프로그래밍을 하는 것이 더 편리합니다.
참고로, print문 끝의 "\n" 은 다음줄로 줄바꿈하라는 뜻입니다.
스크립트 파일명: example.pl
퍼센트 계산 기초: ▶▶ Perl 펄] 퍼센트 계산, 백분율 구하기; Percent Percentage
탁상용 계산기로 각종 퍼센트 계산을 하면, 버튼 누르는 순서들을 기억하기가 어렵기에, 이렇게 프로그래밍을 하는 것이 더 편리합니다.
참고로, print문 끝의 "\n" 은 다음줄로 줄바꿈하라는 뜻입니다.
백분율 증감 계산 예제
스크립트 파일명: example.pl
#!/usr/bin/perl
use strict; use warnings;
my $result;
########################################
# 숫자를 몇 퍼센트 증가
# 공식은 "숫자 * (1 + 퍼센트 / 100)"
# 100을 10퍼센트 증가
$result = 100 * (1 + 10 / 100);
print $result, "\n";
# 출력 결과: 110
# 100을 100퍼센트 증가
print 100 * (1 + 100 / 100), "\n";
# 출력 결과: 200
# 100을 200퍼센트 증가
print 100 * (1 + 200 / 100), "\n";
# 출력 결과: 300
# 1548을 66퍼센트 증가
print 1548 * (1 + 66 / 100), "\n";
# 출력 결과: 2569.68
# 6500을 15퍼센트 증가
print 6500 * (1 + 15 / 100), "\n";
# 출력 결과: 7475
# 탁상용 계산기는, "6500 + 15%"로 계산 가능
########################################
# 숫자를 몇 퍼센트 감소
# 공식은 "숫자 * (1 - 퍼센트 / 100)"
# 100을 10퍼센트 감소
$result = 100 * (1 - 10 / 100);
print $result, "\n";
# 출력 결과: 90
# 100을 200퍼센트 감소
$result = 100 * (1 - 200 / 100);
print $result, "\n";
# 출력 결과: -100
# 1548을 66퍼센트 감소
print 1548 * (1 - 66 / 100), "\n";
# 출력 결과: 526.32
# 7600을 25퍼센트 감소
print 7600 * (1 - 25 / 100), "\n";
# 출력 결과: 5700
# 탁상용 계산기에서는, "7600 - 25%"로 계산 가능
use strict; use warnings;
my $result;
########################################
# 숫자를 몇 퍼센트 증가
# 공식은 "숫자 * (1 + 퍼센트 / 100)"
# 100을 10퍼센트 증가
$result = 100 * (1 + 10 / 100);
print $result, "\n";
# 출력 결과: 110
# 100을 100퍼센트 증가
print 100 * (1 + 100 / 100), "\n";
# 출력 결과: 200
# 100을 200퍼센트 증가
print 100 * (1 + 200 / 100), "\n";
# 출력 결과: 300
# 1548을 66퍼센트 증가
print 1548 * (1 + 66 / 100), "\n";
# 출력 결과: 2569.68
# 6500을 15퍼센트 증가
print 6500 * (1 + 15 / 100), "\n";
# 출력 결과: 7475
# 탁상용 계산기는, "6500 + 15%"로 계산 가능
########################################
# 숫자를 몇 퍼센트 감소
# 공식은 "숫자 * (1 - 퍼센트 / 100)"
# 100을 10퍼센트 감소
$result = 100 * (1 - 10 / 100);
print $result, "\n";
# 출력 결과: 90
# 100을 200퍼센트 감소
$result = 100 * (1 - 200 / 100);
print $result, "\n";
# 출력 결과: -100
# 1548을 66퍼센트 감소
print 1548 * (1 - 66 / 100), "\n";
# 출력 결과: 526.32
# 7600을 25퍼센트 감소
print 7600 * (1 - 25 / 100), "\n";
# 출력 결과: 5700
# 탁상용 계산기에서는, "7600 - 25%"로 계산 가능
퍼센트 계산 기초: ▶▶ Perl 펄] 퍼센트 계산, 백분율 구하기; Percent Percentage
tag: perl
Perl | 펄
<< Home