[Dino爱编程]multiplication circles(乘法圆)编程
作者:dinochen1983 日期:2018-02-24
[每周挑战][编程]multiplication circles(乘法圆)编程

【小记】懂编程的人一定知道数学其实是很美的,数学就是一门艺术,自然的艺术,特别是图形学与可视化就可以表述出来。
以九九乘法表为例,是很枯燥的,但是一但把乘法用圆与直线表述出来,就可以形成美丽的自然图案。

点击下载此文件:程序原理图的PPT

点击下载此文件:程序源代码及可执行程序EXE
以下是视频教程:
视频地址:https://v.qq.com/x/page/o0557dz78tv.html
【STEM】DINOMAKER创客教程 之 【创意编程系列】是用来分享编程的乐趣,也是成为创客必备的技能。
以下是编程得到的乘法圆的动态图
主要的源代码
=====================================================================
PROCEDURE TFORM1.DRAW_LINES;
VAR DIV1:INTEGER;
NUM2:INTEGER;
AX,AY:INTEGER;
BX,BY:INTEGER;
CX,CY:INTEGER;
I:INTEGER;
R:INTEGER;
BEGIN
CX:=IMAGE1.Width DIV 2;
CY:=IMAGE1.Height DIV 2;
R:=180;
DIV1:=STRTOINT(EDIT1.Text);
NUM2:=STRTOINT(EDIT2.Text);
IMAGE1.Canvas.Pen.Color:=CLWHITE;
IMAGE1.Canvas.Brush.Color:=CLWHITE;
FOR I:=0 TO DIV1 DO
BEGIN
AX:=ROUND(CX+R*COS(DEGTORAD(360/DIV1*I)));
AY:=ROUND(CY+R*SIN(DEGTORAD(360/DIV1*I)));
BX:=ROUND(CX+R*COS(DEGTORAD(360/DIV1*I*NUM2)));
BY:=ROUND(CY+R*SIN(DEGTORAD(360/DIV1*I*NUM2)));
//
IMAGE1.Canvas.MoveTo(AX,AY);
IMAGE1.Canvas.LineTo(BX,BY);
END;
END;
=====================================================================



=================================================================

【小记】懂编程的人一定知道数学其实是很美的,数学就是一门艺术,自然的艺术,特别是图形学与可视化就可以表述出来。
以九九乘法表为例,是很枯燥的,但是一但把乘法用圆与直线表述出来,就可以形成美丽的自然图案。




以下是视频教程:

【STEM】DINOMAKER创客教程 之 【创意编程系列】是用来分享编程的乐趣,也是成为创客必备的技能。
以下是编程得到的乘法圆的动态图
主要的源代码
=====================================================================
PROCEDURE TFORM1.DRAW_LINES;
VAR DIV1:INTEGER;
NUM2:INTEGER;
AX,AY:INTEGER;
BX,BY:INTEGER;
CX,CY:INTEGER;
I:INTEGER;
R:INTEGER;
BEGIN
CX:=IMAGE1.Width DIV 2;
CY:=IMAGE1.Height DIV 2;
R:=180;
DIV1:=STRTOINT(EDIT1.Text);
NUM2:=STRTOINT(EDIT2.Text);
IMAGE1.Canvas.Pen.Color:=CLWHITE;
IMAGE1.Canvas.Brush.Color:=CLWHITE;
FOR I:=0 TO DIV1 DO
BEGIN
AX:=ROUND(CX+R*COS(DEGTORAD(360/DIV1*I)));
AY:=ROUND(CY+R*SIN(DEGTORAD(360/DIV1*I)));
BX:=ROUND(CX+R*COS(DEGTORAD(360/DIV1*I*NUM2)));
BY:=ROUND(CY+R*SIN(DEGTORAD(360/DIV1*I*NUM2)));
//
IMAGE1.Canvas.MoveTo(AX,AY);
IMAGE1.Canvas.LineTo(BX,BY);
END;
END;
=====================================================================



=================================================================
评论: 0 | 引用: 0 | 查看次数: 4353
发表评论
你没有权限发表留言!