一起来水吧~~~
pascal吧
全部回复
仅看楼主
level 5
FrostBlove 楼主
编写一个pascal程序,每一楼写一行,看看到底有多少人在本吧活跃[滑稽]期间不可以输入end.
2016年07月21日 06点07分 1
level 5
FrostBlove 楼主
我先来
begin
2016年07月21日 06点07分 2
评论请在楼中楼回复[滑稽]
2016年07月21日 06点07分
level 6
write('This is a stupid game.@LZ')
2016年07月21日 06点07分 3

2016年07月21日 11点07分
level 5
for i:-1 to 30000 do
2016年07月21日 08点07分 4
level 11
writeln(‘三级就敢水’);//[滑稽]
2016年07月21日 09点07分 5
level 7
write('经拿滚')//
2016年07月21日 10点07分 6
貌似我忘了program了
2016年07月21日 11点07分
@FrostBlove 不写没关系
2016年07月21日 15点07分
level 5
FrostBlove 楼主
if i=100 then write('不水怎么升级[滑稽]');
2016年07月21日 11点07分 7
level 10
halt(-1);//我才不写end.呢
2016年07月22日 04点07分 8
level 5
FrostBlove 楼主
好吧[滑稽]
2016年07月22日 04点07分 9
level 5
FrostBlove 楼主
那begin[滑稽]
2016年07月22日 04点07分 10
level 5
FrostBlove 楼主
function
2016年07月22日 04点07分 11
level 11
var a:integer;
procedure print;
begin
writeln('LZSB,拿精滚[滑稽]');
end;
begin
while 0=0 do begin
print;
end;
end.
2016年07月22日 07点07分 12
level 5
FrostBlove 楼主
说好的不能end.呢..
2016年07月22日 07点07分 13
level 11
那halt;[滑稽]
2016年07月22日 08点07分 14
level 1
writeln('Let us water together');[滑稽]
2016年07月23日 03点07分 15
一起水呀水
2016年07月23日 03点07分
1 2 尾页