TI-Basic: Programme und Tutorials: Teiler- und Vielfachenmenge

Hoch zu "Programme und Tutorials"

Erstellt von:	Peter Riedel
Schwierigkeitsgrad:	Anfänger
Modell:	Voyage 200

Teiler- und Vielfachenmenge

Teilbarkeit

:isdiv(n,t)
:Func
:If mod(n,t)=0 Then
:  Return true
:Else
:  Return false
:EndIf
:EndFunc

Teilermenge

:setdivs(n)
:Prgm
:ClrIO
:If n=0 Then
:  Disp "T = {∞}"
:  Return
:EndIf
:If n<0
:  n*(-1)→n
:int(n)→n
:0→i
:0→k
:{}→l
:While i<n
:  i+1→i
:  If mod(n,i)=0 Then
:    k+1→k
:    i→l[k]
:  EndIf
:EndWhile
:Disp l
:EndPrgm

Vielfachenmenge

:setmulti(n,lim)
:Prgm
:ClrIO
:If n=0 Then
:  Disp "V = {0}"
:  Return
:EndIf
:If n<0
:  n*(-1)→n
:If lim<0
:  lim*(-1)→lim
:1→i
:{}→l
:While n*i≤lim
:  n*i→l[i]
:  i+1→i
:EndWhile
:Disp l
:EndPrgm