TI-Basic: Programme und Tutorials: Rechteckfunktion

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

Rechteckfunktion

Bearbeiten

  Rechteckfunktion

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