identificationdivision. program-id. saegezahn. * Autor Jens-D. Doll * Dies ist eine Schwingung aus ganzen * Zahlen und der Restklassenarithmetik * aufgebaut aus mod, abs und sign author. "JD". date-written. 27.8.2006. date-compiled. datadivision. working-storagesection.
77 Periode pic 9(4).
77 Amplitude pic 9(4).
77 P4 pic 9(4).
77 n pic 9(4).
77 fn pic 9(4).
77 sig pic S9(4).
77 te pic 9(4). proceduredivision. display"start" accept Periode accept Amplitude performuntil n > 2*Periode if n < Periode/2 thenmove 1 to sig elsemove -1 to sig end-if compute te=n- Periode/4 compute fn = function mod(te,Amplitude) call plot using n fn end-perform display"done". end-program saegezahn.
¤ Dauer der Verarbeitung: 0.12 Sekunden
(vorverarbeitet)
¤
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.