DISPG command
Publié : sam. déc. 22, 2018 12:54 pm
Hi, BP
After each pause, the DISPG command does not work. only until the end of the execution the external graphing window is updated, It is very important to show the image in steps, using the PAUSE command
Midpoint() [Enter]
After each pause, the DISPG command does not work. only until the end of the execution the external graphing window is updated, It is very important to show the image in steps, using the PAUSE command
Code : Tout sélectionner
function Midpoint()
var A_,B_,Ax,Ay,Bx,By,MP;
ClrIO;
DispG;
A_:=point(1,2);
Pause; DispG;
B_:=point(-2,-2);
Pause; DispG;
Ax:=abscissa(A_);
Ay:=ordinate(A_);
Bx:=abscissa(B_);
By:=ordinate(B_);
MP:=point((Ax+Bx)/2,(Ay+By)/2);
return A_,B_,MP;
ffunction:;