求2个点的坐标,用画板画出来,数学已还给体育老师

378385038

  

子程序名	返回值类型	公开	备 注
计算坐标
参数名	类 型	参考	可空	数组	备 注
x1	整数型
y1	整数型
x2	整数型
y2	整数型

变量名	类 型	静态	数组	备 注
i	整数型
角度	双精度小数型
最终X	双精度小数型
最终Y	双精度小数型
两点距离	整数型

角度 ＝ (x2 － x1) ÷ (y2 － y1)
角度 ＝ 求反正切 (角度) × 180 ÷ 3.14159
两点距离 ＝ 求平方根 ( (x2 － x1) �� (x2 － x1) ��� (y2 － y1) �� (y2 － y1))
调试输出 (角度)
调试输出 (两点距离)
计次循环首 (两点距离, i)
最终X ＝ x1 ＋ i × 求余弦 (角度)
最终Y ＝ y1 － i × 求正弦 (角度)
画板1.画点 (最终X, 最终Y, #红褐 )
处理事件 ()
计次循环尾 ()
画板1.画椭圆 (最终X, 最终Y, 最终X ＋ 10, 最终Y ＋ 10)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 计算坐标<br /> .参数 x1, 整数型<br /> .参数 y1, 整数型<br /> .参数 x2, 整数型<br /> .参数 y2, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 角度, 双精度小数型<br /> .局部变量 最终X, 双精度小数型<br /> .局部变量 最终Y, 双精度小数型<br /> .局部变量 两点距离, 整数型<br /> <br /> 角度 ＝ (x2 － x1) ÷ (y2 － y1)<br /> 角度 ＝ 求反正切 (角度) × 180 ÷ 3.14159<br /> 两点距离 ＝ 求平方根 ((x2 － x1) × (x2 － x1) ＋ (y2 － y1) × (y2 － y1))<br /> 调试输出 (角度)<br /> 调试输出 (两点距离)<br /> .计次循环首 (两点距离, i)<br /> 最终X ＝ x1 ＋ i × 求余弦 (角度)<br /> 最终Y ＝ y1 － i × 求正弦 (角度)<br /> 画板1.画点 (最终X, 最终Y, #红褐)<br /> 处理事件 ()<br /> .计次循环尾 ()<br /> 画板1.画椭圆 (最终X, 最终Y, 最终X ＋ 10, 最终Y ＋ 10)

378385038

.版本 2
.支持库 spec

.子程序 计算坐标
.参数 x1, 整数型
.参数 y1, 整数型
.参数 x2, 整数型
.参数 y2, 整数型
.局部变量 i, 整数型
.局部变量 角度, 双精度小数型
.局部变量 最终X, 双精度小数型
.局部变量 最终Y, 双精度小数型
.局部变量 两点距离, 整数型

角度 ＝ (x2 － x1) ÷ (y2 － y1)
角度 ＝ 求反正切 (角度) × 180 ÷ 3.14159
两点距离 ＝ 求平方根 ((x2 － x1) × (x2 － x1) ＋ (y2 － y1) × (y2 － y1))
调试输出 (角度)
调试输出 (两点距离)
.计次循环首 (两点距离, i)
    最终X ＝ x1 ＋ i × 求余弦 (角度)
    最终Y ＝ y1 － i × 求正弦 (角度)
    画板1.画点 (最终X, 最终Y, #红褐)
    处理事件 ()
.计次循环尾 ()
画板1.画椭圆 (最终X, 最终Y, 最终X ＋ 10, 最终Y ＋ 10)