求大神解析一下 - pascal吧 - RAT

求大神解析一下

level 2

___傷勿念楼主

如题
var i,j:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to abs(i-3) do write(* *);
for j:=1 to (3-abs(i-3))<<1-1 do write(***);
writeln;
end;
end;

2014年09月13日 08点09分 1

level 2

___傷勿念楼主

主要是这句for j:=1 to (3-abs(i-3))<<1-1 do write(***);

2014年09月14日 09点09分 2

猎火电脑工作室

这到底是c还是pascal

2014年09月14日 09点09分

🔯尤米尔🔯

**<<1-1**????

2014年09月14日 10点09分

level 2

___傷勿念楼主

没人嘛

[不高兴]

2014年09月14日 09点09分 3

level 9

猎火电脑工作室

还有楼主，
最后一个end后面要加句号。

2014年09月14日 09点09分 4

1