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

#!/usr/bin/perl
use strict; use warnings;


  ###############################################
  # 전체값에서 일부값은 몇 퍼센트? 계산
  # 공식은 "일부값 나누기 전체값 곱하기 100"
  ###############################################


  # 10은 100에서 몇 퍼센트?
  printf("%.2f%%\n", 10 / 100 * 100);
  # 출력 결과: 10.00%


  # 33은 100에서 몇 퍼센트?
  printf("%.2f%%\n", 33 / 100 * 100);
  # 출력 결과: 33.00%


  # 105는 300의 몇퍼센트?
  printf("%.2f%%\n", 105 / 300 * 100);
  # 출력 결과: 35.00%


  # 한달 봉급 156만원인 사람이, 음식 값으로 21만원을 쓰면,
  # 그 음식값은 한 달 봉급의 몇 퍼센트?
  printf("%.2f%%\n", 210000 / 1560000 * 100);
  # 출력 결과: 13.46%


  # 만약 봉급 156만원으로 모두 먹는 데 사용했다면
  # 100% 가 나와야겠지요.
  printf("%.2f%%\n", 1560000 / 1560000 * 100);
  # 출력 결과: 100.00%


  # 만약 아무것도 먹지 않았면 0% 가 나와야합니다.
  printf("%.2f%%\n", 0 / 1560000 * 100);
  # 출력 결과: 0.00%





  ###############################################
  # 전체값의 몇 퍼센트는 얼마? 계산
  # 공식은, "전체값 곱하기 퍼센트 나누기 100"
  ###############################################


  # 100의 10퍼센트는 얼마?
  printf("%.2f\n", 100 * 10 / 100);
  # 출력 결과: 10.00


  # 100의 33퍼센트는 얼마?
  printf("%.2f\n", 100 * 33 / 100);
  # 출력 결과: 33.00


  # 300의 35퍼센트는 얼마?
  printf("%.2f\n", 300 * 35 / 100);
  # 출력 결과: 105.00


  # 156만원의 13.46퍼센트는 얼마?
  printf("%.2f\n", 1560000 * 13.46 / 100);
  # 출력 결과 (21만원에 가까운 값): 209976.00


  # 156만원의 100퍼센트는 얼마?
  printf("%.2f\n", 1560000 * 100 / 100);
  # 출력 결과: 1560000.00


  # 156만원의 0퍼센트는 얼마?
  printf("%.2f\n", 1560000 * 0 / 100);
  # 출력 결과: 0.00