主题：小弟是新手，才学的，有道题目需要大虾们帮忙，谢谢了！！！
lcb08
[专家分：30] 发布于 2006-06-19 20:50:00
1
2 2 2
3 3 3 3 3
4 4 4 4 4 4 4
5 5 5 5 5 5 5 5 5
4 4 4 4 4 4 4
3 3 3 3 3
2 2 2
1
该怎么编阿，作业题，在线等，万分感谢阿！！！
回复列表 （共6个回复）
沙发
贺天行宝 [专家分：2300] 发布于 2006-06-20 18:07:00
var i,j,k,l:integer;
begin
for i:=1 to 5 do
begin
if i<>5 then
write(' ':5-i);
for j:=1 to i*2-1 do write(i);
writeln;
end;
for i:=4 downto 1 do
begin
write(' ':5-i);
for j:=1 to i*2-1 do write(i);
writeln;
end;
end.
加分哦！
板凳
小田甜ts [专家分：210] 发布于 2006-07-01 18:06:00
begin
writeln(' 1');
writeln(' 2 2 2');
writeln(' 3 3 3 3 3');
writeln(' 4 4 4 4 4 4 4');
writeln('5 5 5 5 5 5 5 5 5');
writeln(' 4 4 4 4 4 4 4');
writeln(' 3 3 3 3 3');
writeln(' 2 2 2');
writeln(' 1 ');
end.
3 楼
绿水中的鱼 [专家分：50] 发布于 2006-07-04 21:29:00
3楼的，估计你老师看到上面的东西，不死半条命也去了。
4 楼
小田甜ts [专家分：210] 发布于 2006-07-07 14:33:00
3楼的，我那里是2楼,我们老师没出这道题而是
[B]输入边长1<=N<=10,输出该边长的*组成的空心菱形
如N=3时
*
* *
* *
* *
*
[/B]
我用的是:
readln(n);
Case N of
1:writeln('*');
2:begin writeln(' *');writeln('* *');以下略
end;
5 楼
iverson1987 [专家分：10] 发布于 2006-07-07 16:30:00
三楼那种解法适用于所有的题目,呵呵
6 楼
小田甜ts [专家分：210] 发布于 2006-07-07 16:54:00
多谢夸奖！谢谢！
我来回复
您所在位置：