Inf III Blatt 8 Aufgabe 3 Versuc

;Quadratzahlen von 1 bis bis
(define (qzahlbis bis) (do ((x 1 (+ x 1))) ((> x bis)) (write (* x x))(newline)))
;Quadratzahlen von 1 bis bis rueckwaerts
(define (qzahlbisr bis) (do ((x bis (- x 1))) ((< x 1)) (write (* x x))(newline)))
;Testen wir ma':
(write "Quadratzahlen bis 6")
(newline)
(qzahlbis 6)
(write "Quadratzahlen bis 6 rueckwaerts")
(newline)
(qzahlbisr 6)