主题:请多多赐教!!!
6yangweihua
[专家分:180] 发布于 2005-06-04 14:48:00
怎样打印???
1 1111111 1 2 3 4 5 6 7
111 11111 8 9 10 11 12 13
11111 111 14 15 16 17 18
1111111 1 19 20 21 22
23 24 25
26 27
28 [em10]
回复列表 (共5个回复)
沙发
QQ331373582 [专家分:1500] 发布于 2005-06-04 15:24:00
你的T目有问题
板凳
def [专家分:3380] 发布于 2005-06-12 16:27:00
1.
var spcs,names,spcr,namer:word;
begin
names:=1;
for spcs:=4 downto 1 do
begin
for spcr:=1 to spcs do
write(' ');
for namer:=1 to names do
write('1');
writeln;
names:=names+2;
end;
end.
3 楼
def [专家分:3380] 发布于 2005-06-12 16:30:00
2.
var spcs,names,spcr,namer:word;
begin
spcs:=1;
for spcs:=1 to 4 do
begin
for spcr:=1 to spcs do
write(' ');
for namer:=1 to names do
write('1');
writeln;
names:=names-2;
end;
end.
4 楼
def [专家分:3380] 发布于 2005-06-12 16:58:00
3.
function spc(spcn:word):string;
begin
for spcr:=1 to spcn
spc:=spc+' ';
end;
var i,j,a,s:word;
begin
s:=0
for i:=7 downto 1 do
begin
a:=a+i;
for j:=1 to a do
begin
if strlen(j)=1 then
write(' ',j)
else
write(' ',j);
end;
writeln;
s:=s+1
end;
end.
5 楼
def [专家分:3380] 发布于 2005-06-12 16:58:00
本程序纯属虚构,如有雷同,实属巧合
本程序未经有关安全质量检测部门验证
因使用以上代码给任何人带来任何损失
由QB45负责全部赔偿,
赔偿最高限额以十根头发为限。
为什么我自己不赔?
因为我已经谢顶了,赔不起了。
我来回复