by pimonteiro » 29 Oct 2013, 23:27 - Code: Select all
Define LibPub bin_desc(a,b,c)=
Prgm
© Equação do 2ºGrau
Local d,r1,r2,r
d:=b^(2)-4*a*c
If d>o Then
r1:=((−b-√(d))/(2*a))
r2:=((−b+√(d))/(2*a))
Disp "O binómio Descriminante é d = ",d
Disp "O primeiro solução é ",r1
Disp "O segundo solução é ",r2
ElseIf d=o Then
r:=((−b)/(2*a))
Disp "O binómio Descriminante é = ",d
Disp "A solução é r = ",r
ElseIf d<0 Then
Disp "O binómio Descriminante é d = ",d
Disp "Não há soluções."
EndIf
EndPrgm
In the calculator, I put: bin_desc(1,2,1)
answer: "Error:Indefined Variable"
Who can help me?
