<%
function cono(h,r,a)
dim pi
pi = 4*atn(1)
cono = "Superficie cono : " & pi*r*a + pi*(r^2)
cono = cono & "<br>Volume cono : " & (1/3)*pi*(r^2)*h
end function
dim dblAltezza
dblAltezza = 10.65
dim dblRaggio
dblRaggio = 5.64
dim dblApotema
dblApotema = 9.45
response.write cono(dblAltezza,dblRaggio,dblApotema)
%>
<%
function cono(h,r,a)
dim pi
pi = 4*atn(1)
cono = "Superficie cono : " & pi*r*a + pi*(r^2)
cono = cono & "<br>Volume cono : " & (1/3)*pi*(r^2)*h
end function
dim dblAltezza
dblAltezza = 10.65
dim dblRaggio
dblRaggio = 5.64
dim dblApotema
dblApotema = 9.45
response.write cono(dblAltezza,dblRaggio,dblApotema)
%>
Grazie al seguente script è possibile calcolare il volume e la superficie di un cono.
dim dblAltezza
dblAltezza = 10.65
dim dblRaggio
dblRaggio = 5.64
dim dblApotema
dblApotema = 9.45
response.write cono(dblAltezza,dblRaggio,dblApotema)
%>