Public Function AriaCilindru (raza, inaltime) As Double
Const Pi = 3.14159
cilBaza = Pi*raza^2
cilLaterala = 2*Pi*raza*inaltime
AriaCilindru = 2*cilBaza + c 929i89j ilLaterala
End Function
Sub AriaCilindru (ByVal raza As Single, ByVal inaltime As Single, _
ByRef cilAria As Double)
Const Pi As Single = 3.14159
Dim cilBaza As Single, cilLaterala As Single
cilBaza = Pi*raza^2
cilLaterala = 2*Pi*raza*inaltime
cilAria = 2*cilBaza + cilLaterala
End
Apelul functiei poate fi într-o instructiune de genul
CostTotalPiesa = AriaCilindru (r1, h1) * CostUnitar
în timp ce apelul subrutinei poate fi
AriaCilindru
inaltime:=h1, raza:=r1, cilAria:=AriePiesa
|
