;ese9 su marino14 ;esempio utilizzazione gaslibreria e ari1libreria (prog1 (load "marino14:ari1libreria") (load "marino14:gaslibreria") ;inizio programma (print(pressione 100 2 0.82 400)) (print(volume 6.56 2 0.82 400)) (print(temperatura 6.56 100 2 0.82)) (print(moli 6.56 100 0.82 400)) (print"---------") (print(somma p v te)) (print(prodotto p v te)) (print(differenza te v)) (print"fine") )
;esempio programma che utilizza libreria standard di LISP ;caricata con LANCIO1 ;e libreria utente con funzioni aritmetiche semplici ;caricata da disco in libreria ari1libreria ;ese8 (prog1 (load "marino14:ari1libreria") ;inizio programma con chiamata funzioni da ari1libreria (print(somma 6 7 8)) (Print(differenza 8 5)) (print(prodotto 3 4 5)) (print(quoziente 50 10)) (print(quadrato 6)) (print(cubo 3)) (print"fine") )
(prog1 (load "marino14:libreria:quattroF.fasl") (load "marino14:libreria:trigoF.fasl") (load "marino14:libreria:trigo1F.fasl") ;inizio blocco programma dopo aver richiamato funzioni da libreria (quattro 100 20) (trigo 30) (trigo1 60) (print "fine") )
;esempio programma con uso di funzioni definite da utente ;registrate con il nome cuboF e masimoF ;caricate da interno programma (prog1 (load "marino14:cuboF") (load "marino14:masimoF") (cubo 2) ;chiamata di funzione (MCD 100 50 20) ;chiamata di funzione (cubo 3) (cubo 5) (MCD 2 6 16) (print "fine programma")(terpri) )
;esempio programma con uso di funzioni definite da utente ;registrate con il nome cuboF e masimoF ;caricate da interno programma (prog1 (load "marino14:cuboF.fasl") (load "marino14:masimoF.fasl") (cubo 2) ;chiamata di funzione (MCD 100 50 20) ;chiamata di funzione (cubo 3) (cubo 5) (MCD 2 6 16) (print "fine programma")(terpri) )
ritorna