UC知道急死了，会编程的进
来源：百度知道 编辑：UC知道 时间：2024/05/22 11:29:43
用Pascial语言编数字三角形．
1 2 3 4 5
6 7 8 9
10 11 12
13 14
15
下一个
1
23
4 56
7 8 910
11 12 13 14 15
最后一个
1
6 2
10 7 3
13 11 8 4
15 14 12 9 5
会一个也发哦,全发更好
汗~~我好像打错了，第一个程序6上面是2，7上面是3，向后依次移一格，谁能发给我啊
1 2 3 4 5
6 7 8 9
10 11 12
13 14
15
下一个
1
23
4 56
7 8 910
11 12 13 14 15
最后一个
1
6 2
10 7 3
13 11 8 4
15 14 12 9 5
会一个也发哦,全发更好
汗~~我好像打错了，第一个程序6上面是2，7上面是3，向后依次移一格，谁能发给我啊
第一个程序如下：
{$apptype console}
program exp;
var i,j,k:integer;
begin
k:=1;
for i:=1 to 5 do {5行}
begin
for j:=1 to 3*(i-1) do write('_'); {每行先是3(i-1)个空格}
for j:=1 to 6-i do begin write(k:2,'_'); k:=k+1; end; {每行6-i个}
writeln; {换行}
end;
end.
以上程序在DELPHI下运行通过，运行结果如下：
E:\ygb>dcc32 b.dpr
Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
b.dpr(13)
14 lines, 0.06 seconds, 10768 bytes code, 1801 bytes data.
E:\ygb>b.exe
1_ 2_ 3_ 4_ 5_
___ 6_ 7_ 8_ 9_
______10_11_12_
_________13_14_
____________15_
为了能看到整齐的三角形，我使用下划线_代替空格。
其余的完全类似，希望你参考写一下，如果写出来担心有错误可以贴上来大家帮你修改，全给你写完可能是害你。
num=1
for i=1 to 5
for j=5 to i step -1
response.write(num & " ")
num=num+1
next
response.write("<br>")
next
手头没别的东