- TI nspire
[TI-nspire] [program] 내 우산은 어디에? - 순열(Permutation)
-
- 2024.07.27 - 01:59 2015.09.28 - 20:35 958 3
문제 :
비오는 어느 날에 5명이 한 집에 모였습니다. 모임이 끝나고 돌아가려는데 갑자기 정전이 되어 어떤게 자기 우산인지 알 수 없게 되었고, 하는 수 없이 모두 아무 우산을 하나씩 들고 집으로 돌아갔습니다.
이 때 자기 우산을 가져간 사람이 0명일 경우의 수부터 5명인 경우의 수까지 차례대로 구하시오.
Define umb()=
Prgm
:
:Local this_combi
:Local my_umb,n_person
:
:newList(6)→n_person
:
:For d5,1,5
:
: For d4,1,5
: If d5=d4 Then
: Goto pass4
: EndIf
:
: For d3,1,5
: If d5=d3 or d4=d3 Then
: Goto pass3
: EndIf
:
: For d2,1,5
: If d5=d2 or d4=d2 or d3=d2 Then
: Goto pass2
: EndIf
:
: For d1,1,5
: If d5=d1 or d4=d1 or d3=d1 or d2=d1 Then
: Goto pass1
: EndIf
:
:© New Permutation list generated
: 1*{d5,d4,d3,d2,d1}→this_combi
: 0→my_umb
:
:© Count matching person
: For each_d,1,5
: If this_combi[each_d]=each_d Then
: my_umb+1→my_umb
: EndIf
: EndFor
:
: n_person[my_umb+1]+1→n_person[my_umb+1]
:
:© Disp "Test Disp",this_combi,"My Umb=",my_umb
:
: Lbl pass1
: EndFor
:
: Lbl pass2
: EndFor
:
: Lbl pass3
: EndFor
:
: Lbl pass4
: EndFor
:
:EndFor
:
:Disp "zero, one, ...., five = ",n_person
:EndPrgm
umb()
zero, one, ...., five = {44,45,20,10,0,1}
Done
-
25
세상의모든계산기 님의 최근 댓글
기간을 넉넉하게 잡고 봐야 할 듯 싶구요. 기다려 본 결과... '실패함'이 떴습니다. 잘 된건지 잘 못된 건지 아무 변화가 없는건지... 뭐가 뭔지 모르겠네요. 2026 01.03 설명서 : https://www.casio.com/content/dam/casio/global/support/manuals/calculators/pdf/2022/f/fx-9910CW_EN.pdf 2026 01.02 참고 : 라플라스 해법 1- 문제풀이의 개요 [출처] 라플라스 해법 1- 문제풀이의 개요|작성자 공학 엔지니어 지망생 https://blog.naver.com/hgengineer/220380176222 2026 01.01 3×3 이상인 행렬의 행렬식 determinant https://allcalc.org/50536 2025 12.30 답에 이상한 숫자 14.2857142857가 들어간 것은 조건식에 소숫점(.) 이 들어가 있기 때문에 발생한 현상이구요. 100÷7 = 14.285714285714285714285714285714 소숫점 없이 분수로 식이 주어졌을 때와 결과적으로는 동일합니다. 2025 12.30