level 11
@82111668_2012
@wfwhl12
@EXPsta
level 13
level 14
program ex(input,output);
var i,n:shortint;st2,st:string;
begin
st:='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
randomize();
for i:=1 to 52 do
begin
n:=random(52-i+1)+1;
st2:=st2+st[n];
delete(st,n,1);
end;
writeln(st2);
readln;
end.
//Pass by FPC2.6.2
2013年12月29日 11点12分
4
var i,n:shortint;st2,st:string;
begin
st:='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
randomize();
for i:=1 to 52 do
begin
n:=random(52-i+1)+1;
st2:=st2+st[n];
delete(st,n,1);
end;
writeln(st2);
readln;
end.
//Pass by FPC2.6.2
这方法好机智...
2013年12月29日 14点12分
噢谢谢了，请问下为什么randomiaze后面要加括号？
2013年12月29日 14点12分
回复 千方残光剑41 :为了体现C语言风格![[滑稽]](/static/emoticons/u6ed1u7a3d.png)
2013年12月31日 10点12分
不错的思路，很有启发！
2013年12月31日 14点12分
level 12
procedure a;
begin
writeln(true)
end;
function b:byte;
begin
writeln(true);
b:=#0 //这句只是为了符合语法
end;
begin
a; //这两句其实是一样的
b;
end.
2014年01月01日 13点01分
6
begin
writeln(true)
end;
function b:byte;
begin
writeln(true);
b:=#0 //这句只是为了符合语法
end;
begin
a; //这两句其实是一样的
b;
end.
好吧原来还可以这么干。。。。#是干什么用的……？一直想问这个问题，能说下吗？谢谢了
2014年01月01日 14点01分
回复 千方残光剑41 :形式上相当于chr
2014年01月01日 14点01分
回复 wfwhl12 :你这一说我才发现我好像见过……为什么我们的老师从来都不教……
2014年01月01日 14点01分
回复 千方残光剑41 :这貌似不属于标准pas,是吧@82111668_2012
2014年01月01日 14点01分
level 7