mwultong Blog ... 프로그래밍 / 계산기

컴퓨터 엑셀 워드 포토샵 구글어스 WINDOWS JAVASCRIPT JAVA C++

 
Friday, April 13, 2007

Perl 펄] 퍼센트 증가/감소, 인상/인하, 백분율 계산; Percent Increase Decrease


Perl에서, 숫자를 몇 퍼센트 증가시키거나 감소시키는 방법입니다. 계산 공식을 그대로 펄 코드로 만들어 주었습니다.

탁상용 계산기로 각종 퍼센트 계산을 하면, 버튼 누르는 순서들을 기억하기가 어렵기에, 이렇게 프로그래밍을 하는 것이 더 편리합니다.

참고로, 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%"로 계산 가능




퍼센트 계산 기초: ▶▶ Perl 펄] 퍼센트 계산, 백분율 구하기; Percent Percentage




tag: perl
Perl | 펄

0 Comments:

<< Home RSS 2.0 feed

구글 Google 에서 제공하는 무료 블로그 서비스인 블로거 Blogger 의 인터넷 주소는 www.blogger.com 입니다. Blogger 에 블로그를 만들면, blogspot.com 이라는 주소에 블로그가 생성됩니다.
블로그를 직접 방문하지 않고도 최신 게시물을 구독하려면 RSS 2.0 feed 주소를 리더기에 등록하시면 됩니다.
Previous Posts
Monthly Archives
Top