主题：pascal语言求助!!!!!
风之落叶
[专家分：40] 发布于 2007-01-28 13:29:00
[em9]你是一个新手吗?你有不会做的题目吗?来这发吧!!!!!!
也请高手来解决!!!!!![em18]
回复列表 （共7个回复）
沙发
风之落叶 [专家分：40] 发布于 2007-01-28 13:31:00
我有一题不会,希望大家来帮忙!!!
题目:
1
121
12321
1234321
123454321
12345654321
1234567654321
123456787654321
12345678987654321
板凳
贺天行宝 [专家分：2300] 发布于 2007-01-28 21:38:00
1楼的用学好循环就会做了
搂主什么意思。。。。。。做广告？
3 楼
merry05 [专家分：8920] 发布于 2007-01-31 18:29:00
请注意每一行中间的那个数字，用循环。虽然本人还不会Pascal！
4 楼
maxumi [专家分：2200] 发布于 2007-02-03 17:08:00
begin
writeln(' 1');
writeln(' 121');
writeln(' 12321');
writeln(' 1234321');
writeln(' 123454321');
writeln(' 12345654321');
writeln(' 1234567654321');
writeln(' 123456787654321');
writeln(' 12345678987654321');
end.
5 楼
dorremon1992 [专家分：870] 发布于 2007-02-04 20:20:00
Program Print;
Const Hight=9;
Procedure Draw(n:integer);
Var i:integer;
Begin
for i:=1 to (Hight-n) do write(' ');
for i:=1 to n do write(n);
for i:=(n-1) downto 1 do write(n);
writeln;
End;
Var n:integer;
Begin
for n:=1 to Hight do Draw(n);
End.
这样应该就行了吧！
6 楼
bigchen [专家分：1940] 发布于 2007-02-15 16:26:00
如果他没有规定层数的话
投机取巧直接输出的可以的
但如果规定蹭数的话
就要用循环
程序我不写了
上面有人写了
7 楼
迷路的天使 [专家分：1340] 发布于 2007-11-20 18:52:00
将一根369cm的钢管截成69cm与39cm两种规格的短料,在两种规格的短料至少各截一根的前提下,如何截剩最少
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — pascal语言求助!!!!!