A program I made in TI-BASIC to find two numbers that have a specified sum and product.

SUM-PROD

ClrHome
Disp "ENTER PRODUCT","AND SUM"
Prompt P,S
0->O
.5S->I
If (S<0 xor P<0)
Then
While (SO!=P)
S+1->S
O-1->O
I+1->I
If (I=100)
Then
ClrHome
Output(1,1,"NO RESULT FOUND")
Disp ""
Stop
End
End
End
If ((S>=0 and P>=0) or (S<0 and P<0))
Then
While (SO!=P)
S-1->S
O+1->O
I+1->I
If (I=100)
Then
ClrHome
Output(1,1,"NO RESULT FOUND")
Disp ""
Stop
End
End
End
ClrHome
Output(1,1,"YOUR NUMBERS ARE:"
Disp S,O
DelVar P
DelVar S
DelVar O