;gestione vettori ;somma elementi di un vettore ;stampa elementi vettore ;vet1 (prog1 (setq vect1(make-array '(4):initial-contents '(1 2 3 4))) (print vect1) ;somma elementi vettore (setq somma 0) (dotimes(conta 4 0) (setq a(aref vect1 conta)) (print a) (setq somma(+ somma a))) (terpri) (prin1 " somma=")(prin1 somma)(terpri) )
;gestione vettori ;somma elementi di un vettore ;stampa elementi vettore ;vet2 (prog1 (setq vect1(make-array '(4):initial-contents '(1 2 3 4))) (print vect1) ;legge numero elementi in vettore e assegna a dotimes (setq lungo(length vect1)) ;somma elementi vettore (setq somma 0) (dotimes(conta lungo 0) (setq a(aref vect1 conta)) (print a) (setq somma(+ somma a))) (terpri) (prin1 " somma=")(prin1 somma)(terpri) )
;gestione vettori ;somma elementi di un vettore ;stampa elementi vettore ;vet3 (prog1 (print "-----------------------") (setq vect1(make-array '(4):initial-contents '(1 2 3 4))) (print vect1) ;legge numero elementi in vettore e assegna a dotimes (setq lungo(length vect1)) ;somma elementi vettore (setq somma 0) (dotimes(conta lungo 0) (setq a(aref vect1 conta)) (print a) (setq somma(+ somma a))) (terpri) (prin1 " somma=")(prin1 somma)(terpri) )
;gestione vettori ;prodotto di costante per elementi vettore ;stampa elementi vettore ;vet4 (prog1 (print "-----------------------") (setq vect1(make-array '(4):initial-contents '(1 2 3 4))) (print vect1) ;legge numero elementi in vettore e assegna a dotimes (setq lungo(length vect1)) ;prodotto elementi vettore (setq costante 10) (print costante) (print "---segue prodotto costante*numero--") (dotimes(conta lungo 0) (setq a(aref vect1 conta)) (print (* a costante))) (terpri) ) ritorna