TI-Basic: Programme und Tutorials: Rechteckfunktion

Hoch zu "Programme und Tutorials"

Erstellt von:	Peter Riedel
Schwierigkeitsgrad:	Einsteiger
Modell:	Voyage 200

Rechteckfunktion

 Rechteckfunktion

:rechteck(x)
:Func
:If abs(x)>1/2 Then
:  Return 0
:ElseIf abs(x)<1/2 Then
:  Return 1
:EndIf
:1/2
:EndFunc