TI-BASIC/MIDPOINT.ti

19 lines
203 B
Text

DPROGRAM:MIDPOINT
Disp "( (X1+X2)/2 , (Y1+Y2)/2 )"
Pause
Disp ""
Disp "X1"
Input A
Disp "Y1"
Input B
Disp "X2"
Input C
Disp "Y2"
Input D
Disp ""
Disp "("
Disp ((A+C)/2)
Disp ","
Disp ((B+D)/2)
Disp ")"