Zum Inhalt springen

TI-Basic: Programme und Tutorials: Rechteckfunktion

Aus Wikibooks
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