主题：[讨论]小学难题,如何定位请大家发表高见
tujunqiang
[专家分：150] 发布于 2005-10-31 08:45:00
寻找下图花三角形规律编程打印。注：不能原样照印。
*
* * *
* * * * *
* *
* * * * * *
* * * * * * * * * *
* * *
* * * * * * * * *
* * * * * * * * * * * * * * *
我是pascal的初学者,如果有程序的话能否赐教
回复列表 （共5个回复）
沙发
jtchang [专家分：5370] 发布于 2005-10-31 23:47:00
好象你画得有点问题，外围最大三角形，边都不是直的。(^_^)
不知道你想要的图形，是不是下面程序这样。
const N = 3; { try N = 6 }
var
i,j,k:integer;
begin
for i := 1 to N*3 do
begin
write(' ':-2*i+41);
for j:=1 to (i+2) div 3 do
begin
for k:=1 to 2*((i-1) mod 3)+1 do write('* ');
if j<>(i+2) div 3 then
write(' ':10-4*((i-1) mod 3));
end;
writeln;
end;
writeln('Have fun! Programmed by j.t.chang.');
end.
好久以前，数学老师教我，直线的方程是y=kx+b，我记住老师的话。
[em1][em1][em1][em1]
板凳
tujunqiang [专家分：150] 发布于 2005-11-01 10:55:00
老大呀,小学生能理解y=kx+b吗?
3 楼
vvv832 [专家分：360] 发布于 2005-11-01 21:05:00
小学学方城了,对于一次函数基本可以不学
4 楼
梦幻神兵 [专家分：600] 发布于 2005-11-12 16:54:00
也可以用循环来做，但是时间长一些！不过好理解！
5 楼
zhaoren [专家分：420] 发布于 2005-11-12 17:58:00
[em15][em28][em26][em55][em54][em54][em54][em54][em54]
我来回复
您所在位置：